Finden letzten Raum in string

Will ich finde das Letzte Leerzeichen in einem string. Der Zweck ist die split ein name in drei Teile. Ich kann die ersten Namen einfach genug, aber die letzten beiden sind nicht so einfach.

fullName = "Giger,San Paulo Fisher"
first = Left(fullName, InStr(1, ",", fullName, vbTextCompare))
last = Mid(fullName,InStr(1, ",", fullName, vbTextCompare),[POSITION OF LAST SPACE]-InStr(1, ",", fullName, vbTextCompare))
middle = Right(fullName,Len(fullName)-[POSITION OF LAST SPACE])

Vielen Dank im Voraus!

Die Verwendung InstrRev() (nach dem letzten vorkommen) oder Split() könnte ein nützlicher Gesamtkonzept.

InformationsquelleAutor steventnorris | 2014-04-30

  1. 1

    Können Sie die Split-Funktion ohne VBA. Dieses erhalten Sie "Giger,San","Paulo","und "Fischer". Es sollte relativ leicht zu split-out-the last name " und "Vorname" nach dem Komma. Und Sie don ' T müssen sich sorgen darüber, wie viele Namen enthalten sind oder wie lang Sie sind.

    Dim tStr As String
tStr = "Giger,San Paulo Fisher"
Dim tArray() As String
tArray = Split(tStr, " ")
For i = 0 To UBound(tArray)
    MsgBox tArray(i)
Next I

    Wenn Sie wollen einfach nur den index des letzten Raums. Entweder werden diese tun. Beachten Sie, dass der zweite mit dem obigen code zu finden, der array von strings, aus der Split-Funktion.

    MsgBox InStrRev(tStr, " ")
MsgBox InStr(1, tStr, tArray(UBound(tArray))) - 1
    +1 - Das ist ein guter Ansatz, auch wenn es nicht beantworten "die Frage" ("ich will dem letzten Platz"), aber es behebt das zugrunde liegende Problem.
    Stimmen Sie haben keine Antwort auf "die Frage". Hinzugefügt einige Informationen über wie finden Sie die "letzten Raum in einen string". Sehr ähnlich zu verkaufen.

    InformationsquelleAutor APrough

  2. 1

    Gibt es ein ziemlich gut bekannter trick (siehe zum Beispiel Excel: Letzte Zeichen/Zeichenfolge entsprechen, in einer Zeichenfolge - ich passte meine Antwort aus der letzten version die man dort akzeptiert wird): Sie ersetzen einen Raum mit vielen Räumen, dann nehmen Sie die letzten N Zeichen, und trimmen Sie: 

    =TRIM(RIGHT(SUBSTITUTE(A1," ",REPT(" ",99)),99))

    Können Sie die Anzahl (99 in diesem Fall) so groß, wie Sie brauchen - länger als der längste Wort, das Sie sich vorstellen.

    Hier ist, wie es funktioniert. Stellen Sie sich Ihr original-string (name):

    Giger,San Paulo Fisher

    Nun ersetzen Sie jedes Leerzeichen mit 8 Räume (halten Sie es überschaubar - Formel verwendet 99, gleiche Prinzip):

    Giger,San        Paulo        Fisher

    Nehmen Sie jetzt die letzten 8 Zeichen:

    __Fisher

    (Ich bin mit Unterstreichung zu zeigen, der Raum)

    Nun trim (entfernen Sie führende und nachfolgende Leerzeichen):

    Fisher

    ist die Ergebnis Sie wurden nach.

    Können Sie die anderen Saiten auch - aber da Sie aufgeteilt werden soll, auf einem Raum, es ist die natürlichste string zu verwenden.

    Wenn Sie möchten, tun Sie dies in VBA, können Sie einfach

    lastSpace = InStrRev(fullName, " ")
lastName = Mid(fullName, lastSpace + 1)

    Übrigens - Vorsicht vor der Annahme, dass das Ding nach dem letzten Platz liegt die ganze last name. Es gibt viele Namen (mehr in einigen Ländern als andere), die aus mehreren Wörtern, getrennt durch Leerzeichen.

    InformationsquelleAutor Floris

  3. 0

    seine nur können Sie split-Befehl für trennen Sie die Namen mit Leerzeichen

    Beispiel: xyz = Split(tStr, " ")

    InformationsquelleAutor Jimit Rupani

Schreibe einen Kommentar