|
| Autor |
Nachricht |
stalker_mp_
Newbie
Anmeldedatum: 07.06.2007
Beiträge: 4
|
Problem mit Split & Variablen
Verfasst am: 29.08.2007, 14:54 |
|
|
Hallo,
habe in VB6 folgendes Problem:
Ich hab eine Text-Datei in der Datei so gelistet sind:
| Zitat: | Zitat:
AAAA:BBBB
CCCC:SAASD
ASAFSA:3213 |
Nun möchte ich Alles was vor und hinter dem ":" steht in eine ListBox oder in ein Listview object reinsetzen(für alles was vor dem : ist und hinter einzelnde Spalten).
Der Part mit dem einlesen der Txt hab ich schon, aber ab Split hakts...
Wer kann mir da weiter helfen und ein paar snippets liefern?
Gruß
Stalker |
|
| |
|
 |
r4z3r_
« Webmaster »
Anmeldedatum: 06.02.2007
Beiträge: 252
|
Verfasst am: 29.08.2007, 15:21 |
|
|
[vb:1:f766057046]Dim b() As String
Private Sub Command1_Click()
a = Text1.Text
b = Split(a, ":")
For i = 0 To UBound(b)
List1.AddItem (b(i))
Next i
End Sub
[/vb:1:f766057046] |
|
| |
|
|
stalker_mp_
Newbie
Anmeldedatum: 07.06.2007
Beiträge: 4
|
Verfasst am: 29.08.2007, 18:09 |
|
|
| Ja nur mein Problem ist das ich die txt nicht richtig in Text1.Text einlesen kann...wird mir immmer nur die erste zeile eingelesen.. |
|
| |
|
|
413X_
« Moderator »
Anmeldedatum: 16.12.2006
Beiträge: 266
|
Verfasst am: 29.08.2007, 18:27 |
|
|
Lol, eben meintest du doch noch das das Auslesen grad geht, und Split nich hinkriegst?
[vb:1:3a0fe3a016]
Do Until LOF(ff)
line input ff, sTemp
text1 = text1 & vbcrlf stemp
loop
[/vb:1:3a0fe3a016]
http://www.413x.dl.am
Tod den 1337-Scriptkiddies xD |
|
| |
|
|
TheCoder_
Überflieger
Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen
|
Verfasst am: 29.08.2007, 18:38 |
|
|
Ich denke mal Stalker wird verpeilt haben die textbox auf Multiline = True zu stellen
klar das dann der text nicht richtig angezeigt wird
|
|
| |
|
|
stalker_mp_
Newbie
Anmeldedatum: 07.06.2007
Beiträge: 4
|
Verfasst am: 29.08.2007, 20:33 |
|
|
Ähm ich war grad mal ziemlich verwirrt^^.
Habs jetzt wirklich mit einlesen und alles....
[vb:1:2458010513]
Private Sub Command2_Click()
Dim s As String
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, zl
s = zl
Loop
Close #1
End If
Dim b$(), c$(), i&
b = Split(s, vbCrLf)
For i = LBound(b) To UBound(b)
c = Split(b(i), ":")
ListView1.ListItems.Add(, , c(0)).SubItems(1) = c(1)
Next i
[/vb:1:2458010513]
Nun gibt er mir aber aus "Ungültiger Eigenschaftswer" und markiert mir das Fett gedruckte. |
|
| |
|
|
Registrieren
Login
