Beiträge von Ilse

Ilse

Hallo Schnitzel,

Listview? Oscar und YaeroxXO benutzen keine Listview!
Wenn ich mir das Beispiel von Oscar ansehe,
dann finde ich diese Zeile

Spoiler anzeigen

[autoit]

_ArraySort($aOut, 1, 0, 0, 1); Oscar Code
_ArraySort($aArray, 1, 0, 0, 1); abgewandelt auf das Script von YaeroxXO

[/autoit]

Das habe ich auch versucht irgendwie zu integrieren, damit die Arrays vorher sortiert werden.

Und genau das ist mein Problem. Das klappt nicht! Bin ich da auf dem richtigen Weg?
Der mit den meisten Plazierungen ist oben! Genau wie bei Oscar nur mit den Titeln!

Hier der Code v. YaeroxXO (_Arraysort deaktiviert)

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $aTracks
Local $aArray[1][2]
Local $aIndexes
Local $sTracklist

[/autoit] [autoit][/autoit] [autoit]

$sTracklist = FileOpenDialog("Select Tracklist...", @ScriptDir, "Tracklist (*.txt)")
_FileReadToArray($sTracklist, $aTracks)

[/autoit] [autoit][/autoit] [autoit]

$sInterpretFile = "Interpreten-1000.txt"

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($aTracks) - 1
$aSplit = StringSplit($aTracks[$i], ";")
If $i = 1 Then
$aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
$aArray[$i - 1][1] = $aSplit[2]
Else
$aIndexes = _ArrayFindAll($aTracks, $aSplit[2], 0, 0, 0, 0, 2)
If $aIndexes = -1 Then
ReDim $aArray[$i + 1][2]
$aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
$aArray[$i - 1][1] = $aSplit[2]
Else
$aArray[$aIndexes][1] = $aArray[$aIndexes][1] + 1
EndIf
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($aArray) - 1
;_ArraySort($aArray, 1, 0, 0, 1)
If $aArray[$i][1] <> "" Then
$aIndexes = _ArrayFindAll($aArray, $aArray[$i][1], 0, 0, 0, 0, 2)

[/autoit] [autoit][/autoit] [autoit]

If UBound($aIndexes) > 0 Then
ConsoleWrite($aArray[$i][1] & "(" & UBound($aIndexes) & "x)" & @CR & "--------------------" & @CR)
For $y = 0 To UBound($aIndexes) - 1
ConsoleWrite($aArray[$aIndexes[$y]][0] & @CR)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$aArray[$aIndexes[$y]][0] = ''
$aArray[$aIndexes[$y]][1] = ''
Next
;~ For $i = 0 To UBound($aIndexes) - 1
;~ FileWriteLine($sInterpretFile, $aArray[$aIndexes[$y]][0] & @CR)
;~ Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

ConsoleWrite(@CR)
EndIf
EndIf
Next
;_FileWriteFromArray($sInterpretFile, ($aArray[$i][1] & "(" & UBound($aIndexes) & "x)" & @CR & "--------------------" & @CR))

[/autoit] [autoit][/autoit] [autoit][/autoit]

Liebe Grüße
Ilse

Ilse

Hallo YaeroxXO,

schön dass du dich wieder meldest.
Ich hatte gestern noch probiert das ganze zu sortieren.
Hat aber nicht geklappt.
Würd mich freuen, wenn du mir dabei noch helfen könntest.

Liebe Grüße
Ilse

Ilse

Hallo Oscar,

merci, hab das ganze mit FileOpen gemacht!

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

