Supportnet Computer
Planet of Tech

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

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

Antwort 3 von Event

Hallo

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ß

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: