Чтение из текстового файла с выборкой

[moris]

Как сделать считывание строк из текстового файла по правилу...

находит первые цифорки и читает после них текст, это где-нить найти можно???
в условии считывания задано, что считывать после 3 и 4 цифорки...
3 вася
4 петя
6 коля
То есть петя и вася должны быть считаны...
А вот коля не считается, так как его в условии не было...
Ну типа выборки такой в файлике сроковом *.txt
Спасибо...

[Qubicz]

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

Dim st$, ar$(), n%, tmp$, res$
Open "C:\1.txt" For Binary As #1
st = Input(LOF(1), #1)
Close #1
ar = Split(st, vbCrLf)
For n = 0 To UBound(ar)
If Left(ar(n), 1) = "3" Or Left(ar(n), 1) = "4" Then
tmp = Mid(ar(n), 2)
res = res & tmp & vbCrLf
End If
Next
MsgBox res

[moris]

Вот спасибо Вам большое )))