Помогите с listbox

[xteam]

Подскажите пажалуста:
Есть у меня 3 listbox’a и текстовой файл
В нем есть текст:
«
[1]
1
2
3
4
[\1]
[2]
1
2
3
4
5
[\2]
»

Как сделать, чтоб текст между [1] и [\1] загружался в один listbox и сохранялся по такому же принципу
Текст между [2] и [\2] в другой Lisbox и сохранялся по такому же принципу
Все действие происходит в кнопке.
Буду очень благодарен!

[Igor_123]

читаешь файл
проверяешь если прочитанная строка равна "[1]" значит пока не встретим "[/1]" все данные записываем в первый листбокс,
если прочитанная строка равна "[2]" значит пока не встретим "[/2]" все данные записываем во второй листбокс,
... так продолжаем для нужного количества листбоксов или конца файла

и всё

открыть, закрыть файл:
open "c:\file.txt" for output as #1
close #1

Прочесть строку:
Dim str As String
Line Input #1, str

Ну вообщем удачи

[xteam]

читаешь файл
проверяешь если прочитанная строка равна "[1]" значит пока не встретим "[/1]" все данные записываем в первый листбокс,
если прочитанная строка равна "[2]" значит пока не встретим "[/2]" все данные записываем во второй листбокс,
... так продолжаем для нужного количества листбоксов или конца файла

и всё

открыть, закрыть файл:
open "c:\file.txt" for output as #1
close #1

Прочесть строку:
Dim str As String
Line Input #1, str

Ну вообщем удачи

Прости, но как проверить строку на содержание [1] ? и считать
текст до конца "[/1]"???
Взаранее спасибо

[Ramzes]

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

Public Function tega(Where As String, Teg As String, Part As Integer)
Dim w1 As String
Dim w2 As String
Dim P As String

Dim First_, Second_ As Integer
  w1 = "[" & Teg & "]"
  w2 = "[/" & Teg & "]"
  If InStr(1, Where, w1, vbTextCompare) <> 0 And InStr(1, Where, w2, vbTextCompare) <> 0 Then
    First_ = InStr(1, Where, w1, vbTextCompare)
    Second_ = InStr(1, Where, w2, vbTextCompare)
    If Part = 1 Then
      P = Left(Where, (First_ - 1))
    ElseIf Part = 3 Then
      P = Right(Where, Len(Where) - ((Second_) + Len(w2)) + 1)
ElseIf Part = 2 Then
      P = Right((Where), Len(Where) - (First_ + (Len(w1) - 1)))
      P = Left(P, InStr(1, P, w2, vbTextCompare) - 1)
    End If
    tega = P
  Else
    tega = "~"
  End If
End Function