- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
Public Function MakeShort(Parametr As String) As String
Dim temp As String
Dim f1index As Integer
Dim Lastindex As Integer
If (Parametr <> "") Then
temp = Strings.Replace(Parametr, "\", " ")
temp = Strings.Replace(temp, "/", " ")
temp = Strings.Replace(temp, ":", " ")
temp = Strings.Replace(temp, "*", " ")
temp = Strings.Replace(temp, "?", " ")
temp = Strings.Replace(temp, "<", " ")
temp = Strings.Replace(temp, ">", " ")
temp = Strings.Replace(temp, "|", " ")
f1index = Strings.InStr(temp, Strings.Chr(34))
Lastindex = Strings.InStrRev(temp, Strings.Chr(34))
temp = Strings.Mid(temp, f1index, Lastindex)
MakeShort = Strings.Replace(temp, Strings.Chr(34), "")
Else
MakeShort = ""
End If
End Function
Что то типа парсера... или точнее готовится так из строки имя файла