PDA

Vollständige Version anzeigen : String von rechts nach links durchsuchen


Conquerer
05.05.2009, 13:15
Hallo,

ich suche eine Möglichkeit, einen String von rechts nach links nach einem Zeichen zu durchsuchen.
Ich habe einen Dateistring, der so aussieht:
D:\Ordner\Ordner2\Datei.xls

Jetzt will ich von rechts aus nach dem "/" suchen, und von dieser Position aus den String bis zum Ende auslesen, um den Dateinamen zu erhalten.
Geht so etwas?

chris-kaiser
05.05.2009, 13:46
hiho

per formel

{=TEIL(A1;MAX((TEIL(A1;ZEILE($1:$200);1)="\")*ZEILE($1:$200))+1;99)}
in A1 der String des Pfades

Sub file()
Dim path As String
path = "D:\Ordner\Ordner2\Datei.xls"
MsgBox Mid(path, InStrRev(path, "\") + 1)
End Sub

ist die Datei auf dem Rechner würde Dir reichen

NoNet
05.05.2009, 13:47
Hey,

hier 2 Möglichkeiten :

Variante 1:
strDateiname="D:\Ordner\Ordner2\Datei.xls"
Msgbox mid(strDateiname,len(strDateiname)-instr(strreverse(strdateiname),"\")+2)

Variante 2 :
strDateiname="D:\Ordner\Ordner2\Datei.xls"
MsgBox split(strdateiname,"\")(ubound(split(strdateiname,"\")))

Beide Versionen funktionieren "erst" ab Excel 2000 !

NoNet
05.05.2009, 13:48
InStrRev(...) ist natürlich eleganter als mein Konstrukt... :)

chris-kaiser
05.05.2009, 15:40
Hallo NoNet

Hauptsache ist doch das es funktioniert :)
und das machen deine Codes doch immer!