Supportnet / Forum / Skripte(PHP,ASP,Perl...)
-VB6- string zerlegen
Frage
Hallo,
nun habe ich wieder eine Frage :D und zwar habe ich in einem String folgendes stehen :
"010100000001" < sind 12 ziffern (hat nix mit dual zutun, reiner zufall :) )
jetzt moechte ich mit einem Befehl diesen string in 3 Teile aufteilen mit jeweils 4 Ziffern , halt von links angefangen nach rechts. ich glaube da gibt es irgendwie einen Befehl "mid" oder irgendwas mit "right bzw. left" nur weiß ich nicht so recht sie anzuwenden.
Bin denjenigen schonmal dankbar die mir helfen koennen!
Antwort 1 von Saarbauer
Hallo,
Teitext Links = Mid(Text gesamt, 1, 4)
Teitext Mitte = Mid(Text gesamt, 5, 4)
Teitext Rechts= Mid(Text gesamt, 9, 4)
oder
Teitext Links = Left(Text gesamt, 4)
Teitext Rechts= Right(Text gesamt, 4)
Gruß
Helmut
Teitext Links = Mid(Text gesamt, 1, 4)
Teitext Mitte = Mid(Text gesamt, 5, 4)
Teitext Rechts= Mid(Text gesamt, 9, 4)
oder
Teitext Links = Left(Text gesamt, 4)
Teitext Rechts= Right(Text gesamt, 4)
Gruß
Helmut
Antwort 2 von n0ob
Ok ich habe etwas vergessen zu erwaehnen:
ich will das ganze aus einer Textdatei einlesen,
angenommen die hat 50 zeilen mit jeweils solchen
"010100000001" Werten, soll er halt er zeile fuer zeile durchgehen und sie zerschnippeln
file = "D:\test.txt"
Open file For Input As #1
Line Input #1, DataI
Links = Mid(DataI, 1, 4)
Mitte = Mid(DataI, 5, 4)
Rechts = Mid(DataI, 9, 4)
Close #1
das klappt schonmal mit der ersten Zeile wie krieg ich da ne schleife rein? :D
ich will das ganze aus einer Textdatei einlesen,
angenommen die hat 50 zeilen mit jeweils solchen
"010100000001" Werten, soll er halt er zeile fuer zeile durchgehen und sie zerschnippeln
file = "D:\test.txt"
Open file For Input As #1
Line Input #1, DataI
Links = Mid(DataI, 1, 4)
Mitte = Mid(DataI, 5, 4)
Rechts = Mid(DataI, 9, 4)
Close #1
das klappt schonmal mit der ersten Zeile wie krieg ich da ne schleife rein? :D
Antwort 3 von Event
Hallo
Denkbar wäre folgendes:
Gruß
Denkbar wäre folgendes:
Option Explicit
Sub test()
Dim file$, DataI$, Links$, Mitte$, Rechts$
file = "D:\test.txt"
Open file For Input As #1
Do While Not (EOF(1))
Line Input #1, DataI
Links = Mid(DataI, 1, 4)
Mitte = Mid(DataI, 5, 4)
Rechts = Mid(DataI, 9, 4)
Debug.Print Links, Mitte, Rechts
Loop
Close #1
End Sub
Gruß