$sFilename = FileOpenDialog("Select Tracklist...", @ScriptDir, "Tracklist (*.txt)")
$sSaveFile = @ScriptDir & '\Interpreten-1000.txt'
$aInterpreten = StringRegExp(FileRead($sFilename), '.+;(\V+)', 3)
;~ _ArrayDisplay($aInterpreten)
$aModal = _ArrayModal($aInterpreten)
_ArrayDisplay($aModal)
$hFile = FileOpen($sSaveFile, 2)
If $hFile <> -1 Then
For $i = 0 To UBound($aModal) - 1
FileWriteLine($hFile, $aModal[$i][0] & ';' & $aModal[$i][1])
Next
FileClose($hFile)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Func _ArrayModal($w)
Local Static $oDictionary = ObjCreate('Scripting.Dictionary')
$oDictionary.CompareMode = 1
For $i = 0 To UBound($w) - 1
If $oDictionary.Exists($w[$i]) Then
$oDictionary.Item($w[$i]) = $oDictionary.Item($w[$i]) + 1
Else
$oDictionary.Add($w[$i], 1)
EndIf
Next
Local $aOut[$oDictionary.Count][2], $i = 0, $colKeys
$colKeys = $oDictionary.Keys
For $strKey In $colKeys
$aOut[$i][0] = $strKey
$aOut[$i][1] = $oDictionary.Item($strKey)
$i += 1
Next
$oDictionary = ''
_ArraySort($aOut, 1, 0, 0, 1)
Return $aOut
EndFunc ;==>_ArrayModal

[/autoit]

Das speichern klappt.
Die Mischung von dir und YaeroxXO
wäre eigentlich die perfekte Lösung.
Da wären die Titel mit drin.

Nochmals vielen Dank!

Liebe Grüße
Ilse

Ilse

Hallo,

also nochmals herzlichen Dank.
Ich bin die ganze Zeit dabei das ganze noch in deine Datei zu bekommen.

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

_FileWriteFromArray($sInterpretFile, ($aArray[$i][1] & "(" & UBound($aIndexes) & "x)" & @CR & "--------------------" & @CR))

[/autoit]

kommt leider nichts an.

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $aTracks
Local $aArray[1][2]
Local $aIndexes
Local $sTracklist

[/autoit] [autoit][/autoit] [autoit]

$sTracklist = FileOpenDialog("Select Tracklist...", @ScriptDir, "Tracklist (*.txt)")
_FileReadToArray($sTracklist, $aTracks)

[/autoit] [autoit][/autoit] [autoit]

$sInterpretFile = "Interpreten-1000.txt"

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($aTracks) - 1
$aSplit = StringSplit($aTracks[$i], ";")
If $i = 1 Then
$aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
$aArray[$i - 1][1] = $aSplit[2]
Else
$aIndexes = _ArrayFindAll($aTracks, $aSplit[2], 0, 0, 0, 0, 2)
If $aIndexes = -1 Then
ReDim $aArray[$i + 1][2]
$aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
$aArray[$i - 1][1] = $aSplit[2]
Else
$aArray[$aIndexes][1] = $aArray[$aIndexes][1] + 1
EndIf
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($aArray) - 1
If $aArray[$i][1] <> "" Then
$aIndexes = _ArrayFindAll($aArray, $aArray[$i][1], 0, 0, 0, 0, 2)

[/autoit] [autoit][/autoit] [autoit]

If UBound($aIndexes) > 0 Then
ConsoleWrite($aArray[$i][1] & "(" & UBound($aIndexes) & "x)" & @CR & "--------------------" & @CR)
For $y = 0 To UBound($aIndexes) - 1
ConsoleWrite($aArray[$aIndexes[$y]][0] & @CR)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$aArray[$aIndexes[$y]][0] = ''
$aArray[$aIndexes[$y]][1] = ''
Next
ConsoleWrite(@CR)
EndIf
EndIf
Next
_FileWriteFromArray($sInterpretFile, ($aArray[$i][1] & "(" & UBound($aIndexes) & "x)" & @CR & "--------------------" & @CR))

[/autoit] [autoit][/autoit] [autoit][/autoit]

Kann jetzt nicht mehr denken....

Liebe Grüße
Ilse

Ilse

Hallo YaeroxXO,

auch dir herzlichen Dank für die Mühe.
Console write gibt alles aus was ich brauche.

Gibt es irgendeine Möglichkeit das ganze zu sortieren?
Das wäre wichtig. Ich meine der Interpret der die meisten Plazierungen hat steht oben!

Ilse

Ilse

Hallo Oscar,

vielen Dank.
Habe das noch etwas umgebaut. (Dialog)
Ein kleines Problem in Zeile 10!

ich möchte gerne die Arrays in die Datei schreiben!
Da kommt leider noch nichts dann.

Super

Liebe Grüße
Ilse

Ilse

Hallo,

...sorry, Link ist jetzt ok.
Hatte die falsche Datei hochgeladen.

