am schluss backslash wegnehmen

22/01/2008 - 00:28 von Andreas | Report spam
Hallo Zusammen,
kann mir jemand helfen und sagen wie ich das anstellen muss wenn am Schluss
vom Verzeichnis Name das Backslash weg soll..

wenn c:\beispiel\test\ dann c:\beispiel\test . URLAdresse ist dynamisch,
manchmal besteht die URLAdresse aus einem Verzeichnis und manchmal aus
mehreren Verzeichnis.

Habe mal mit Split Funktion versucht aber da die URL Adresse dynamisch ist
kam ich nicht weiter

Danke für die Hilfe

Gruss
Andreas
 

Lesen sie die antworten

#1 Harald M. Genauck
22/01/2008 - 02:26 | Warnen spam
Hallo Andreas,

kann mir jemand helfen und sagen wie ich das anstellen muss wenn am
Schluss vom Verzeichnis Name das Backslash weg soll..

wenn c:\beispiel\test\ dann c:\beispiel\test . URLAdresse ist
dynamisch, manchmal besteht die URLAdresse aus einem Verzeichnis und
manchmal aus mehreren Verzeichnis.

Habe mal mit Split Funktion versucht aber da die URL Adresse
dynamisch ist kam ich nicht weiter



Function TrimBackslash(text As String) As String
If Right$(text, 1) = "\" Then
TrimBackslash = Left$(text, Len(text) - 1)
Else
TrimBackslash = text
End If
End Function

Falls auch aus irgendeinem Grunde mehrere Backslash am Ende vorkommen
können:

Function TrimBackslash2(text As String) As String
Dim i As Integer
Dim count As Integer

For i = Len(text) To 1 Step -1
If Mid$(text, i, 1) = "\" Then
count = count + 1
Else
Exit For
End If
Next

If count Then
TrimBackslash = Left$(text), Len(text) - count)
Else
TrimBackslash = text
End If
End Function


Viele Grüße

Harald M. Genauck

"visual studio one" - http://www.visualstudio1.de (Chefredakteur)
"ABOUT Visual Basic" - http://www.aboutvb.de (Herausgeber)

Ähnliche fragen