VBS Zeilen einer TXTDatei einlesen/übernehmen

[faro01]

Hallo,

ich habe folgendes Problem:

Ich habe eine Textdatei die folgendermaßen aufgebaut ist:

Datum: 20.06.2011 15:26:35
Merkmalname;Sollwert;UT;LT;Gemessen;Abweichung
Pruefplannummer - 010 33 52285
Bauteilname - Zylinderkopf
.
.
----Leerzeile----
Versatz polar - Istwert.Länge;0.000;0.400;0.000;0.125;0.125
Versatz polar - Istwert.LX;0.000;0.500;-0.500;0.115;
Versatz polar - Istwert.LY;0.000;0.050;-0.050;0.000;
usw.

Wichtig ist der Inhalt der TXT Datei nach der Leerzeile.
Ich muss nun mit VBS ab der Leerzeile prüfen ob ein ; am Schluss steht oder nicht. Wenn ein ; am Schluss steht soll die Zeile gelöscht werden. Falls keines am Schluss steht soll die jeweilige Zeile außer dem letzten Wert übernomen werden.
z.B. Bei Versatz polar: Die Zeile soll übernommen werden außer der letzte Wert 0.125.

Kann mir da jemand weiterhelfen wie ich die Sache am Besten programmiere?
Wäre um jede Hilfe dankbar!
Grüße

[Mensch_3_11_f1a974]

Hallo,

Einlesen/Schreiben txt:
-> http://www.crash-techs.net/blogMyTrash/mit-vb-script…
-> http://www.computerperformance.co.uk/vbscript/vbscri…

Prüfzeichen:
-> http://www.w3schools.com/VBscript/vbscript_ref_funct…
-> http://www.aspheute.com/artikel/20000503.htm
-> http://www.w3schools.com/vbscript/func_instr.asp

Dynamisches Array:
-> http://www.aspheute.com/artikel/20000927.htm

Wichtig ist der Inhalt der TXT Datei nach der Leerzeile.
Ich muss nun mit VBS ab der Leerzeile prüfen ob ein ; am
Schluss steht oder nicht. Wenn ein ; am Schluss steht soll die
Zeile gelöscht werden. Falls keines am Schluss steht soll die
jeweilige Zeile außer dem letzten Wert übernomen werden.
z.B. Bei Versatz polar: Die Zeile soll übernommen werden außer
der letzte Wert 0.125.

Pseudocode:

TEXT txtin = ÖFFNE(„test.txt“);
DYNAMISCH STRINGARRAY ziel;
BOOL Leerzeile = FALSE;

WHILE (Zeile x in txtin == TRUE)
IF (x == „“) THEN
Leerzeile = TRUE;
ENDIF;

IF (Leerzeile == TRUE) THEN
IF (VONRECHTS(x,1) IS NOT „;“) THEN
ziel.DAZU(SUBSTRING(1,(MAXINDEX(";")-1))); //Das wird die größte Herausforderung…
ENDIF;
ENDIF;
ENDLOOP;

TEXT textout = SCHREIBE(„neu.txt“, ziel);

Grüße Roman