Excel-VBA Teilstring

Schreibe ich ein makro, die eine Liste der Namen, die in einem LDAP-format konvertiert Sie zum Ersten, Letzten (region). Für diejenigen von Euch, die nicht wissen, was LDAP aussieht, ist es unten:

CN=John Smith (region),OU=Legal,DC=example,DC=comand

In Excel VBA, ich scheinen nicht in der Lage sein, die Verwendung von string.substring(start, Ende). Eine Google-Suche scheint zu zeigen, dass Mid(string, start, Ende) ist die beste option. Das problem ist Folgendes: in der Mitte, die ganze Zahl zum Schluss ist die Entfernung vom start und nicht die eigentlichen index-Position des Zeichens. Dies bedeutet, dass die verschiedenen Namen werden die Größen der unterschiedlichen Endung Orten und ich kann nicht verwenden den index ")" finden Sie am Ende der region. Da alle Namen beginnen mit CN=, ich finde das Ende der ersten Teilzeichenfolge richtig, aber ich kann nicht finden ")" richtig, da die Namen unterschiedlich lang sind.

Einige habe ich folgenden code:

mgrSub1 = Mid(mgrVal, InStr(1, mgrVal, "=") + 1, InStr(1, mgrVal, "\") - 4)
mgrSub2 = Mid(mgrVal, InStr(1, mgrVal, ","), InStr(1, mgrVal, ")") - 10)
manager = mgrSub1 & mgrSub2

Kennt jemand einen Weg, um tatsächlich einen Satz-Ende-Punkt anstelle von einem Endpunkt, der so viele Werte Weg von der start?

InformationsquelleAutor spassen | 2012-03-30
  1. 11

    Dies ist vba.. kein string.substring 😉

    dies ist mehr wie VB 6 (oder irgendeine unten).. so sind Sie stecken mit mid, instr, len (um die gesamte Länge von einem string).. ich glaube, du verpasst len, um die Gesamtzahl der Zeichen in einem string? Wenn Sie zusätzliche Auskünfte benötigen nur einen Kommentar posten.

    edit:

    Anderen quick hack.. 

        Dim t As String
    t = "CN=Smith, John (region),OU=Legal,DC=example,DC=comand"
    Dim s1 As String
    Dim textstart As Integer
    Dim textend As Integer
    textstart = InStr(1, t, "CN=", vbTextCompare) + 3
    textend = InStr(1, t, "(", vbTextCompare)
    s1 = Mid(t, textstart, textend - textstart)
    MsgBox s1
    textstart = InStr(1, t, "(", vbTextCompare) + 1
    textend = InStr(1, t, ")", vbTextCompare)
    s2 = Mid(t, textstart, textend - textstart)
    MsgBox s2

    Klar dein problem ist, dass seit Sie benötigen einen Unterschied gibt es für den zweiten parameter sollten Sie immer tun, einige mathematische für Sie...

    • Die Gesamtanzahl der Zeichen in der Zeichenfolge wird nicht helfen, mich. Ich kann die Länge variieren auf beiden Seiten der ")" so kann ich nicht finden, die index-Position zu stoppen, die Grundlage.
    • können Sie ein Beispiel der Ausgabe, die Sie benötigen? in der Regel müssen Sie code einer for-Schleife, dies zu erreichen
    • CN=Smith, John (region),OU=Legal,DC=Beispiel,DC=comand sollte sich Smith, John (region)
    • Weiß nicht, warum ich nicht glaube, dass der mit math. Das sollte gewesen offensichtlich. Denke, es war ein langer Tag. Danke.
    InformationsquelleAutor gbianchi
  2. 4

    Ich bin mir nicht sicher, ob ich deine Frage richtig, aber hier ist meine Umsetzung von (hoffentlich), was Sie wollen:

    Function GetName(arg As String) As String
    parts = Split(arg, ",")
    For Each p In parts
        kv = Split(p, "=")
        Key = kv(0)
        Value = kv(1)
        If Key = "CN" Then
            commonName = Value
        End If
    Next p
    regIndex = InStr(1, commonName, "(")
    region = Mid(commonName, regIndex, Len(commonName) - regIndex + 1)
    parts = Split(commonName, " ")
    first = parts(0)
    last = parts(1)
    GetName = first & ", " & last & " " & region
End Function


Sub test()
 'Prints "John, Smith (region)"
 Debug.Print GetName("CN=John Smith (region),OU=Legal,DC=example,DC=comand")
End Sub

    Es veranschaulicht die Verwendung von Split und Mid Funktionen.

    Es ist eine quick-and-dirty-Implementierung dienen nur der Veranschaulichung. Verwenden Sie es im real-code, den Sie hinzufügen müssen mehrere Prüfungen (z.B. dass der kv und parts Sammlungen enthalten mindestens zwei Elemente).

    UPD: Auf zwei mögliche Formate der CN-Feld, nämlich "last\, first (region)" und "first last (region)" und die Dinge etwas weniger chaotisch, ich würde die regulären Ausdrücke Ansatz.

    Function GetName(arg As String) As String
    Dim RE As Object, REMatches As Object

    Set RE = CreateObject("vbscript.regexp")
    With RE
        .MultiLine = False
        .Global = False
        .IgnoreCase = True
        .Pattern = "CN=(\w+)\s*?(\\,)?.*?,"
    End With
    Set REMatches = RE.Execute(arg)
    If REMatches.Count < 1 Then
        GetName = ""
        Return
    End If

    cn = REMatches(0).Value
    withComma = (InStr(1, cn, "\,") > 0)
    If withComma Then
        lastIndex = 0
        firstIndex = 2
        regionIndex = 3
        patt = "(\w+)\s*?(\\,)?\s*?(\w+)\s*(\(.*?\))"
    Else
        lastIndex = 1
        firstIndex = 0
        regionIndex = 2
        patt = "(\w+)\s*?(\w+)\s*(\(.*?\))"
    End If
    Set RE = CreateObject("vbscript.regexp")
    With RE
        .MultiLine = False
        .Global = False
        .IgnoreCase = True
        .Pattern = patt
    End With
    Set REMatches = RE.Execute(arg)
    If REMatches.Count < 1 Then
        GetName = ""
        Return
    End If

    Set m = REMatches(0)
    first = m.SubMatches(firstIndex)
    last = m.SubMatches(lastIndex)
    region = m.SubMatches(regionIndex)
    GetName = first & ", " & last & " " & region
End Function


Sub test()
 ' Prints "first, last (AAA-somewhere)" two times.
 Debug.Print GetName("CN=last\, first (AAA-somewhere),OU=IT,OU=Users,OU=somewhere - aaa,OU=place,DC=aaa,DC=com")
 Debug.Print GetName("CN=first last (AAA-somewhere),OU=IT,OU=Users,OU=somewhere - aaa,OU=place,DC=aaa,DC=com")
End Sub
    • Dieses sieht wie es funktionieren sollte, aber wenn ich versuche, GetName(CN=Nachname\, Vorname (AAA-irgendwo),OU=IT,OU=Users,OU=irgendwo - aaa,OU=Ort,DC=aaa,DC=com) bekomme ich die Fehlermeldung: subscript out of range-Wert = kv(1) auf seiner zweiten Durchlaufen der Schleife.
    • Ich wusste nicht, es könnte sein, Kommas (geflohen) im Namen. Diese erschweren den code.
    • Ich habe tatsächlich herausgefunden. Ich vergaß völlig, ich könnte tun, Ende - Anfang. Es war ein langer Tag. Danke für die Hilfe aber. Das ist eine nützliche Funktion für die zukünftige Verwendung.
    InformationsquelleAutor Gebb
  3. 3

    Ich würde Befehle zu finden, die position der drei Zeichen, trennen Sie die Werte und dann verwenden Sie Links/Rechts auf Sie.

    Dies ist, was ich gehackt zusammen ganz schnell:

    Dim tmp, new_string, first, last, region As String

tmp = "CN=John Smith (region),OU=Legal,DC=example,DC=comand"

new_string = Right(tmp, Len(tmp) - 3)
' John Smith (region),OU=Legal,DC=example,DC=comand
new_string = Left(new_string, (InStr(1, new_string, ",") - 2))
' John Smith (region)

region = Right(new_string, Len(new_string) - InStr(1, new_string, "("))
' region
new_string = Left(new_string, (InStr(1, new_string, "(") - 2))
' John Smith

last = Right(new_string, Len(new_string) - InStr(1, new_string, " "))
' Smith
first = Left(new_string, (InStr(1, new_string, " ") - 1))
' John

    Dann zu verketten, um die string-Ausgabe, die Sie wollen.

    InformationsquelleAutor Todd
  4. 0

    Den ersten/letzten Namen bit ist einfach, wenn Sie mit diesem zu starten:

    MsgBox Split(Mid$(sLDAP, 4), ")")(0) & ")"
    InformationsquelleAutor Excel Hero
Schreibe einen Kommentar