leerzeichen in string erkennen

  • Sonstige

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Pascal.

    leerzeichen in string erkennen

    hallo :D

    kennt jemand eine möglichkeit um aus einem string der den vollständigen namen (also vor- und nachname) enthalt diese beiden namen einzelt herrauszufiltern?
    getrennt sind die beiden durch ein leerzeichen.
    danke im voraus

    Quellcode

    1. Dim strName As String
    2. Dim strInfo() As String
    3. Dim strVorname As String
    4. Dim strNachname As String
    6. strInfo = Split(strName, " ", -1, vbTextCompare)
    8. strVorname = strInfo(0)
    9. strNachname = strInfo(1)


    Quellcode

    1. Dim strName As String
    2. Dim strVorname As String
    3. Dim strNachName As String
    4. Dim iCount As Integer
    6. For iCount = 1 To Len(strName)
    7. If Mid(strName, iCount, 1) = " " Then Exit For
    8. Next iCount
    10. strVorname = Left(strName, iCount - 1)
    11. strNachName = Mid(strName, iCount + 1, Len(strName) - iCount)

    danke
    einfach und schnell :D
    <hr>
    ich hab jetzt leider doch noch ein problem mit dem code-beispielen :-/

    *Dim strName As String
    *Dim strInfo() As String
    *Dim strVorname As String
    *Dim strNachname As String

    *strInfo = Split(strName, " ", -1, vbTextCompare)

    *strVorname = strInfo(0)
    *strNachname = strInfo(1

    wenn es in der variabelen nur einen nachnamen gibt und keinen vornamen dann entsteht leider ein fehler in der letzten zeile :´-(

    gibt es ne möglichkeit vieleicht vorher zuprüfen ob die variabele strInfo(1) angelegt worden ist?

    Edit by Agent: Keine Doppelpostings! Siehe Boardregeln

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

    Quellcode

    1. On Error GoTo Tresen
    3. If UBound(strInfo()) > 0 Then
    4. strVorname = strInfo(0)
    5. strNachname = strInfo(1)
    6. ElseIf UBound(strInfo()) = 0 Then
    7. strNachname = strInfo(0)
    8. End If

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

Facebook
Telefonspende