25
Октябрь
2008
Как вернуть текст между заданными значениями?
Как вернуть текст между заданными значениями?
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