Re: Bestimmtes Zeichen in einem String rückwärtssuchen
28.10.2002 18:31:05
Peter Feustel
Hallo Steffen,meine Version deines VBA Makros sieht folgendermaßen aus:
' im String "\\Ntserver\temp\Mappe1.xls" soll die Position des rechten "\"
' gefunden werden, um die dahinter folgenden Zeichen "Mappe1.xls" in []
' einschzuließen.
Sub Suchen_von_rechts()
'
Dim strAlt As String
Dim intLgAlt As Integer
Dim intPos As Integer
Dim strZeichen As String * 1
Dim strNeu As String
strAlt = "\\Ntserver\temp\Mappe1.xls" ' den String festlegen
Rem strAlt = "hier_fehlt_der_backslash" ' Test-String - wird komplett in [] gesetzt
intLgAlt = Len(strAlt) ' die Länge des Strings ermitteln
' die Position des Zeichens '\' ermitteln
For intPos = intLgAlt To 1 Step -1
strZeichen = Mid(strAlt, intPos, 1)
If strZeichen = "\" Then
Exit For
End If
Next intPos
' das Ergebnis anzeigen
MsgBox "im String >>>" & strAlt & "<<< ist die Position des letzten '\' auf " & intPos, _
64, "Zeichen von rechts suchen"
' den neuen String erzeugen
strNeu = Mid(strAlt, 1, intPos) & "[" & Mid(strAlt, intPos + 1, intLgAlt - intPos) & "]"
' das Ergebnis anzeigen
MsgBox "der umgeformte String ist >>>" & strNeu & "<<<", 64, "neuer String"
'
End Sub
Gruß, Peter