Как делается такое (работа с текстом)?

[Gmp]

Имеем текст:
АААА1
АААА2
ББББ1
ББББ2
ББББ2
ВВВВ3
ВВВВ4
ВВВВ6
ВВВВ5
ВВВВ1
AAAA3
AAAA1
и т.д.

как мне сгруппировать их в строки
АААА1 АААА2
ББББ1 ББББ2 ББББ2
ВВВВ3 ВВВВ4 ВВВВ6 ВВВВ5 ВВВВ1
AAAA3 AAAA1

[GSerg]

Как делается такое

Определяются правила группировки (на бумажке, в терминах, без бытовухи).
Только потом пишется код.

[XPAHuTEJIb]

пока меня не отключили на пару недель, хочу помочь:
есть несколько вариантов применимых к данному примеру:

1 вариант.
1. загоняешь всё в массив (допустим a() )
2. делаешь выборку по 4 символам
3. пишешь в разные переменные, типа:
if left$(a(x),4)="AAAA" then a=a+a(x) & " "
if left$(a(x),4)="BBBB" then b=b+a(x) & " "
и т.д.


2 вариант
1. загоняешь всё в массив (допустим a() )
2. Сортируешь массив
3. Делаешь выборку опять же по 4 символам

2 вариант лучше, т.к. неограничен в количестве выбоных символов т.е.не надо заводить кучу переменных[/b]

[Viper]

2 XPAHuTEJIb, если внимательно посмотреть вопрос автора, то можно даже без телепатических способностей предположить что он имеет ввиду несколько отличное, от того, что ты ему предлагаешь.

2 GMP, настоятельно рекомендуется воспользоваться советом GSerg и, во-первых, понять самому, а во-вторых, пояснить всем нам, что же таки необходимо сделать с исходным текстом.

[HandKot]

если основываться на приведенном примере, то 1 вариант XPAHuTEJIb подходит, только надо не выборку делать, а писать новую строку при изменении первого символа. И результат лучше класть тоже в массив, чтобы не было проблем с переменными
примерно так

1) бежим по тексту Do While
2) берм строку Get #1,, strTmp
3) смотрим 1 символ If Left(strTmp,1) <> tmpChar
4) Redim Preserve a(ubound(a)+1)
5) a(Ubound(a)) = strTmp
6) tmpChar = LEFT(strTmp)
7) Else a(Ubound(a)) = a(Ubound(a)) + strTmp

[Gmp]

Всем ответившим спасибо, пока не получилось.
!Viper!
Вроде понятно написал что надо.
Работать должно как я предполагаю так
считываем строку Left$(strStroka, 4), сравниваем со следующей Left$(strStroka, 4) строкой, если одинаково ставим 1 & " " & 2 строка если еще и следующая Left$(strStroka, 4) равна 1 Left$(strStroka, 4) строке делаем 1 & " " & 2 & " " & 3 и т.д. если 1 строка <> следующей - тогда 1 & " " & 2 & " " & 3 & vbCrLf и сравниваем уже с этой новой строки как в начале. Надеюсь понятно объяснил

Если кто хочет потренироваться сделайте код примерный для этого:

Dim strQ as string
Dim strA() as string

strQ = "AAAA AAAA AAAA BBBB BBBB BBBB BBBB AAAA AAAA CCCC CCCC DDDD DDDD"
strA = Split(strQ, " ")

Пусть на выходе получим строку
"AAAA AAAA AAAA | BBBB BBBB BBBB BBBB | AAAA AAAA | CCCC CCCC | DDDD DDDD"

Условие задачи что количество АААА BBBB CCCC DDDD может менятся, также как и их положение в строке.

НУ что есть желающие пораскинуть мозгами?

[Tarik]

Блин. Да что тут думать-то?

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


Dim strQ As String, strOut As String
Dim strA() As String
Dim i As Integer

strQ = "AAAA AAAA AAAA BBBB BBBB BBBB BBBB AAAA AAAA CCCC CCCC DDDD DDDD"
strA = Split(strQ, " ")
strOut = strA(0)
For i = 1 To UBound(strA)
    If (strA(i) = Right$(strOut, Len(strA(i)))) Then
        strOut = strOut & " " & strA(i)
    Else
        strOut = strOut & vbCrLf & strA(i)
    End If
Next i


strOut - выходная строка

[XPAHuTEJIb]

не совсем понял что д.б. на выходе
если делить по пробелам - то последний символ тоже д.б. пробел?

strQ = "AAAA AAAA AAAA BBBB BBBB BBBB BBBB AAAA AAAA CCCC CCCC DDDD DDDD "

в общем, если я правильно понял - код:

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

Private Sub Form_Load()
Dim strQ As String
Dim strA() As String

Dim x, q

strQ = "AAAA AAAA AAAA BBBB BBBB BBBB SSSS BBBB AAAA AAAA CCCC CCCC DDDD DDDD EEEE DDDD AAAA SSSS "
strA = Split(strQ, " ")

x = 1
Do Until x = UBound(strA)
For q = UBound(strA) To x Step -1
  If strA(q) < strA(q - 1) Then swap strA(q), strA(q - 1)
Next q
x = x + 1
Loop

For q = 1 To UBound(strA) - 1
If q = UBound(strA) - 1 Then
  If Left$(strA(q), 4) = Left$(strA(q + 1), 4) Then
   Text1.Text = Text1.Text & strA(q) & " " & strA(q + 1)
   Exit For
  Else
   Text1.Text = Text1.Text & strA(q) & vbCrLf & strA(q + 1)
   Exit For
  End If
End If
If Left$(strA(q), 4) = Left$(strA(q + 1), 4) Then Text1.Text = Text1.Text & strA(q) & " " Else Text1.Text = Text1.Text & strA(q) & vbCrLf
Next q
End Sub

Sub swap(a As String, b As String)
Dim ab(2)
ab(1) = a
ab(2) = b
a = ab(2)
b = ab(1)
End Sub


[Gmp]

Tarik
Отличное решение. Спасибо.

XPAHuTEJIb
Сделал даже больше чем нужно(объединение строк из разных мест), возьму в коллекцию вдруг пригодится. Спасибо.

[Роман-вб]

Sub swap(a As String, b As String)
Dim ab(2)
ab(1) = a
ab(2) = b
a = ab(2)
b = ab(1)
End Sub

Зачем писать уже написанное... Swap -- это стандартная функция...
И что самое интересное, синтаксис у неё точно такой и называется она так же

[GSerg]

Роман-вб
Покажешь?

[Роман-вб]

Прошу прощения
Перепутал... Точнее по старой памяти...
В PDS'е есть...

SWAP variable1, variable2

Usage Notes
■ SWAP is an assignment statement that exchanges the values of two
variables.
■ Any type of variable can be swapped (integer, long, single
precision, double precision, string, currency, or record). However,
if the two variables are not exactly the same type, BASIC generates
the error message, "Type mismatch."

Да. Действительно такого нет на VB6...

[Sacred Phoenix]

2 Роман-вб: а обязательно массив? да и ещё из двух элементов?

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

Private Sub Swap(ByRef S1 As String, ByRef S2 As String)
Dim S3 As String

   S3 = S1
   S1 = S2
   S2 = S3
End Sub

[Роман-вб]

Sacred Phoenix
а я при чём? Я ошибся, и попросил прощенияя. И тот код я даже не коментировал...
P.S. А массив там кстати из 3-х эл-тов

[Sacred Phoenix]

Роман-вб
Упс, я не сразу понял, за что именно ты просишь прощения...
ЗЫ. Массив мог быть и из двух элементов... Если был Option Base 1...