ich habe da mal eine Frage im Bezug Daten aus File einlesen und entsprechend zuweisen. Mein Prog-Beispiel filtert den entsprechenden Code. Gibt es eine einfachere bessere Möglichkeit ohne Left, Len, Mid und zeilex = ?
Code: Alles auswählen
druckzeilen$ = "C:\Druckzeilen\Druckzeilen.txt"
If ReadFile(1,druckzeilen$) ; Zuweisung der einzelnen Druckzeileninhalte
While Eof(1)=0
druckzeile$=ReadString(1)
If Left(druckzeile$,8)="zeile1 =":L=Len(druckzeile$)-8:druck1$=Mid(druckzeile$,10,L):EndIf
If Left(druckzeile$,8)="zeile2 =":M=Len(druckzeile$)-8:druck2$=Mid(druckzeile$,10,M):EndIf
If Left(druckzeile$,8)="zeile3 =":N=Len(druckzeile$)-8:druck3$=Mid(druckzeile$,10,N):EndIf
If Left(druckzeile$,8)="zeile4 =":O=Len(druckzeile$)-8:druck4$=Mid(druckzeile$,10,O):EndIf
If Left(druckzeile$,8)="zeile5 =":P=Len(druckzeile$)-8:druck5$=Mid(druckzeile$,10,P):EndIf
Wend
CloseFile(1)
EndIf
Debug "Druckzeile 1 = " + druck1$
Debug "Druckzeile 2 = " + druck2$
Debug "Druckzeile 3 = " + druck3$
Debug "Druckzeile 4 = " + druck4$
Debug "Druckzeile 5 = " + druck5$
;#################################
;Inhalt von Druckzeilen.txt (Zeilen mit Platzhalter und Formatierungen):
;zeile1 = <g1550#335#660#660#$$$$$$NNN$$.bmp><t300#1#180B#Amazone MM Black#AMAZONE><t100#650#120#arial#357098>
;zeile2 = <t100#300#120#arial#$N$NN$N$>
;zeile3 = <t100#475#120#arial#$$$$$$NNN$$>
;zeile4 = <t100#475#120#arial#!!!$$$NNN$$>
;zeile5 = <t100#825#120#arial#***§§§###>
