✔ Hilfe bei VB-Script

[exiter28]

Hallo,

vielleicht kennt sich einer von Euch mit VB-S aus?...

Ich hätte folgende aufgabe:

eine Datei mit folgendem Inhalt soll in mehrere Dateien aufgeteilt werden:

Inhalt:

12684;12.10.2010;16:00:00;M1;7;M2;15;Encoder;0.49;GSMQ;65;Batt;3533;

Trennzeichen sind die Semmi´s. Die ersten 3 Spalten (12684; 12.10.2010 und 16:00:00)
werden in jeder Datei immer benötigt. Dazu sollen nun die nächsten 2 integriert werden (M1 und 7). Also die erste gesplittete Datei soll nun 5 Spalten haben (12684; 12.10.2010; 16:00:00; M1; 7). die nächste Datei (12684; 12.10.2010; 16:00:00; M2; 15) die 3. Datei (12684; 12.10.2010; 16:00:00; Encoder; 0.49) die 4. Datei (12684; 12.10.2010; 16:00:00; GSMQ; 65) und die 5. Datei (12684; 12.10.2010; 16:00:00; Batt; 3533)

Ich hoffe ich hab´s deutlich erklären können?
nun hab ich mir vorgestellt, daß ich das ganze evtl. mit der Split Funktion lösen könnte.
Das Problem ist aber, daß damit immer nur nach hinten gezählt werden kann. Bei der 1. Datei würde das damit möglich sein, jedoch ab der 2 dann nciht mehr.

Seht Ihr eine Möglichkeit********


Danke schon mal!

 

[deepthroat]

Hi.

Dim Spalte
Spalte = Split(Zeile, ";")

SchreibeDatei(Datei1, Spalte(0), Spalte(1), Spalte(2), Spalte(3), Spalte(4))
SchreibeDatei(Datei2, Spalte(0), Spalte(1), Spalte(2), Spalte(5), Spalte(6))
SchreibeDatei(Datei3, Spalte(0), Spalte(1), Spalte(2), Spalte(7), Spalte(8))
SchreibeDatei(Datei4, Spalte(0), Spalte(1), Spalte(2), Spalte(9), Spalte(10))
SchreibeDatei(Datei5, Spalte(0), Spalte(1), Spalte(2), Spalte(11), Spalte(12))

Gruß

 

[exiter28]

danke für den Tipp.
ich hab das mal versucht:

spalte = split(strContents,";")
zeile = spalte(0) & ";" & spalte(1) & ";"spalte(2) & ";" & spalte(3) & ";" & spalte(4)
objstream.WriteLine zeile

wenn ich das script ausführe, bekomme ich die Fehlermeldung: Anweisungsende erwartet. Die Zeile betrifft:
zeile = spalte(0) & ";" & spalte(1) & ";"spalte(2) & ";" & spalte(3) & ";" & spalte(4)

was mache ich noch falsch?

 

[deepthroat]

wenn ich das script ausführe, bekomme ich die Fehlermeldung: Anweisungsende erwartet. Die Zeile betrifft:
zeile = spalte(0) & ";" & spalte(1) & ";"spalte(2) & ";" & spalte(3) & ";" & spalte(4)

was mache ich noch falsch?

Du hast ein & zwischen ";" und spalte(2) vergessen.

Gruß

 

[exiter28]

OK, danke das war´s