Klappt jetzt!

Ilse

Ilse

Hallo,

hm.. ich wollte das gerne mit Autoit realisieren.
Ich habe mehrere Listen...und dann wäre das
mit Autoit eine bessere Lösung.

Ich bin die ganze Zeit schon an dem Loop dran...
komme da nicht weiter.

Hier mal eine Probeliste einer Textdatei Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Liebe Grüße
Ilse

Ilse

Hallo,

merci, aber das Script funktioniert irgendwie nicht. (Fehler im Loop...)

hier nochmal kpl. mit Änderungen von mir

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

$sSongliste = FileOpenDialog("Neue Liste", @ScriptDir, "Songliste (*.txt)")
$sInterpretFile = "Interpreten.txt"
Global $aInterpreten
Local $aArray[1][2], $aIndexes
For $i = 0 To UBound($aInterpreten)
$aIndexes = _ArrayFindAll($aArray, $aInterpreten[$i])
If @error = 1 Then
If $i = 0 Then
$aArray[$i][0] = $aInterpreten[$i]
$aArray[$i][1]++
Else
ReDim $aArray[$i + 1]
$aArray[$i][0] = $aInterpreten[$i]
$aArray[$i][1]++
EndIf
Else
$aArray[$aIndexes][1]++
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($aArray)
If $aArray[$i][1] > 1 Then
ConsoleWrite($aArray[$i][0] & "(" & $aArray[$i][0] & "x)" & @CR)
ConsoleWrite($aArray[$i][0] & @CR)
Else
ConsoleWrite($aArray[$i][0] & @CR)
EndIf
Next

[/autoit] [autoit][/autoit] [autoit][/autoit]

@ Xenobiologist

habe kein Excel

Liebe Grüße
Ilse

Ilse

Hallo,

ich habe folgendes Problem.
Ich muß eine grosse Songliste bearbeiten.
Sieht so aus:

Spoiler anzeigen

Dancing Queen;ABBA
Fernando;ABBA
Super Trouper;ABBA
Bohemian rhapsody;Queen
Stairway to heaven;Led Zeppelin
Music;Miles John
Child in time;Deep Purple
Tage wie diese;Die Toten Hosen
Hotel California;Eagles
Wish you were here;Pink Floyd
Brothers in arms;Dire Straits
Nothing else matters;Metallica
The rose;Midler Bette
Geboren um zu leben;Unheilig
Smoke on the water;Deep Purple
Hells bells;AC/DC
Am Fenster;City
Highway to hell;AC/DC

Folgendes:
Aus dieser Hitliste (Top 1000) muß ich sagen können: ABBA ist 3x mit diesen Songs vertreten)
Ich muß also aus dieser Liste Interpreten filtern.
Die Liste filtert zur Zeit alle doppelten Interpreten-Einträge
(das klappt... also ABBA, AC/DC...)

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

$sSongliste = FileOpenDialog("Neue Liste", @ScriptDir, "Songliste (*.txt)")
$sInterpretFile = "Interpreten.txt"

[/autoit] [autoit][/autoit] [autoit]

Local $aSongs, $aInterpreten_UNIQUE
_FileReadToArray($sSongliste, $aSongs)
Local $aInterpreten[$aSongs[0]]
For $i = 1 To $aSongs[0]
$aInfo = StringSplit($aSongs[$i], ";", 3)
If UBound($aInfo) <> 2 Then ContinueLoop
$aInterpreten[$i - 1] = $aInfo[1]

[/autoit] [autoit][/autoit] [autoit]

$aInterpreten_UNIQUE = _ArrayUnique($aInterpreten)
_ArrayDisplay($aInterpreten_UNIQUE)

[/autoit] [autoit][/autoit] [autoit]

_FileWriteFromArray($sInterpretFile, $aInterpreten_UNIQUE)

[/autoit]

So nun zum Problem:

Ich bräuchte zusätzlich eine Liste mit der Anzahl der Interpreten:
Beipiel: Der Interpret ist z.B. 3x mal in der Liste vertreten.
ABBA (3)
AC/DC (3)
Deep Purple (2)

Also: Welcher Interpret ist wieviel mal in der TOP 1000 vertreten und mit welchen Songs.

