[.NET] [VB6] String Zeilenweise verarbeiten.

Alex² · 17. Juni 2009

[VB6] String Zeilenweise verarbeiten.

Ich hab nen String, der so aussieht:

Zeile1
Zeile2
Zeile3
Zeile4

Und möchte Folgendes machen:

Lies Zeile1
Verarbeite Zeile 1 Hier möcht ich was auch immer mit der Zeile anstellen können.
Lies Zeile2
Verarbeite Zeile 1 Hier möcht ich was auch immer mit der Zeile anstellen können (Das Selbe wie bei Zeile 1

usw....

Des geht sicherlich mit ner Schleife o.ä.

Mfg Alex²

Anzeige

Chrisomator · 17. Juni 2009

AW: [VB6] String Zeilenweise verarbeiten.

Versuch mal mit einer Do Schleife jedes mal von 1 bis vbNewLine zu gehen, den String aus dem anderen String zu entfernen und wenn der String = "" ist, dann Exit Do

MfG, Chrisomator

N0S · 17. Juni 2009

AW: [VB6] String Zeilenweise verarbeiten.

Code:

Dim s As String
Dim a() As String
s = "Zeile1" & vbNewLine & "Zeile2" & vbNewLine & "Zeile3" & vbNewLine & "Zeile4"

a = Split(s, vbNewLine)

MsgBox a(0)
MsgBox a(1)
MsgBox a(UBound(a))

Alex² · 17. Juni 2009

AW: [VB6] String Zeilenweise verarbeiten.

Danke, ich habs jetzt so gemacht:

Code:

For i = 0 To intLines
Dim s As String
Dim a() As String
s = "Zeile1" & vbNewLine & "Zeile2" & vbNewLine & "Zeile3" & vbNewLine & "Zeile4"

a = Split(s, vbNewLine)

MsgBox a(i)
Next i

intLines ist Dabei eine Variable mit der Zeilenanzahl.

N0S · 17. Juni 2009

AW: [VB6] String Zeilenweise verarbeiten.

ehm das ist ziemlich schlecht... wenn dann so:

Code:

Dim s As String
Dim a() As String

s = "Zeile1" & vbNewLine & "Zeile2" & vbNewLine & "Zeile3" & vbNewLine & "Zeile4"

a = Split(s, vbNewLine)

For i = 0 To UBound(a)
MsgBox a(i)
Next i

Nützliche Suchen

[.NET] [VB6] String Zeilenweise verarbeiten.

Videos zum Themenbereich