Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь с текстовым масивом / 7 сообщений из 7, страница 1 из 1
18.08.2009, 11:27
    #36149456
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь с текстовым масивом
Всем здравствуйте !!!
Честно говоря с масивами имею мало опыта и нужна помощь.
Не пинайте пожалуйста .

Есть некий текст программы загруженный в RichTextBox
Нужно пройтись по него и создать одномерный масив строк

Делаю так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Private Sub Command1_Click()
Dim k As Long
Dim Er As String
Dim arrayX As Variant
Dim n As Integer, Rec As Integer
Dim cont As String, mStr As String
Dim myArray() As String
Dim Varfull As Variant

On Error GoTo Error

'*** Dimention array
Varfull = Split(rtb.Text, vbCrLf)
Rec = UBound(Varfull)
'MsgBox Rec

ReDim myArray(Rec)

For k =  1  To Rec
mStr = Piece(rtb.Text, "" & vbCrLf & "", k)
myArray(k) = mStr
Next k

ReDim Preserve myArray(k)
arrayX = myArray(k)

MsgBox arrayX

Exit Sub
Error:
MsgBox ("Error: " & err.Description)

End Sub


Но ...

Спасибо Всем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2009, 11:46
    #36149545
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь с текстовым масивом
Нашел ...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Private Sub Command1_Click()
Dim k As Long
Dim Er As String
Dim  Rec As Integer
Dim cont As String, mStr As String
Dim myArray() As String
Dim Varfull As Variant

On Error GoTo Error

'*** Dimention array
Varfull = Split(rtb.Text, vbCrLf)
Rec = UBound(Varfull)
'MsgBox Rec

ReDim myArray(Rec)

For k =  1  To Rec
mStr = Piece(rtb.Text, "" & vbCrLf & "", k)
myArray(k) = mStr
Next k

ReDim Preserve myArray(k)

Exit Sub
Error:
MsgBox ("Error: " & err.Description)

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2009, 13:03
    #36149823
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь с текстовым масивом
Valeriuс масивами имею мало опыта и нужна помощь. с объектом Collection работать удобнее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2009, 14:47
    #36150196
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь с текстовым масивом
Valeriu,

Вы там по ошибке используете резервное слово Error в качестве метки, что нежелательно.

Успехов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2009, 14:50
    #36150206
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь с текстовым масивом
И переменная Varfull не нужна, а значит и все связанное с ней. У вас же есть myArray.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2009, 15:17
    #36150290
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь с текстовым масивом
Valeriu,

И вот это зачем?

Код: plaintext
ReDim Preserve myArray(k)

Вообще, текст программы с ненужными переменными, необъяснимой функцией Piece и подвешенными линиями кода наводит мысли об известной картине Эдварда Мюнка "Крик".

Сорри.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2009, 15:38
    #36150374
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь с текстовым масивом
Постараюсь исправится ;) я ведь с массивами не пользовался, а вот приходится ,,,
Замечания учту
Спасибо,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь с текстовым масивом / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]