Split in Visual Basic 2005 Express

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von kevinhro.

    Split in Visual Basic 2005 Express

    Hallo,

    ich bin ein totaler Neuling in VB und wahrscheinlich ne einfache Frage.

    Ich möchte einen String den ich aus einer Textdatei auslese in ein Array schreiben, es handelt sich um eine csv datei.


    test$="Meier;Müller;Otto;Ernst"


    dazu habe ich eine Funktion gefunden

    aber wie übergebe ich die Variable an die Function und wie bekomme ich die Werte zurück, ich sehe da nicht durch ;(

    VB.NET-Quellcode

    1. Public Function Split( _
    2. ByRef Expression As String, _
    3. Optional ByRef Delimiter As String = " ", _
    4. Optional ByVal Count As Long = -1, _
    5. Optional ByVal Compare As VbCompareMethod = vbBinaryCompare _
    6. ) As Variant
    7. Dim DelimiterLen As Long
    8. Dim Index As Long
    9. Dim Start As Long
    10. Dim Strings() As String
    11. Dim StringsCount As Long
    12. Dim StringsUBound As Long
    13. Dim StringsPtr As Long
    15. If Count And Len(Expression) > 0 Then
    17. DelimiterLen = Len(Delimiter)
    18. If DelimiterLen Then
    19. 'Speicher reservieren:
    20. If Count < 0 Then
    21. Count = Len(Expression) \ DelimiterLen
    22. Else
    23. Count = Count - 1
    24. End If
    25. If Count < 2048 Then
    26. StringsUBound = Count
    27. Else
    28. StringsUBound = 1024
    29. End If
    30. ReDim Strings(StringsUBound)
    32. 'String splitten:
    33. Start = 1
    34. For StringsCount = 0 To Count - 1
    35. 'Nächsten Delimiter suchen:
    36. Index = InStr(Start, Expression, Delimiter, Compare)
    37. If Index = 0 Then Exit For
    39. 'Ggf. Array vergrößern:
    40. If StringsCount > StringsUBound Then
    41. StringsUBound = StringsCount * 2
    42. ReDim Preserve Strings(StringsUBound)
    43. End If
    45. 'Teilstring speichern:
    46. Strings(StringsCount) = _
    47. Mid$(Expression, Start, Index - Start)
    48. Start = Index + DelimiterLen
    49. Next StringsCount
    50. Strings(StringsCount) = Mid$(Expression, Start)
    52. 'Ggf. Array verkleinern:
    53. If StringsCount < StringsUBound Then _
    54. ReDim Preserve Strings(StringsCount)
    56. Else
    57. 'Delimiter ist Leerstring:
    58. ReDim Strings(0)
    59. Strings(0) = Expression
    60. End If 'DelimiterLen
    61. Split = Strings
    63. Else
    64. 'Nichts zu tun:
    65. Split = Array()
    66. End If 'Count And Len(Expression) > 0
    67. End Function


    Wer kann mir helfen ;)

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

    VB.NET-Quellcode

    1. Dim myArray() as String
    2. test$="Meier;Müller;Otto;Ernst"
    3. myArray = Split(test$,";")


    PS: VB5 gehört genau wie VB6 ins Hauptforum, denn VB5.0 ist nicht gleich VB2005
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Okay soweit verstanden ich habe noch 2 Fehlermeldungen

    Quellcode

    1. Optional ByVal Compare As VbCompareMethod = vbBinaryCompare _
    2. ) As Object

    da kommt

    Fehler 1 Der Typ "VbCompareMethod" ist nicht definiert. und bei

    Quellcode

    1. Split = Array()

    Fehler 2 "Array" ist ein Typ und kann nicht als Ausdruck verwendet werden.

    Tja was will uns der Dichter damit sagen?

    Keine Ahnung ich suche eine Fernlehrgang etc. wer würde mich unterrrichten?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kevinhro“ ()

    Hallo kevinhro,

    was verwendest du nun? VB 5 oder Visual Basic 2005 Express? Das solltest du uns schon genau mitteilen. Ich habe auf meinem Rechner keine VB 5-Installation und habe aus diesem Grund VB 5 CCE installiert. Der Quelltext läuft tadellos, die von dir erwähnten Code-Fragmente weisen in der VB 5-CCE-Edition nur auf Bekanntes hin. Ich gehe davon aus das VB 5-CCE auf VB 5 basiert, kann mir also dann den Fehler nicht erklären.

    Bevor ich weitere Tipps gebe, äußere dich bitte zu der Version, unter der du proggst.

    Gruß Markus

    Version

    Hallo Markus,

    ich habe mir für den ersten Schritt mal die kostenlose Version
    Microsoft Visual Basic 2005 Express installiert

    Das steht im INFO Fenster

    Microsoft Visual Studio 2005
    Version 8.0.50727.762 (SP.050727-7600)
    Microsoft .NET Framework
    Version 2.0.50727

    Installierte Edition: VB Express

    Microsoft Visual Basic 2005 76541-000-0000011-00124
    Microsoft Visual Basic 2005

    Danke Gruß Henrik

    EDIT by alchimist:
    Ich verschieb dich mal, habe leider von VB Express keinen Plan

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „alchimist“ ()

    Hi!

    In VB 2005 ist eine Split-Funktion mit eingebaut.

    VB.NET-Quellcode

    1. Dim myArray() As String
    2. Dim myString as String ="Meier;Müller;Otto;Ernst"
    3. myArray = myString.Split(";")

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()