Visual Basic FAQ

Как вернуть текст между заданными значениями?

Option Explicit
Dim ss As String
Dim pos As Long

Public Function GetText1(ByVal AllText$, ByVal LeftText$, _
    ByVal RightText$, Optional ByVal start As Long = 1) As String
'Возвращает текст между двумя другими текстами с двух сторон
Dim s1 As Long, s2 As Long
s1 = InStr(start, Text1.Text, LeftText$, 1) + Len(LeftText$)
s2 = InStr(s1, Text1.Text, RightText$, 1)
GetText1 = Mid$(Text1.Text, s1, s2 - s1)
End Function

Private Sub Command1_Click()
Text1.Text = UCase(GetText1(ss, "Добрый вечер ", "!", pos + 1))
End Sub

Private Sub Form_Load()
Text1.Text = "Добрый вечер дамы и господа!"
End Sub

Запись опубликована on 25.10.2008 at 10:00 и размещена в рубрике: Строки. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.