Maolis, я сделал такой файл...
data.txt
[1]
...
...
...
[2]
...1
...2
...3
[3]
...
...
...
И такую программку...
tmp ;;;;[ 27.11.2014 15:00 ]
n
s file="d:\box\data.txt"
s o=##class(%File).%New(file)
d o.Open("RS")
s exit=0
s find=0
while 'o.AtEnd,'exit {
s str=o.ReadLine()
if 'find {
s find=$locate(str,"\[2\]")
continue
}
s exit=$locate(str,"\[\d+\]")
w:'exit !,str
}
k o
q
Получился такой вывод информации
LVB>d ^tmp
...1
...2
...3