|
Odzyskiwanie nazwy pliku ze ścieżki dostępu i nie tylko.(przysłał Łukasz'Spooky'Szmit) |
|
|
|
Napisał Administrator
|
|
sobota, 21 styczeń 2006 |
Przerobiona funkcja Dawida (tip nr 6). Jego wersja wyciągała z
podanego stringu nazwę pliku a moja może wyciągnąć i tą nazwę i ścieżkę
dostępu do tegoż pliku:
Function StripPathString(Path As String, StripFileName As Boolean) As
String
Dim X As Integer, Ct As Integer, Y As Integer
StripPathString = Path
X = InStr(Path, "\")
Do While X
Ct = X
X = InStr(Ct + 1, Path, "\")
Loop
' tu wprowadziłem zmiany
If Ct > 0 Then
Select Case StripFileName
Case False
StripPathString = Mid(Path, Ct + 1)
Case True
Y = InStr(Path, Mid(Path, Ct + 1))
StripPathString = Mid(Path, 1, Y - 1)
End Select
Else
StripPathString = ""
End If
End Function
Cała funkcja jest już opisana na VB4ALL (tip6) Wprowadziłem jednak zmiany zmiany.
Ostatni warunek If...Else...End If: Jeśli szukany znak jest w ciągu (czyli
jego pozycja w ciągu: Ct>0) to sprawdzamy jaką wartość ma zmienna
StripFileName. Dla wartości false - wycinamy ścieżkę zostawiając nazwę
pliku. Dla wartości true ustalamy długosc ciągu za ostatnim znakiem "\" i
skracamy ciąg Path o tą wartość zaczynając od jego końca co w efekcie daje
nam pozbycie się nazwy pliku z ciągu Path, który zwracamy jako wartość
funkcji.
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! |
