Вот именно. Не работает проверял.

а у меня счас проверит некде.. чёрт ... я бы подсказал ...
а если вот так А(и) у тебя какого параметра? стринг или как // пишет чё нибудь когда пытаешся в текстбокс выводить?

Это сообщение отредактировал(а) M.E.G.U.S - 9.1.2005, 18:38

Да без разницы что Интегер, что Стринг, и потом Интегер я всегда могу преобразовать с помощью Cstr или Str.
Добавлено @ 18:42
Ничего не пришет, а

[/quote]
стринг или как // пишет чё нибудь когда пытаешся в текстбокс выводить?
[quote]

// это типа что? Вообще ничего не выводит.

Цитата

// это типа что?

это типо вместо точки... конец предложения

Ну да, я все, если кто.

Код

Option Explicit Private Sub Command1_Click() Dim i As Integer Dim A(10) As Integer For i = 1 To 10   A(i) = 3 Next i For i = 0 To 9   If A(i) = A(i + 1) Then           Print A(i)   End If Next End Sub

Код

Option Explicit Private Sub Command1_Click() Dim i As Integer Dim A(10) As Integer For i = 1 To 10   A(i) = 3 Next i For i = 0 To 9   If A(i) = A(i + 1) Then           Text1.Text = Text1.Text & " " & A(i)   End If Next End Sub

А почему троек только девять думай сам...

Троек только девять ;=) в этой строке по-моейму дело:

Код

If A(i) = A(i + 1) Then '... End If

А вообще ошибку 9 - выход за пределы допустимых значений массива я обошел.

Код

A(1) = "Слово Слово Слово Слово x x"

Где x x просто числа Integer.
Можете не отвечать на вопрос, буду сам думать (щас делишки), если пробел после слова, то переносим на новую строку слово после пробела:

Слово
Слово
Слово
Слово
x
x

Да и вот еще что, вот в чем гемморрой был:

Код

For i = 0 To S / 6    If a(i) = a(i + 1) Then        Text1.Text = Text1.Text & vbNewLine & " " & a(i)    Do While a(i) = a(i + 1) And i <= S        i = i + 1        Text1.Text = Text1.Text & vbNewLine & " " & a(i)        Loop    End If Next

Помните я писал о том, что в БД надо сохранять инфу в алфавитном порядке, Cardinal мне объяснил, как с помощью своего типа сделать это, но я сделал вот так:
в файле c:\temp.txt лежат записи типа

Романов
Имя1
Отчество1
Число1
Число1
Число1
Петров
Имя2
Отчество2
Число2
Число2
Число2
Сидоров
Имя3
Отчество3
Число3
Число3
Число3

Ну а на выходе получаем файл c:\temp1.txt с содержимым:
Петров Имя2 Отчество2 Число2 Число2 Число2
Романов Имя1 Отчество1 Число1 Число1 Число1
Сидоров Имя3 Отчество3 Число3 Число3 Число3

Код

