Ich glaube das geht in Version 3.30 noch nicht
Ordnersystem wie bei Windows
die hat er gekillt ^^, aber inzwischen wissen es doch (fast) alle ^^
@Tombi
sowas selber zu bauan ist recht einfach, das kann sogar 3.3
Du brauchst nur FindString()
dann kannst du auslesen was in einer Zeile steht.
Und bei einer { dann zB in eine andere Procedure gehen (stichwort rekursivität)
@Tombi
sowas selber zu bauan ist recht einfach, das kann sogar 3.3
Du brauchst nur FindString()
dann kannst du auslesen was in einer Zeile steht.
Und bei einer { dann zB in eine andere Procedure gehen (stichwort rekursivität)
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Wie was (wo)? Du parst die Datei einfach mit den ganz normalen Befehlen der File-Lib.
>Du brauchst nur FindString()
Mid(..) nicht vergessen.
Edit:
@tombi:
Hier hab mal schnell was geschrieben(Achtung, sollte verbessert werden!):
Edit: Wobei ich jetzt nicht weiß, ob es bei 3.3 auch Eof gibt.
>Du brauchst nur FindString()
Mid(..) nicht vergessen.
Edit:
@tombi:
Hier hab mal schnell was geschrieben(Achtung, sollte verbessert werden!):
Code: Alles auswählen
Global line.s
Procedure parse()
If Mid(line,1,5)="file:"
Debug "Datei: "+Mid(line,6,Len(line))
EndIf
If Mid(line,1,4)="dir:"
Debug "Ordner: "+Mid(line,5,Len(line))+Chr(10)+"{"
Repeat
line.s=LTrim(ReadString(0))
parse()
Until Mid(line,1,1)="}" Or Eof(0)<>0
Debug"}"
EndIf
EndProcedure
If ReadFile(0,"test.txt")
While Not Eof(0)
line=LTrim(ReadString(0))
parse()
Wend
CloseFile(0)
EndIf
Zuletzt geändert von X0r am 21.04.2008 20:59, insgesamt 1-mal geändert.
