Ausgabe aufteilen

Computer: Software & Programmierung Visual Basic
#1

Moin,

Ich lese eine Datei aus. Teile diese immer beim Zeilenumbruch, entferne die Leerzeile. und gebe diese aus.
Nun habe ich die Zeilen wie ich sie brauche in der fld(i)
Aber diese möchte ich noch mal nach jeden Leerzeichen teilen und auf Listbox 1-8 Aufsplitten . Also erster wert bis leerzeichen list1 . nächster Wert List 2 … irgendwie stehe ich heute wiederauf dem Schlauch
dankemfg joe

Dim i As Integer
Dim zl As String
Dim fld() As String
Dim zd() As String
zl = textvar
ff = FreeFile
n = 0

Open "d:\HWF.txt" For Input As #ff
While Not EOF(ff)
Line Input #ff, textvar

zl = Replace(zl, Chr(9), " ")
zl = Replace(zl, "VERS 5", "")
fld = Split(zl, Chr(10))

For i = LBound(fld) To UBound(fld)
List1.AddItem fld(i)
Next
 n = n + 1
Wend
Close #ff

[MOD] Pre-Tags eingefügt.

#2

Hi Joe,
benutze bitte den Pre-Tag und schreibe möglichst eine komplette Sub.
Was soll n und zd()?
Ich schreibe keine komplette Sub weil ich hier eh nix testen kann :smile:

For i = LBound(fld) To UBound(fld)
 fld2=split(fld(i))
 List1.AddItem fld2(0)
 List2.AddItem fld2(1)
 List3.AddItem fld2(2)
 List4.AddItem fld2(3)
 ...
Next

Geht sicher wie nachfolgend angedacht besser, aber ungetestet kann 
ich bei der Syntax schiefliegn:

For i = LBound(fld) To UBound(fld)
 fld2=split(fld(i))
 for A=1 to 8 
 activesheet.shapes("List" & A).AddItem fld2(A-1)
 next A
Next i

Gruß
Reinhard

Ich lese eine Datei aus. Teile diese immer beim Zeilenumbruch,
entferne die Leerzeile. und gebe diese aus.
Nun habe ich die Zeilen wie ich sie brauche in der fld(i)
Aber diese möchte ich noch mal nach jeden Leerzeichen teilen
und auf Listbox 1-8 Aufsplitten . Also erster wert bis
leerzeichen list1 . nächster Wert List 2 … irgendwie stehe
ich heute wiederauf dem Schlauch
dankemfg joe

Dim i As Integer
Dim zl As String
Dim fld() As String
Dim zd() As String
zl = textvar
ff = FreeFile
n = 0

Open „d:\HWF.txt“ For Input As #ff
While Not EOF(ff)
Line Input #ff, textvar

zl = Replace(zl, Chr(9), " ")
zl = Replace(zl, „VERS 5“, „“)
fld = Split(zl, Chr(10))

For i = LBound(fld) To UBound(fld)
List1.AddItem fld(i)
Next
n = n + 1
Wend
Close #ff

#3

Hmmm was mache ich hier wieder falsch ?

Private Sub Form_Load()

Dim i As Integer
Dim x As Integer
Dim zl As String
Dim fld() As String
Dim fld2() As String
ff = FreeFile


Open "d:\HWF.txt" For Input As #ff
While Not EOF(ff)
Line Input #ff, textvar
zl = textvar
zl = Replace(zl, Chr(9), " ")
zl = Replace(zl, "VERS 5", "")
fld = Split(zl, Chr(10))

For i = LBound(fld) To UBound(fld)

Next i

For i = LBound(fld2) To UBound(fld2)
fld2(i) = Split(fld(i))
List2.AddItem fld2(0)
List2.AddItem fld2(1)
List3.AddItem fld2(2)
List4.AddItem fld2(3)
List5.AddItem fld2(4)
List6.AddItem fld2(5)
List7.AddItem fld2(6)
List8.AddItem fld2(7)
List9.AddItem fld2(8)
List7.AddItem fld2(9)
List8.AddItem fld2(10)
List9.AddItem fld2(11)
Next i
Wend

