как удалить строки в TextBox

[Александр Валерьевич]

Подскажите пожалуйста, только не пинайте сильно. Есть TextBox (мультилайн) с загруженным текстом. Как удалить первые две (или больше) строки, а остальные перенести вверх.

[iGrok]

Пройтись по тексту в поисках разделителя строк (обычно vbCrLf), найти нужный по счёту разделитель и заменить текст в боксе остатком текста, начиная со следующего символа.

[Александр Валерьевич]

Пройтись по тексту в поисках разделителя строк (обычно vbCrLf), найти нужный по счёту разделитель и заменить текст в боксе остатком текста, начиная со следующего символа.

А ты не мог бы подкинуть примерчик, два дня голову ломаю. На VB6 я всего второй месяц и пока все дается с трудом.

[Viper]

На скорую руку:

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

Dim s As String
Dim pos As Long
Dim c As Long
c = 2 ' число удаляемых строк
s = txtBox.Text
Dim i As Long
pos = 1
For i = 1 To c
    pos = InStr(pos, s, vbCrLf)
    If pos = 0 Then
        ' здесь пишешь код на случай отсутствия нужного количества строк
    End If
    pos = pos + 2
Next i
txtBox.Text = Mid$(s, pos)

[Хакер]

Внутри If-а не хватает Exit For. Integer вместо Long. Mid вместо Mid$.

[Viper]

Внутри If-а не хватает Exit For

Сие на выбор пользователя, пусть сам определится, что ему надо, если нужного количества строк нет. Насчет Mid$ и Long согласен.
З.Ы. Все же писать пример кода в 5 утра несовсем здравая идея.

[Александр Валерьевич]

На скорую руку:

Это то, что надо. Большое спасибо.