Hallo James,
ich weiß, hm..ich wollte mir das klicken, auswählen...
mit der Maus ersparen.
Bei großen Listen ist das sehr umständlich.
Das geht per Taste schneller...
Kann man bei einer Gui einen Button mit einem Hotkey auslösen?
Grüße
Ilse
Schade..
Hallo,
muß mich kurz nochmal melden:
Noch ein Problem:
Wenn z.B. die Msgbox erscheint,
möchte ich dass wenn die F1 Taste gedrückt wird, die Msgbox geschlossen wird!
Beispiel:
Die Msgbox zeigt das Lied und ich drücke F1 um das Lied. in eine Liste zu kopieren
dann kommt die nächste Box und ich drücke zB. F2 ...
$Liste = FileOpenDialog("Neue Liste", @ScriptDir, "Songliste (*.txt)")
$File = FileOpen($Liste, 0)
HotKeySet("{F1}", "_Ballade")
[/autoit] [autoit][/autoit] [autoit]While True
$Line = FileReadLine($File)
If @error Then ExitLoop
$Interpret = StringSplit($Line, ";")
MsgBox(0,"In diese Liste eintragen?", $Interpret[1]&@CRLF&@CRLF&"F1=Ballade"&@CRLF&"F2=Fox"&@CRLF&"F3=Oldies"&@CRLF&"F4=Testen"&@CRLF&"Space=Pause")
;MsgBox(0, "Lied", $Interpret[1])
;MsgBox(0, "Interpret", $Interpret[2])
WEnd
FileClose($File)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _Ballade()
[/autoit] [autoit][/autoit] [autoit];FileWriteLine($Ballade, $Interpret[1]&"--"&$Interpret[2])
MsgBox(4096,"",$Interpret[1]&"- in Balladenliste eingetragen",2)
EndFunc
Habe mit select Case probiert
aber ich weiß nicht wie man da die F1 abfragen kann.
Komme irgendwie nicht weiter.
Liebe Grüße
Ilse
Guten Morgen James,
mußte kurz weg...
Merci für deine Hilfe!
Klappt jetzt prima...
Liebe Grüße
Ilse
Hallo,
ich habe folgendes Problem:
1. Ich öffne eine Liste m. Trennzeichen ;
2. Diese Liste möchte ich nun einfach abfragen.
In einer Zeile sind immer 2 Einträge
Lied und Interpret
...bestimmt mal wieder ein Denkfehler!
Die Liste sieht so aus
Dancing Queen;ABBA
Fernando;ABBA
Super Trouper;ABBA
Der Code
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <INet.au3>
#include <File.au3>
$Liste = FileOpenDialog("Neue Liste", @ScriptDir & "\", "Songliste (*.txt)", 8 )
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$file = FileOpen($Liste, 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$line = FileReadline($file)
$Interpret = StringSplit($line, ";")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]MsgBox(0,"Interpret", $Interpret[1])
MsgBox(0,"Interpret", $Interpret[2])
FileClose($file)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Wend
[/autoit] Grüße Ilse
@ alle
Funktioniert jetzt super!
Dank euch allen!
@ Oscar
das ganze ist sehr unübersichtlich
deswegen hatte ich mich aufs wesentliche beschränkt.
Hilfe hatte ich auch schon hinter mir, bevor ich gepostet habe.
Bin da nicht weitergekommen.
Klappt jetzt prima...
Liebe Grüße Ilse
Hallo,
ich habe ein Problem eine Textdatei in einem Loop
zu bearbeiten und zu öffen.
Wie bekomme ich z.B. die bearbeitete Quellcode.txt in eine VAR?
$file = FileOpen($Liste, 0)
While 1
$line = FileReadLine($file)
;hier wird die Textdatei immer erneuert!
FileWrite (@desktopdir & "\Quellcode.txt", _INetGetSource($Code))
;Die Quellcode.txt wird gefüllt
$Textdat = FileOpen(@desktopdir & "\Quellcode.txt", 2)
[/autoit] [autoit][/autoit] [autoit];ab hier soll diese Datei bearbeitet werden. Aber ich kann die Quellcode.txt nicht anzeigen. Ist vorhanden und gefüllt!
[/autoit] [autoit][/autoit] [autoit]$Auswertung = StringRegExp($Textdat,'<span>(.*?)</span>',3)
Msgbox(0,"",$Auswertung)
FileClose($Textdat)
[/autoit] [autoit][/autoit] [autoit]Wend
[/autoit]Grüße Ilse
Hallo James,
echt klasse!
Vielen Dank! Klappt jetzt super!
Liebe Grüße
Ilse
Hallo James,
super, klappt.
Eine Frage:
Ich muß die Werte irgendwo anders hinschreiben.
Deswegen wäre es gut wenn das vorerst alles in einer VAR hätte statt in einer Datei.
Wie kann ich das alles in eine VAR schreiben. Hast du da eine Idee?
Ilse
Hallo James,
ja, das hab ich auch gemerkt!
Und was sollte ich probieren?
Ilse
Hallo,
ich habe folgendes Problem:
Mit einem Loop werden Strings nacheinander gelesen.
Die Strings sollten in die Zwischenablage (erweitert) od. Var in eine Zeile geschrieben werden.
Also:
A, B, C, D, E ,
Wenn ich das in ein File schreibe steht leider alles untereinander
und ich muß später das File bearbeiten.
Kann man die Werte nicht einfach in eine Zeile in eine VAR schreiben?
Mein Code
$file = FileOpen("Test.txt", 1)
for $i = 0 to UBound ($Eintrag)-1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]FileWriteLine($file, $Eintrag[$i]&"-")
; hier steht alles später im Textfile untereinander....
next
[/autoit] [autoit][/autoit] [autoit]FileClose($file)
[/autoit]Liebe Grüße
Ilse
Hallo zusammen,
ich hab's gelöst.
1. Pfad war ok
2. Befehle alle richtig.
3. #requireAdmin (wurde nicht benötigt)
4. FileMove ok
Der Fehler lag in der Var. mit dem neuen Namen.
Ich habe geschrieben... der erste Eintrag ist ok, aber dann...
Die Var wurde in der MSGBox angezeigt, schien alles in Ordnung zu sein.
Dann habe ich die VAR in eine Ini schreiben lassen
Da ist mir aufgefallen dass ein LF nach der VAR gemacht wurde.
Obwohl ich kein @crlf gesetzt hatte. Seltsam.
Dann habe ich die Datei bearbeitet
und siehe da, alles läuft.
Liebe Grüße
Ilse
Hallo minx,
merci für deine Hilfe.
Ja, so schlau war ich auch schon,
aber auch hier passiert das gleiche.
File 1 wird korrekt benannt (od. verschoben...), und dann passiert nichts mehr.
Das ist wirklich seltsam. Ich habe schon alle Varianten probiert.
Habe ich einen Zähler dann werden alle Files benannt bzw.verschoben
1.mp3
2.mp3
3.mp3
Beim direkten Erstellen m. Namen wird nur das erste File gemacht.
Dann habe ich zum testen eine Inputbox verwenden
und den Text an die Inputbox übergeben, Timeout z.B. 2
ging auch nicht, aber
ACHTUNG: wenn die Inputbox z.B. f. File 1 zum benennen vorher aufgeht
und ich den Text eintippe und dann mit Return bestätige, dann macht er alles richtig.
Auch bei File 2,3,4,5...
Also aus 1.mp3 wird neuerText.mp3 ...Ich kann dann f. alle Files Namen vergeben.
Nur im Script kann ich das nicht automatisieren.
Wird der Text als Variable bei FileMove eingetragen, dann klappt es nicht.
Auch #requireAdmin brachte nicht den Erfolg.
Liebe Grüße
Ilse
Sorry f. doppelpost,
Die Dateien kommen alle im Verzeichnis an
[autoit]
FileMove($Ordner & "\"&$f&".mp3",$Ordner&"\"&$Landwahl[0]&"\")
Sieht also so aus:
1.mp3
2.mp3
3.mp3
Den neuen Namen kann ich ausgeben (ohne.mp3)
Also DateiNeu
Wie kann ich diesen Namen als DateiNeu.mp3 mit FileMove erzeugen?
Also mit dem Namen der mit $Dateiu erzeigt wird.
Ich meine so:
Peter.mp3
Hans.mp3
Udo.mp3
FileMove($Ordner & "\"&$f&".mp3",$Ordner&"\"&$Landwahl[0]&"\")
; das kopiert korrekt 1:1 die Daten
; aber das umbenennen das klappt leider nicht
;FileMove($Ordner & "\"&$f&".mp3",$Ordner&"\"&$Landwahl[0]&"\"&$dateiu&".mp3")
Grüße Ilse
P.S. Auch das geht nicht!
$Quellsatz = $Ordner & "\"&$f&".mp3" ; hier wird der korrekte Quellpfad angezeigt
$Zielsatz = $Ordner&"\"&$Landwahl[0]&"\"&$dateiu&".mp3";hier wird ebenfalls der korrekte Zielpfad mit neuem Namen angezeigt
FileCopy($Quellsatz,$Zielsatz,1)
[/autoit]Hallo zusammen,
nach etlichen Versuchen muß ich mich nun melden.
Ich kann leider das kpl. Script nicht posten,
ist sehr komplex....
Folgendes:
1. Es wird in einem Loop eine Sound.mp3 erstellt
2. Dann wird diese Datei abgespielt und wieder geschlossen.
Bis hierhin OK! Sieht so aus...
[autoit]
$sound = _SoundOpen($Ordner & "\sound.mp3")
_SoundPlay($sound, 1)
_SoundClose($sound)
Beim nächsten Loop-Durchgang wird eine neue Sound.mp3 erstellt.
Das klappt alles, doch jetzt kommt das Problem:
1. Ich möchte diese Sound.mp3 am Ende des Loops
(vor dem next Befehl) in einen neuen Ordner mit neuem Namen verschieben!
Komisch ist, die erste Datei wird umbenannt und kommt an,
aber alle anderen nicht!
FileMove($Ordner & "\sound.mp3",$Ordner&"\"&$Landwahl[0]&"\"&$dateiu&".mp3")
MsgBox(0,"",$dateiu)
Ich kann mir alles mit Msgboxen ausgeben lassen, stimmt alles...(Pfad, Ordner, Datei)
Auch die Sound.mp3 ist jedesmal unterschiedlich...
Aber sie wird nie kopiert und umbenannt... ich habe am Ende nur eine Datei
Also z.B. mein Loop macht 10 verschiedene sound.mp3
Wenn diese erstellt ist, soll sie umbenannt werden und in den Ordner verschoben werden.
Komisch ist, die erste Datei wird erstellt, aber dann passiert nichts mehr!
Also die sound.mp3 v. Quellordner landet im neuen Ordner und ist umbenannt. aber beim nächsten Durchlauf
kommt nichts mehr an!
Liebe Grüße
Ilse
EDIT
Folgendes habe ich nun versucht:
Mein Loop legt die Dateien mit Zahlen an:
Also 1.mp3, 2.mp3, 3.mp3....
Wie kann ich diese 1.mp3 umbenennen und dann verschieben? FileMove klappt irgendwie nicht!
@ alle,
dank euch wieder mal für die tolle Hilfe.
Ich konnte mich leider nicht früher melden. Sorry...
Liebe Grüße
Ilse
Hallo Chesstiger,
konnte mich gestern leider nicht mehr melden.
Das klappt leider auch nicht.
Ich erhalte folgende Fehlermeldung:
Subscript used with non-Array variable.:
$Ordnerliste[$i] = $aTempArray[0]
$Ordnerliste[$i] = $aTempArray^ ERROR
hier nochmal das bisherge Script
#include <File.au3>
#include <Array.au3>
Dim $Ordnerwahl, $ListeNeu, $aTempArray
$file = FileOpen("test.txt", 1)
; Ordner wird ausgewählt
$Ordnerwahl = FileSelectFolder("Bitte Ordner wählen...", "")
$Ordnerliste = _FileListToArray($Ordnerwahl, "*.mp3")
_ArrayDisplay($Ordnerliste)
;Liste wird bearbeitet: z.B. alle suffix entfernen...
[/autoit] [autoit][/autoit] [autoit]$ListeNeu = StringRegExpReplace($Ordnerliste, '.mp3', '', 3)
_ArrayDisplay($ListeNeu,"Original-Dateien")
; Die neue Liste wird als TXT Abgespeichert.
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Prüfen, ob Datei im Schreibmodus geöffnet ist
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
For $I = 1 To $Ordnerliste[0]
;MsgBox(0,"",$Ordnerliste[$i])
$aTempArray = StringRegExp($Ordnerliste[$i],'-\s(.*?)\.mp3',3)
$Ordnerliste[$i] = $aTempArray[0]
FileWriteLine($file, $Ordnerliste[$i] & @CRLF)
Next
FileClose($file)
MsgBox(4096, "Die Liste wurde generiert", "fertig", 1)
EDIT:
Wenn ich z.B. alles in die Zwischenablage kopiere,
dann klappt dieser Code
Global $sSource
$ssource = Clipget()
MsgBox(0,"",$sSource)
$arrayfilter = StringRegExp($sSource,'(?:\D+\s)(?:\-)(?:\s|)(.*?)(?:\.mp3)',3)
_ArrayDisplay($arrayfilter, "Bezeichner")
nur im Script läuft das alles nicht
Liebe Grüße
Ilse
Hallo,
geht leider auch nicht!
Beispiel:
Das ist v. _arraydisplay kopiert
[1]|(Eis Am Stiel) Dalida - Come Prima.mp3
[2]|01 - Boney M - Rivers Of Babylon.mp3
[3]|01 - Danyel Gerard - Butterfly.mp3
[4]|01 - Demis Roussos - Good Bye My Love Good Bye.mp3
[5]|01 - George Baker Selection - Una Paloma Blanca.mp3
[6]|01 - Pussycat - Mississippi.mp3
[7]|01 - Simon & Garfunkel - El Condor Pasa.mp3
hier mal noch ein Screenshot v. Arraydisplay
mit regex kommt nichts an!
Ilse
Hallo,
...gut, wenn es keine Schriftgröße gibt, ich glaube 15-20 Einträge je Spalte.
DIN-A4 Quer...
Versteh nur nicht, warum regex gar nichts zeigt.
Die Einträge sehen z.B. so aus
[autoit]1960 - 16 - Elvis - It's now or never.mp3
Eis am Stil - Volare.mp3
For $I = 1 To $Ordnerliste[0]
;MsgBox(0,"",$Ordnerliste[$i])
$Ordnerliste[$i] = StringRegExp($Ordnerliste[$i],'-\s(.*?)\.mp3',3)
FileWriteLine($file, $Ordnerliste[$i] & @CRLF)
Next
d.h. in der Liste werden nur die Titel gebraucht.
Ilse
Hallo,
merci für die Hilfe.
Deine Frage:
Wieviel Dateien sollen untereinander stehen...
hm, wäre gut wenn man das von der Schriftgröße u. Spaltenanzahl abhängig macht.
Am besten das Blatt ist voll, und man kann es gut lesen
Liebe Grüße
Ilse
EDIT:
Mit StringReplace das geht.
Wie mache ich das mit RegEX?? Da sind noch andere Zeichen drin Zahlen, (-...ware besser!
Hallo zusammen,
ich habe folgendes Problem.
In einem Ordner habe ich eine Menge .mp3 Dateien.
Davon möchte ich nun eine Liste zum ausdrucken generieren.
z.B. quer 4 Spalten.
Also:
1. Ich habe den Inhalt per Array eingelesen. (Klappt)
2. Ich möchte den Inhalt m. regex bearbeiten (Und das klappt schon nicht) z.B. Lied.mp3 soll einfach Lied heißen.
3. Wie kann ich das ganze in 4 Spalten fortlaufend nummeriert bekommen. (neue Spalte, nächstes Blatt)
Hier mein Code
#include <File.au3>
#include <Array.au3>
Dim $Ordnerwahl, $ListeNeu
[/autoit] [autoit][/autoit] [autoit]; Ordner wird ausgewählt
$Ordnerwahl = FileSelectFolder("Bitte Ordner wählen...", "")
$Ordnerliste = _FileListToArray($Ordnerwahl, "*.mp3")
_ArrayDisplay($Ordnerliste)
;Liste wird bearbeitet: z.B. alle suffix entfernen...
[/autoit] [autoit][/autoit] [autoit]$ListeNeu = StringRegExpReplace($Ordnerliste, '.mp3', '', 3)
_ArrayDisplay($ListeNeu)
; Die neue Liste wird als TXT Abgespeichert.
$file = FileOpen("test.txt", 1)
; Prüfen, ob Datei im Schreibmodus geöffnet ist
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
For $i = 1 To UBound($ListeNeu) - 1
[/autoit] [autoit][/autoit] [autoit]If IsArray($ListeNeu) Then
;_ArrayDisplay($array)
FileWriteLine($file, $ListeNeu & @CRLF)
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Next
[/autoit] [autoit][/autoit] [autoit]FileClose($file)
MsgBox(4096, "Die Liste wurde generiert", "fertig", 1)
Liebe Grüße
Ilse
