[.NET] [VB6] String Zeilenweise verarbeiten.

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Alex², 17. Juni 2009 .

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 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²
     

  2. Anzeige
    Dealz: stark reduzierte Angebote finden.
  3. #2 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
     
  4. #3 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))
     
  5. #4 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.
     
  6. #5 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
     

  7. Videos zum Thema
Die Seite wird geladen...