Super wäre natürlich auch eine Liste bei den mehrfach Interpreten
dass die Songs mit aufgelistet werden.

Beispiel:

ABBA (3x in der Liste)
Dancing Queen (Platz 1)
Fernando (Platz 2)
Super Trouper (Platz 3)
AC/DC (2x in der Liste)
Hells Bells (Platz 16)
Highway to hell;AC/DC (Platz 18)
Deep Purple (2x in der Liste)
...

Würd mich freuen wenn Ihr mir daben helfen könnt.

Liebe Grüße
Ilse

Ilse

Hallo Schnitzel,

merci für deine Hilfe.
Ich habe das Programm in einer Sandbox (geschützte Umgebung)
Den Titel habe ich geändert. Also ohne #, geht aber auch nicht.
Ich habe mehrere Fenster probiert... ich kann keines mit WinActivate ansprechen

Im Info Tool Summary steht z.B. in einem Fenster:

Spoiler anzeigen

>>>> Window <<<<
Title: DEMO VERSION
Class: Sandbox:eMail:TmainWindow.UnicodeClass
Position: 2355, 274
Size: 1052, 658
Style: 0x16CF0000
ExStyle: 0x00010100
Handle: 0x00000000002109E4

>>>> Control <<<<
Class: Sandbox:eMail:TTntListView.UnicodeClass
Instance: 2
ClassnameNN: Sandbox:eMail:TTntListView.UnicodeClass2
Name:
Advanced (Class): [CLASS:Sandbox:eMail:TTntListView.UnicodeClass; INSTANCE:2]
ID: 2164510

Mein Versuch mit WinActivate

[autoit]

WinActivate("[Sandbox:eMail:TmainWindow.UnicodeClass]")

[/autoit]

geht nicht.
Ich kann aber mit der Maus das Fenster aktivieren.
Nur nicht per Code!

Liebe Grüße
Ilse

Ilse

Hallo Misterspeed,

sorry, ich konnte mich nicht mehr melden.
Hab's noch nicht geschafft.

Seltsam ist, ich kann auch das Fenster nicht per Code aktivieren!

Infotool: Title oder Class beides geht nicht!

Sieht so aus;

[autoit]

WinActivate("[#] Infofenster [#]")

[/autoit]

also das Hauptfenster mit der Listview.
Hab noch in der Hilfe gestöbert...
ControlCommand ... GetSelected ??? könnte es damit gehen?

Liebe Grüße
Ilse

Ilse

Hallo Joriktos,

merci für deine Hilfe.
Folgendes:
Ich kann mit dem Info Tool quasi die ganze Listview auswählen.
Die Controls werden auch im Info Tool angezeigt.
Die Einträge kann ich mit dem InfoTool nicht auswählen

Ich hann auch wie gesagt den Text in der Listview auswählen... das wars!
Es sind mehrere Zeilen...
Ist den ControlGetText der richtige Befehl?

Liebe Grüße
Ilse

Ilse

Hallo zusammen,

ich habe folgendes Problem:
In einem Programm (es ist eine Listview...)
möchte ich gerne Text in die Ablage kopieren.
Der Text wird in der Listview angezeigt.

Das Programm besitzt aber kein Kontextmenü und die Copyfunktion geht auch nicht (strg c). Es ist also nicht möglich den Text zu kopieren.
Man kann aber den Text markieren.

Kann man irgendwie mit Autoit den Text in die Zwischenablage bekommen.
Als Text Capture?

[autoit]

$var = ControlGetText("[CLASS:TTntListView.UnicodeClass; INSTANCE:2]", "", "657326")
Msgbox(4096,"",$var)

[/autoit]

Ich habe das probiert, die Msgbox bleibt allerdings leer.
Habt Ihr da ne Idee?

Liebe Grüße
Ilse

Ilse

Hey,

das war's! Super!

vielen vielen Dank!

Liebe Grüße
Ilse

Ilse

Hallo Chesstiger,

das sind die Meldungen

[autoit]

(12) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$aInterpreten[$i - 1] = $aInfo[1]
$aInterpreten[$i - 1] = ^ ERROR

[/autoit]

Hier nochmals die Datei die geöffnet wird.
Ist natürlich wesentlich größes

Spoiler anzeigen

