List1 - ListBox
Text1 - это то что мы исщем,
Text2 - Фамилия найденного,
Text3 - Имя найденного,
Cmd - кнопка
- Код: Выделить всё
Sub cmd_OnClick()
Find Text
End Sub
Sub Find(Text as String)
for i=0 to list1.listCount-1
If instr(1,List1.list(i),Text)<>0 then
A=instr(1,List1.list(i)," ")
Text2 = left(List1.list(i),A-1)
Text3 = Right(List1.list(i),len(List1.list(i))-A)
exit sub
End if
next i
Msgbox "Нету в списке '"+Text+"'"
End Sub
для использования этого метода нужно список загнать в лист бокс..
немного уточни источник ... например текстовая строка или файл со списком..