Показать сообщение отдельно
Старый 29.04.2010, 17:44   #4
Damp
Знающий
 
Регистрация: 12.07.2007
Сообщений: 297
Написано 50 полезных сообщений
(для 133 пользователей)
Ответ: Поиск по файлу

Наверно только читать весь файл ReadLine, разбирать каждую строку на параметры и уже по параметрам отсеивать что нужно.

Par0$=GetPar$(MyString$,0)
Par1$=GetPar$(MyString$,1)
...

Function GetPar$(msg$,par%=0,bChr$=":")
fs$=msg
For p=1 To par
ofs=Instr(fs,bChr)
fs$=Mid(fs,ofs+1)
If ofs=0 Return
Next
ofs=Instr(fs,bChr)
fs$=Mid(fs,1,ofs-1)
Return fs
End Function
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Ziro(AL) (30.04.2010)