Dancing Queen;ABBA
Fernando;ABBA
Super Trouper;ABBA
All That She Wants;Ace Of Base
Aloha Heja He;Achim Reichel
Classic;Adrian Ben Gurvitz
Azzurro;Adriano Celentano
Take On Me;a-ha
Felicità;Al Bano & Romina Power
Spanish Eyes Moon Over Naples;Al Martino
Year Of The Cat;Al Stewart
Tu T'en Vas;Alain Barrière & Noelle Cordier
Don't Answer Me;Alan Parsons Project

Schade...
Liebe Grüße Ilse

Ilse

Hallo Chesstiger,

erstmal danke für die Mühe mit mir.

klappt aber irgendwie nicht.
$sInterpretFile = "Interpreten.txt"

... in dieser txt Datei kommt nichts an.

_FileWriteFromArray schreibt irgendwie nicht in die txt Datei!

Liebe Grüße
Ilse

Ilse

Hallo Chesstiger,

brauch nochmal deine Hilfe.
Hab das Script mit

[autoit]

#include <Array.au3>
#include <file.au3>

[/autoit]

Komm irgendwie nicht weiter. Arrays, da ban ich immer meine Probleme
$Interpret = StringSplit($Line, ";")
ist doch bereits ein array?

Zitat

Alle Titel erstmal temporär in einem Array speichern

Würd mich über ein Beispiel freuen, steh etwas auf dem "Schlauch"

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <file.au3>
$Liste = FileOpenDialog("Neue Liste", @ScriptDir, "Songliste (*.txt)")
$File = FileOpen($Liste, 0)
$file2 = FileOpen("Interpreten.txt", 1)
$sFile = @ScriptDir & "\Interpreten1.txt"
While True
$Line = FileReadLine($File)
If @error Then ExitLoop
_FileWriteFromArray($sFile, $Interpret[2], -1)
$Interpret = StringSplit($Line, ";")
;MsgBox(0, "Lied", $Interpret[1])
;MsgBox(0, "Interpret", $Interpret[2])
FileWriteLine($file2, $Interpret[2])
WEnd

[/autoit] [autoit][/autoit] [autoit]

FileClose($File)
FileClose($File2)
FileClose($sFile)

[/autoit]

Liebe Grüße
Ilse

Ilse

Hallo,

ich habe folgendes Problem:
es gibt eine Liederliste. Hier muß ich nun alle Interpreten
herausfiltern. Der Interpret sollte aber in der neuen Liste
nur einmal erscheinen. (Also nur Interpreten, Bands...)

Beispiel:
Originalliste

Zitat

Dancing Queen;ABBA
Fernando;ABBA
Super Trouper;ABBA
All That She Wants;Ace Of Base
Aloha Heja He;Achim Reichel

Die neue Liste sollte nun so aussehen:

Zitat

ABBA
Ace of Base
Achim Reichel

Hier mal mein Code (ohne Duplicate...)

Spoiler anzeigen

[autoit]

$Liste = FileOpenDialog("Neue Liste", @ScriptDir, "Songliste (*.txt)")
$File = FileOpen($Liste, 0)
$file2 = FileOpen("Interpreten.txt", 1)
While True
$Line = FileReadLine($File)
If @error Then ExitLoop

[/autoit] [autoit][/autoit] [autoit]

$Interpret = StringSplit($Line, ";")
;MsgBox(0, "Lied", $Interpret[1])
;MsgBox(0, "Interpret", $Interpret[2])
FileWriteLine($file2, $Interpret[2]) ; hier müsste irgendwie überprüft werden ob der Interpret bereits existiert???
WEnd

[/autoit] [autoit][/autoit] [autoit]

FileClose($File)
FileClose($File2)

[/autoit]

Hoffe Ihr habt da ne Idee.

Liebe Grüße
Ilse

Ilse

Hallo,

merci für die Tipps.
Werde ich probieren.

Am besten wäre es den Titel in der Gui zu zeigen
also nicht in einer Msgbox.
... ich kämpfe mich mal durch!

Liebe Grüße
Ilse

Beiträge von Ilse

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

ControlGetText

ControlGetText

ControlGetText

ControlGetText

Duplikate Problem

Duplikate Problem

Duplikate Problem

Duplikate Problem

Duplikate Problem

StringSplit Problem