нужна помощи с компонентов TextBox

[Inga]

Здравствуйте!
У сеня есть вопрос
емеется компонент TextBox в нем множество строк.

промер: текста в текстовом поле Text1.Text

адресс=2071914 тел=290012 город=Красноводск Инна=148
адресс=2087917 тел=457915 город=Москва Арина=4876
адресс=2671918 тел=749154 город=Ашгабат Инга=7154
адресс=2231912 тел=746217 город=Небитдаг Алла=9875

теперь мне нужно найти цифру которая находится после слова "Инга=", при условии что цифра может изменятся и количество символов в цифре может быть разным, а также строк в поле может быть больше, но известнно что эта цифра последняя данной строке.

Помогите пожалуйста...
Заранее благодарна!

[Xcode]

RegExp(Regex) вас выручит, поиск в помощь.

[Inga]

Подскажит пожалуйста а как вообще можно пересчитать сколько строк в текстовом поле?

[Proxy]

Число найденых vbCRLF + 1. Это не в учёт того, что TextBox переносит не вмещающиеся в строку слова (символы при WordWrap false) на новую строку даже при отсутствии vbCRLF.

[viter.alex]

Зайди в меню Project->References и подключи библиотеку Microsoft VBScript Regular Expressions 5.5
На форму текстовое поле txtName (для ввода имени), txtMain (для основного текста) и метка lblNum (для отображения найденного номера)
Код такой:

Код: Выделить всё

Option Explicit
Dim myMatch As Match
Dim myMatches As MatchCollection
Dim myRegExp As RegExp

Private Sub Form_Load()
  Set myRegExp = New RegExp
  myRegExp.MultiLine = True
  txtName.Text = ""
  lblNum.Caption = ""
End Sub

Private Sub txtName_Change()
  myRegExp.Pattern = "(?:" & txtName.Text & ")([0-9]*)"
  Set myMatches = myRegExp.Execute(txtMain.Text)
  If myMatches.Count <> 0 Then lblNum.Caption = myMatches(0).SubMatches(0) Else lblNum.Caption = ""
End Sub

Вводим в поле txtName нужное имя и знак равно. В метке lblNum отобразится соответствующий номер