Работа с текстовыми файлами...

[Vovik]

Как в текстовом файле найти определённый символ, а после него
считать в переменную X-кол-во строк, до другого определённого символа??

[Ducis]

Все равно придется считывать строки с первой и анализировать на наличие необходимых символов. А после замыкающего символа - закрывать файл.

[Мика]

Я думаю придется использовать MID()

[Vovik]

Все равно придется считывать строки с первой и анализировать на наличие необходимых символов. А после замыкающего символа - закрывать файл.

А как это сделать???

[ShadowCaster]

Кнопка - Command1, Текстовые поля - Text1, Text2, Text3:

' Файл < 2 Мб, иначе "n1 as double, n2 as double"
Private Sub Command1_Click()
dim s as string, n1 as long, n2 as long, l as long

open Text1 for binary as #1
s = space(lof(1))
get #1,,s
close #1

n1 = instr(s, Text2)
n2 = instr(n1, s, Text3)
s = mid(s, n1, n2-n1)
l = ubound(split(vbLf, s))+1

msgbox "Количество строк в файле "+Text1+" с символа "+Text2+" до символа "+Text3+" равно "+cstr(l)
End Sub

[Demonx]

можно типа так:

' Переменная Data содержит инфу из файла
' Sym1 = Первый символ
' Sym2 = Второй символ
pos1 = InStr(1, Data, Sym1)
pos2 = InStr(pos1, Data, Sym2)
colstr = UBound(Split(Mid(Data, pos1, pos2 - pos1), vbCrLf))
MsgBox colstr

[Demonx]

Ой уже ответили
ShadowCaster, чутка с кодом ты ошибся

[Vovik]

Спасибо большое за помощь!!! Я понял с помощью вас свою ошибку!!!

[Vovik]

Упс....У меня ещё один маленький вопросик...
А если мне надо не один символ, а несколько???
например вот такое : [#video] или [*smk]

[Demonx]

:oops: Упс....У меня ещё один маленький вопросик...
А если мне надо не один символ, а несколько???
например вот такое : [#video] или [*smk]

Вот так:

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

'Data - инфа из файла
'Sym1 - [#video]
'Sym2 - [*smk]
Dim Data As String, Pos1 As Integer, Pos2 As Integer, Ln As String, ColStr As Integer
Pos1 = InStr(1, Data, Sym1)
Pos2 = InStr(Pos1 + Len(Sym1), Data, Sym2)
Ln = Mid(Data, Pos1 + Len(Sym1), Pos2 - (Pos1 + Len(Sym1)))
ColStr = UBound(Split(Ln, vbNewLine)) + 1
MsgBox "Строк: " & ColStr


[Vovik]

Спасибо большое!!!! Очень помог...А то я с этими строками мало работал...(не приходилось).