title image


Smiley Re: Text nach "\" trennen
Kopiere Dir diese Funktion in ein allgemeines Modul:





Public Function GetPartOfString(ByVal strText As String, ByVal strDelimiter As String, ByVal lngPos As Long) As String



Dim arrTmp() As String

arrTmp = Split(strText, strDelimiter)

GetPartOfString = arrTmp(LBound(arrTmp) + (lngPos - 1))



End Function





Aufruf dann z.B. so:





Debug.Print GetPartOfString("Q:\Allgemeine Documente\Allgemein\Anfahrtsbeschreibungen", "\", 3)





Der Parameter lngPos entspricht der Position des auszulesenden Fragments im String.



Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: