Aus Dateistrings Dateinamen und Ordner heraussuchen

Übersicht

BlitzBasic

Codearchiv

	Kekskiller Betreff: Aus Dateistrings Dateinamen und Ordner heraussuchen	So, März 21, 2004 19:37 Antworten mit Zitat
Ich hatte für meinen Html-Editor eine ganz praktische Function gemacht , welche aus ganzen Filestrings Ordner und Dateiname herausbekommt. Bitte nicht hauen , wenn das eigentlich selbstverständlich ist und jeder sowas schon hat. Für Dateinamen: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function CovertFilenameToFoldername$(cftfname$) Local oldpos=1,backslashpos=0,succes=0 Repeat backslashpos=Instr(cftfname$,"\",oldpos) If backslashpos=0 Then succes=1:Exit Else oldpos=backslashpos+1 Forever If succes=1 Then Return Mid(cftfname$,1,oldpos-1) Else Return "" End Function und für Ordner: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function CovertFoldernameToFilename$(cftfname$) Local oldpos=1,backslashpos=0,succes=0 Repeat backslashpos=Instr(cftfname$,"\",oldpos) If backslashpos=0 Then succes=1:Exit Else oldpos=backslashpos+1 Forever If succes=1 Then Return Mid(cftfname$,oldpos,99) Else Return "" End Function

Kekskiller

Betreff: Aus Dateistrings Dateinamen und Ordner heraussuchen

So, März 21, 2004 19:37
Antworten mit Zitat

Ich hatte für meinen Html-Editor eine ganz praktische Function gemacht , welche aus ganzen Filestrings Ordner und Dateiname herausbekommt.
Bitte nicht hauen , wenn das eigentlich selbstverständlich ist und jeder
sowas schon hat.

Für Dateinamen:

BlitzBasic: [AUSKLAPPEN]


Function CovertFilenameToFoldername$(cftfname$)
Local oldpos=1,backslashpos=0,succes=0
Repeat
backslashpos=Instr(cftfname$,"\",oldpos)
If backslashpos=0 Then succes=1:Exit Else oldpos=backslashpos+1
Forever
If succes=1 Then Return Mid(cftfname$,1,oldpos-1) Else Return ""
End Function

und für Ordner:

BlitzBasic: [AUSKLAPPEN]


Function CovertFoldernameToFilename$(cftfname$)
Local oldpos=1,backslashpos=0,succes=0
Repeat
backslashpos=Instr(cftfname$,"\",oldpos)
If backslashpos=0 Then succes=1:Exit Else oldpos=backslashpos+1
Forever
If succes=1 Then Return Mid(cftfname$,oldpos,99) Else Return ""
End Function