Zu hohl für bestimmte Funktion

  • VB6

    Zu hohl für bestimmte Funktion

    Tach leute.
    Brauche gerade eine bestimmte Funktion und bin
    anscheinend zu hohl, auf eien Idee zu kommen.

    Visual Basic-Quellcode

    1. Option Explicit
    2. Public Function aasConvert(ByRef Coll As Collection, Chars As String, Delimiter As String)
    3. '...
    4. End Function
    5. Private Sub cmdAlert_Click()
    6. Dim Col As Collection
    7. Set Col = New Collection
    8. aasConvert Col, txtText.Text, " => "
    10. Dim i As Integer
    11. For i = 1 To Col.Count Step 1
    12. MsgBox "test" & i, vbOKOnly, Col(i)
    13. Next
    14. End Sub


    Die Funktion soll Anhand des Delimiters einen text splitten
    und die Stücke des Ganzen Strings alle in jeweils
    ein Feld der Collection ablegen.

    Bsp:
    element1 => hallo
    element2 => 0
    element3 => jodolehitiii

    Collection (
    "element1"="hallo",
    "element2"=0,
    "element3"="jodolehitiii"
    )

    Das Schwierigste ist aber

    element1 => jo sven,
    wie gehts?
    element2 => 0
    element3 => jodolehitiii

    ->

    Collection (
    "element1"="jo sven," & vbCrLf & "wie gehts?",
    "element2"=0,
    "element3"="jodolehitiii"
    )

    würde mir jemand einen ansatz dafür geben?

    // edit
    Ich glaube, soweit bin ich auf dem richtigen Weg

    Visual Basic-Quellcode

    1. Public Function aasConvert(ByRef Coll As Collection, Chars As String, Delimiter As String)
    2. Dim Pos1 As Integer, Pos2 As Integer, Buf As String
    3. Do
    4. Pos1 = InStr(Chars, Delimiter)
    5. If Pos1 = 0 Then
    6. Buf = Buf & Chars
    7. Chars = ""
    8. Else
    10. '...
    11. End If
    12. Loop Until Chars = ""
    13. End Function


    herrgott!!! mit php geht es so leicht, wieso nicht vb???

    // edit 2 bzw 3:
    ist schon gut, ein regex macht's.
    erledigt...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „weed“ ()

Facebook
Telefonspende