Close #ff
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hi Joe,

Hmmm was mache ich hier wieder falsch ?

a) wieder kein Pre-Tag.

b) du gibst nicht an Was nicht/Was passiert, wo der Debugger den Fehler anzeigt usw.

c) wahrscheinlich mein Fehler,
fld2(i) = Split(fld(i)) müßte heißen fld2 = Split(fld(i))
das ergibt möglicherweise einen Deklarationsfehler bei Dim fld() As String, also laß das zum Testen erstmal weg.

Gruß
Reinhard

Private Sub Form_Load()

Dim i As Integer
Dim x As Integer
Dim zl As String
Dim fld() As String
Dim fld2() As String
ff = FreeFile

Open „d:\HWF.txt“ For Input As #ff
While Not EOF(ff)
Line Input #ff, textvar
zl = textvar
zl = Replace(zl, Chr(9), " ")
zl = Replace(zl, „VERS 5“, „“)
fld = Split(zl, Chr(10))

For i = LBound(fld) To UBound(fld)

Next i

For i = LBound(fld2) To UBound(fld2)
fld2(i) = Split(fld(i))
List2.AddItem fld2(0)
List2.AddItem fld2(1)
List3.AddItem fld2(2)
List4.AddItem fld2(3)
List5.AddItem fld2(4)
List6.AddItem fld2(5)
List7.AddItem fld2(6)
List8.AddItem fld2(7)
List9.AddItem fld2(8)
List7.AddItem fld2(9)
List8.AddItem fld2(10)
List9.AddItem fld2(11)
Next i
Wend

Close #ff
End Sub

Hi Joe,
benutze bitte den Pre-Tag und schreibe möglichst eine
komplette Sub.
Was soll n und zd()?
Ich schreibe keine komplette Sub weil ich hier eh nix testen
kann :smile:

For i = LBound(fld) To UBound(fld)
fld2=split(fld(i))
List1.AddItem fld2(0)
List2.AddItem fld2(1)
List3.AddItem fld2(2)
List4.AddItem fld2(3)
…
Next

Geht sicher wie nachfolgend angedacht besser, aber ungetestet
kann
ich bei der Syntax schiefliegn:

For i = LBound(fld) To UBound(fld)
fld2=split(fld(i))
for A=1 to 8
activesheet.shapes(„List“ & A).AddItem fld2(A-1)
next A
Next i

Gruß
Reinhard

Ich lese eine Datei aus. Teile diese immer beim Zeilenumbruch,
entferne die Leerzeile. und gebe diese aus.
Nun habe ich die Zeilen wie ich sie brauche in der fld(i)
Aber diese möchte ich noch mal nach jeden Leerzeichen teilen
und auf Listbox 1-8 Aufsplitten . Also erster wert bis
leerzeichen list1 . nächster Wert List 2 … irgendwie stehe
ich heute wiederauf dem Schlauch
dankemfg joe

Dim i As Integer
Dim zl As String
Dim fld() As String
Dim zd() As String
zl = textvar
ff = FreeFile
n = 0

Open „d:\HWF.txt“ For Input As #ff
While Not EOF(ff)
Line Input #ff, textvar

zl = Replace(zl, Chr(9), " ")
zl = Replace(zl, „VERS 5“, „“)
fld = Split(zl, Chr(10))

For i = LBound(fld) To UBound(fld)
List1.AddItem fld(i)
Next
n = n + 1
Wend
Close #ff

#5

OT - Pre Tags
Hallo Reinhard,

a) wieder kein Pre-Tag.

das sieht mit Pre-Tags auch nicht viel anders aus, deshalb habe ich da mal keine hinein editiert.

Allgemein hast Du aber Recht, es ist nicht meine Hauptaufgabe, in jedem zweiten Beitrag die Pre-Tags nachträglich einzupflegen. :smile:

Gruß, Rainer