een tekst bestand veranderen

[papsko]

Beste mensen,


Ik zit met een probleem. Even uitleggen wat de bedoeling is.

Ik heb een file genaamd joblist.txt
daarin staat gegevens over sommige testen dat een apparaat moet gaan uitvoeren.

2020012401;AAAA;BBBB;CCCC;DDDD;
2021258709;AAAA;CCCC;EEEE;FFFF;GGGG
etc

de bedoeling is uiteindelijk dat de joblist uiteindelijk zo gaat uitzien.

2020012401;AAAA;
2020012401;BBBB;
2020012401;CCCC;
2020012401;DDDD;
2021258709;AAAA;
2021258709;CCCC;
2021258709;EEEE;
2021258709;FFFF;
2021258709;GGGG
etc

kan iemand mij helpen in de goede richting?

 

[MatthiWare]

Ik snap de vraag niet helemaal.
Wil je het bestandje schrijven of lezen? of iets anders ^^?

 

[papsko]

eerst lezen dan opnieuw schrijven evt. onder een andere naam

 

[MatthiWare]

Dus als ik het goed begrijp leest hij het tekst bestandje zo:

2020012401;AAAA;BBBB;CCCC;DDDD;

En bij het schrijven moet het

2020012401;AAAA;
2020012401;BBBB;
2020012401;CCCC;
2020012401;DDDD;

Worden?

 

[edmoor]

Daarvoor kun je heel goed een array gebruiken die je vult door per regel de Split functie op ; te gebruiken en de regel dan net zo vaak weg te schrijven als het aantal elementen, waarbij element 0 dan iedere keer het begin van de regel is. Ieder element schrijf je dan weer weg met een ; erachter.

 

[papsko]

yes matthiware

 

[AnthoVN]

Arrays arrays arrays ..
oehw dat zit ver weg

Heb je een bepaald aantal gegevens, of een onbekend/Veranderlijk aantal?

indien het een vast aantal gegevens is kan je dit wel doen denk ik

dim ArrJobs(6) <-- het aantal -1, aangezien arrays bij 0 beginnen As string

ArrJobs(0) = ......;
Arr(1) = .........;;;

indien je met rijen& kolommen werkt




'hierin is 3, het aantal kolommen [ -- > 4, beginnend bij 0]
dim ArrJobs(6,3) <-- het aantal -1, aangezien arrays bij 0 beginnen As string = New String { .... , .. , .. , .. },
volgende rij gegevens {..., ... ,... ,..,..},

(altijd de KOMMA zetten na het afsluiten van een rij)

indien ik fout ben, mn excuses

 

[JoZ1]

Ervanuitgaande dat het lezen goed lukt.

[cpp]Dim Input As String = "2020012401;AAAA;BBBB;CCCC;DDDD;"
Dim Getal, Output As String
For Each Item As String In Input.Split(";")
If Getal = "" Then
Getal = Item
Else Output &= Getal & ";" & Item & vbNewLine
Next
MsgBox(Output)[/cpp]


Ik heb 't niet getest, maar ik denk wel dat dit moet werken.

 

[edmoor]

Dat ziet eruit als wat ik bedoelde JoZ1.

 

[papsko]

thx guys, tis me gelukt met de spit functie.... maar op en andere manier. getest en het werkt... apparaat herkent het ook... thx allen.
En nu een script maken voor het optarten... Even googlen.....

 

[JoZ1]

OK, dus deze kan op opgelost?

 

[papsko]

ja, het is opgelost...
zelfs de script werkt...

thx allemaal

 

[MartinJM]

Druk je dan ook even op 'vraag opgelost'??

(zit rechtsboven bij de eerste post)