Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Hat sich erledigt.
Autor: peter (---.002.202.pools.vodafone-ip.de)
Datum:   30.12.21 11:12

Ich wollte mehrere Editfenster untereinander wo ich die Text-Dateien von einem Ordner liste , nur die Dateinamen mit Endung. Es sind 3 Editfenster untereinander.
Diese Dateien wollte ich dann mit der Maus rüberschieben in einem Texteditor Notepad++


Dann wollte ich alle Dateien von einem bestimmten Ordner in eine test.img schieben ohne "EXE" "exe" und ohne "BAT" ""bat" zb.

Und verschiedene Windowsprogramme starten.

Alles mit Button.


Gruss

Mal ein Muster :

ButtonGadget(#button_1, 190,700, 80, 25, "next")
ButtonGadget(#button_2, 190,725, 80, 25, "next rs232")
ButtonGadget(#button_3, 10,115, 80, 25, "put lib")
ButtonGadget(#button_3a, 100,115, 80, 25, "rm lib")
ButtonGadget(#button_4, 10,255, 80, 25, "put inc")
ButtonGadget(#button_4a, 100,255, 80, 25, "rm inc")
ButtonGadget(#button_5, 10,700, 80, 25, "put fth")
ButtonGadget(#button_5a, 10,725, 80, 25, "rm fth")
ButtonGadget(#button_6, 100,700, 80, 25, "editor")
ButtonGadget(#button_7, 100,725, 80, 25, "asm")
ButtonGadget(#button_8, 190,750, 80, 25, "sprite")

Procedure make_lib()
CreateFile(1,"d:\vscode_zx\cspect\pebi-lib\make-nex.bat")

a="hdfmonkey.exe put d:\vscode_zx\cspect\systemnext.img "
b=" /tools/vforth/lib/"

Directory$ = "d:\vscode_zx\cspect\pebi-lib"
ExamineDirectory(0, Directory$, "*.*")

While NextDirectoryEntry(0)
datei1=DirectoryEntryName(0)

If Right(datei1,3) = "exe" Or Right(datei1,3)="bat"
Goto weiter
Else
WriteStringN(1,a+datei1+b+datei1)
EndIf
weiter:
Wend
FinishDirectory(0)
CloseFile(1)

RunProgram("make-nex.bat","", "d:\vscode_zx\cspect\pebi-lib")
EndProcedure

Procedure make_fth()
CreateFile(1,"d:\vscode_zx\cspect\pebi-fth\make-nex.bat")
WriteStringN(1,"hdfmonkey.exe mkdir d:\vscode_zx\cspect\systemnext.img fth")

a="hdfmonkey.exe put d:\vscode_zx\cspect\systemnext.img "
b=" /fth/"

Directory$ = "d:\vscode_zx\cspect\pebi-fth"
ExamineDirectory(0, Directory$, "*.*")

While NextDirectoryEntry(0)
datei1=DirectoryEntryName(0)

If Right(datei1,3) = "exe" Or Right(datei1,3)="bat"
Goto weiter
Else
WriteStringN(1,a+datei1+b+datei1)
EndIf
weiter:
Wend
FinishDirectory(0)
CloseFile(1)

RunProgram("make-nex.bat","", "d:\vscode_zx\cspect\pebi-fth")
EndProcedure

.......



Nachricht bearbeitet (30.12.21 11:18)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 19.12.21 13:49 
 Re: Hat sich erledigt.  Neu
p. specht 19.12.21 22:37 
 Re: Hat sich erledigt.  Neu
Heinz Brill 20.12.21 07:23 
 Re: Hat sich erledigt.  Neu
p. specht 20.12.21 13:34 
 Re: Hat sich erledigt.  Neu
peter 30.12.21 11:12 
 Re: Hat sich erledigt.  Neu
Heinz Brill 30.12.21 17:47 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 30.12.21 19:43 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 30.12.21 21:32 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 30.12.21 21:57 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 31.12.21 10:57 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 31.12.21 13:46 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 31.12.21 17:08 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 01.01.22 11:00 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 01.01.22 13:58 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 01.01.22 18:43 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 02.01.22 09:09 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 02.01.22 09:28 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 02.01.22 13:39 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org