|
Jak odzyskać nazwę pliku ze ścieżki dostępu? |
|
|
|
Napisał Administrator
|
|
poniedziałek, 12 wrzesień 2005 |
Funkcja ma posta?:
Function StripPath(T$) As String
Dim x%, ct%
StripPath$ = T$
x% = InStr(T$, "\")
Do While x%
ct% = x%
x% = InStr(ct% + 1, T$, "\")
Loop
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
End Function
PRZYK?ADOWE WYKORZYSTANIE
File = StripPath("c:\windows\hello.txt")
OBJA?NIENIE :
1 - Function StripPath(T$) As String
2 - Dim x%, ct%
3 - StripPath$ = T$
4 - x% = InStr(T$, "\")
5 - Do While x%
6 - ct% = x%
7 - x% = InStr(ct% + 1, T$, "\")
8 - Loop
9 - If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
10 - End Function
1 - Deklaracja funkcj
i. Jako argument podaje sie scie?k? do pliku. Zapis
jest 'T$', ale mo?na zapisa? tez 'T As String' - na to samo wychodzi.
2 - Deklaracje zmiennych typu Integer, mo?na zapisa? 'x As Integer' i 'ct
As Integer'
3 - Przypisanie zmiennej podanej w argumencie ('T') do zmiennej 'StripPath'
o typie String
4 - Poczytaj w helpie o funkcji InStr. Przeszukuje ona dany string na
wystepowanie znaku lub s?owa. Jesli znajdzie, to zwraca jego pozycje w
stringu, a jesli nie to zwraca, bodajze, -1 (poczytaj w helpie dok?adniej).
5-9 - P?tla Do...Loop przeszukuje string podany w argumencie (czyli sciezke
do pliku), szukajac znaku "\". Jesli go znajdzie, to operacja sie powtarza,
z tym ze szukanie nastepuje od znaku nastepnego w przeszukiwanym stringu.
Jesli InStr nie znajdzie nowego "\", to ko?czy si? wyszukiwanie, a funkcji
jest przypisywana nazwa pli
ku (czyli tekst za ostatnim "\").
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
