Привет всем!
У меня есть некая строка, содержащая символы перевода строки "\n". Мне нужно посчитать их кол-во и получить несколько строк из символов, находящихся между символами перевода строки.
Как это сделать?
Больше спасибо.

Вот это Вам поможет посчитать кол-во \n в TextBox. Остальное можно сделать разными способами (мыслей у меня много, а делать пока не пробовал). Если ничего не придумайте, то пишите. Вообще я не считаю, что таким образом в конце концов получится идеальный вариант решения проблемы, но лучше я не придумал как можно посчитать \n в строке. Ну дерзайте!

Private a As Boolean
Private b As Boolean
Private x As Integer
Private y As Integer

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
y = 0
End Sub

Private Sub Form_Load()
x = 1
y = 0
End Sub

Private Sub Text1_Change()
Dim str As String
If b = True Then
b = False
'a = False
y = y + 1
Text2.Text = y
'Text2.Refresh
End If
Text2.Refresh
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If a = True Then
   If x <= 0 Then
   a = False
       If KeyCode = 78 Then
       b = True
       x = 1
       End If
   End If
   Text1_Change
End If

If KeyCode = 220 Then
a = True
x = x - 1
End If

End Sub

В коде есть один недостаток - раскладки клавиатуры не распознаются. Соответственно и \т будет тоже считаться так же как и \n !

cardinal , спасибо за помощь, но это не совсем то, что мне надо. Логика мне не нужна, я просто недавно знаком с VB, и не знаю, как простые вещи реализуются.

    Попробую сформулировать вопрос по-другому:
Есть строка str_A="b1Abb2Abbb3Abbbb4"
Mне нужно получить количество вхождений символа "A" в строке str_A, индексы всех вхождений, а затем получить массив строк, в котором бы содержалось:
array[1]="b1"
array[2]="bb2"
array[3]="bbb3"
array[4]="bbbb4"
Да, вот так вроде бы понятней, чего бы мне хотелось.
Спасибо.

Можно так например. Правда если буквы А в строке нет совсе в коллекции будет вся строка . Ну вообщем разберешься.

Код

Dim str As String    Dim i As Long    Dim j As Long    Dim StrArray As New Collection    str = "b1Abb2Abbb3Abbbb4"    i = 1    Do While True        j = i        i = InStr(j, str, "A", vbBinaryCompare)        If i <> 0 Then            StrArray.Add Mid(str, j, i - j)        Else            StrArray.Add Mid(str, j, Len(str) - j + 1)            Exit Do        End If        i = i + 1    Loop

Split("[Строка]","[символ разбития]"...) возвращает массив строк

Описание функции - http://sharig.webzone.ru/global/function/q_z/Split.htm