Я очень часто использую разделители в тексте поэтому я разработал две функции, которые мне облегчили жизнь.
| Код |
Function Exploid(ByVal Simb_ As String, ByVal Text_ As String, ByVal Put_ As Integer) As String
Dim i As Integer
Put_ = Put_ - 1
For i = 1 To Put_
If InStr(Text_, Simb_) = 0 Then GoTo 10
Text_ = Mid(Text_, InStr(Text_, Simb_))
Text_ = Mid(Text_, Len(Simb_) + 1)
Next i
If InStr(Text_, Simb_) = 0 Then
Else
Text_ = Left(Text_, InStr(Text_, Simb_) - 1)
End If
10:
Exploid = Text_
End Function
Function Exploid_Put(ByVal Simb_ As String, ByVal Text_ As String) As Integer
Dim i As Integer
Dim t As Integer
t = 0
For i = 1 To 1000
If InStr(Text_, Simb_) = 0 Then GoTo 10
t = t + 1
Text_ = Mid(Text_, InStr(Text_, Simb_) + Len(Simb_) + 1)
Next i
10:
Exploid_Put = t + 1
End Function
|
Exploid("[тут указываем разделитель он может быть как один символ так и более, неиспользуемый символ в русском языке это Ъ используй его]",[строка для поиска содержащая текст],[тут указываем ряд]) - эта функция возвращает текст разделителя
Exploid_Put("[тут указываем разделитель он может быть как один символ так и более, неиспользуемый символ в русском языке это Ъ используй его]",[строка с разделителем]) - эта функция показывает сколько разделителей всего
вот пример
| Код |
dim a as string = "Слово1*Слово2*Слово3"
msgbox (Exploid("*",a,2)) ' извлекет Слово2
|
или
files - имеет значение путь к файлу
| Код |
Exploid("\", files, Exploid_Put("\", files))' вернет только имя файла
|
|