Private Sub Command1_Click() Dim fam(), a(), B(), C(), D(), E(), F() As String Dim v() As String Open "c:\temp.txt" For Input As #1 Do Until EOF(1) Line Input #1, txt allTxt = allTxt + txt + vbCrLf Loop Close #1 txtSearch.Text = allTxt + vbCrLf    Dim myParas As Variant  myParas = Split(txtSearch, vbNewLine)  s = ((UBound(myParas) + 1) - 2)   ReDim fam(i) ReDim fam(1 To s) ReDim a(i) ReDim a(1 To s / 6) ReDim B(i) ReDim B(1 To s) ReDim C(i) ReDim C(1 To s) ReDim D(i) ReDim D(1 To s) ReDim E(i) ReDim E(1 To s) ReDim F(i) ReDim F(1 To s) ReDim v(i) ReDim v(1 To s / 6)   Open "c:\temp.txt" For Input As #1 i = 1 j = 1 Do Until EOF(1) Line Input #1, txt fam(i) = txt i = i + 1 If j = 6 Then j = 1 Else: j = j + 1 End If Loop Close #1 n = 1 m = 2 ot = 3 ocl = 4 ocl1 = 5 ocl2 = 6 On Error GoTo MassivError For i = 1 To S a(i) = fam(n) B(i) = fam(m) C(i) = fam(ot) D(i) = fam(ocl) E(i) = fam(ocl1) F(i) = fam(ocl2) n = n + 6 m = m + 6 ot = ot + 6 ocl = ocl + 6 ocl1 = ocl1 + 6 ocl2 = ocl2 + 6 Next i MassivError: If Err.Number = 9 Then End If    For i = 1 To s / 6    v(i) = a(i) + " " + B(i) + " " + C(i) + " " + D(i) + " " + E(i) + " " + F(i)    Next i     P = 0 Max = UBound(v): exchange = True While exchange = True exchange = False For i = 2 To Max        If v(i - 1) > v(i) Then                exchange = True                P = v(i - 1)                      v(i - 1) = v(i)                  v(i) = P                  End If Next i Wend    Open "c:\temp1.txt" For Append As #1    For i = 1 To Max    Print #1, v(i)    Next i    Close #1 End Sub

Короче, спрашиваю у Вас как сделать так, чтоб прога, если встретит в первой строке первый пробел, переносит на новую строчку второе слово; встретит второй пробел, переносит на новую строку третье слово ну и так далее.

P.S. Хотел спросить: в чем разница между vbCrLf и vbNewLine ?
P.P.S. Извиняйте за On Error GoTo MassivError просто времени нет этим заниматься.

Цитата(Voldemar2004 @ 20.1.2005, 16:06)

Хотел спросить: в чем разница между vbCrLf и vbNewLine ?

Каждый файл это большое кол-во битиков, в восемь раз меньшее количество байтиков, эти байтики можно представить в виде hex. vbCrLf это одно значение, а vbNewLine это "другое" На самом деле возможно, что разницы нет (как я понял из таблицы). Чтобы это уточнить запиши в файл vbCrLf, а потом vbNewLine и посмотри в Norton Commander на ascii символы. Если четыре символа (две одинаковые пары), то разницы в vbCrLf и vbNewLine в твоем случае нет. А вообще должно зависить от platform (см. таблица).

Цитата

Constant_______Value__________________Description ----------------------------------------------------------------------------------------------------------------- vbCr__________Chr(13)_________________Carriage return vbCrLf_____Chr(13) & Chr(10)_____________Carriage return–linefeed combination vbFormFeed____Chr(12)__________________Form feed; not useful in Microsoft Windows vbLf___________Chr(10)_________________Line feed vbNewLine__Chr(13) & Chr(10) or Chr(10)____Platform-specific newline character; whatever is appropriate for the platform vbNullChar_______Chr(0)_________________Character having the value 0 vbNullString String having value 0 Not the same as a zero-length string (""); used for calling external procedures vbTab__________Chr(9)__________________Horizontal tab vbVerticalTab____Chr(11)_________________Vertical tab; not useful in Microsoft Windows

Цитата(Voldemar2004 @ 21.1.2005, 00:06)

Короче, спрашиваю у Вас как сделать так, чтоб прога, если встретит в первой строке первый пробел, переносит на новую строчку второе слово; встретит второй пробел, переносит на новую строку третье слово ну и так далее.

Разбиение строки FIO где-то здесь видел, cardinal подскажет.
А вообще код о...й - о...й. Страшно читать.

Цитата(Impulse @ 21.1.2005, 17:42)

Разбиение строки FIO где-то здесь видел

Попробуй Replace или читай тут:
http://forum.vingrad.ru/index.php?showtopi...=findpost&p=733

Цитата(Impulse @ 21.1.2005, 17:42)

А вообще код о...й - о...й. Страшно читать.

Я предупреждал

Да сделал я это разбиение, сам. Все проще ок-сь.