Символьные массивы / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Символьные массивы

83 сообщений из 83, показаны все 4 страниц

все

Символьные массивы

#36613453

jotoy

Гость

Вот такая задача :
Дана строка : Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh. Заполнить символьный масс 3*10 таким образом
1)в первую строку занести элементы строки представляющие собой числа
2)во вторую строку элементы строки представляющие собой слова
3)в третью строку сумарную длину элементов первой и второй строки

...

Рейтинг:

0 / 0

05.05.2010, 17:05

| Ответить | Цитировать | Написать

Символьные массивы

#36613457

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

шо, опять ?

...

Рейтинг:

0 / 0

05.05.2010, 17:06

| Ответить | Цитировать | Написать

Символьные массивы

#36613460

jotoy

Гость

помоги это последняя задача!

...

Рейтинг:

0 / 0

05.05.2010, 17:07

| Ответить | Цитировать | Написать

Символьные массивы

#36613470

jotoy

Гость

про MID не понимаю

...

Рейтинг:

0 / 0

05.05.2010, 17:08

| Ответить | Цитировать | Написать

Символьные массивы

#36613473

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

http://www.sql.ru/forum/actualsearch.aspx?a=jotoy&ma=1

...

Рейтинг:

0 / 0

05.05.2010, 17:09

| Ответить | Цитировать | Написать

Символьные массивы

#36613477

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyпро MID не понимаю

А MID тут и не понадобится

...

Рейтинг:

0 / 0

05.05.2010, 17:10

| Ответить | Цитировать | Написать

Символьные массивы

#36613480

jotoy

Гость

преподаватель говорит через MID надо

...

Рейтинг:

0 / 0

05.05.2010, 17:11

| Ответить | Цитировать | Написать

Символьные массивы

#36613487

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyпреподаватель говорит через MID надо

А, ну раз преподаватель говорит...
Он, вероятно, объяснил и то, зачем здесь MID, и то, как им пользоваться

...

Рейтинг:

0 / 0

05.05.2010, 17:13

| Ответить | Цитировать | Написать

Символьные массивы

#36613504

jotoy

Гость

Я не понял как

...

Рейтинг:

0 / 0

05.05.2010, 17:20

| Ответить | Цитировать | Написать

Символьные массивы

#36613525

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyЯ не понял как

http://msdn.microsoft.com/ru-ru/library/05e63829.aspx

...

Рейтинг:

0 / 0

05.05.2010, 17:25

| Ответить | Цитировать | Написать

Символьные массивы

#36613532

jotoy

Гость

покажи пример прграммы с цифрами

...

Рейтинг:

0 / 0

05.05.2010, 17:27

| Ответить | Цитировать | Написать

Символьные массивы

#36613535

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

русская справка по VB 6.0

...

Рейтинг:

0 / 0

05.05.2010, 17:28

| Ответить | Цитировать | Написать

Символьные массивы

#36613543

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

уточнение: справка для тех, кто изучает новую студию (изменения по сравнению с VB 6.0)

...

Рейтинг:

0 / 0

05.05.2010, 17:30

| Ответить | Цитировать | Написать

Символьные массивы

#36613548

jotoy

Гость

_{Private Sub Command1_Click()

Dim A(1) As String

For i = 1 To 1

A(i) = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh "

Text1.Text = Text1.Text & A(i)

Next i

End Sub}

...

Рейтинг:

0 / 0

05.05.2010, 17:32

| Ответить | Цитировать | Написать

Символьные массивы

#36613553

jotoy

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.

Private Sub Command1_Click()
Dim A( 1 ) As String
For i =  1  To  1 
A(i) = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh "
Text1.Text = Text1.Text & A(i)
Next i
End Sub

вот начало

...

Рейтинг:

0 / 0

05.05.2010, 17:33

| Ответить | Цитировать | Написать

Символьные массивы

#36613559

jotoy

Гость

Код: plaintext

1.
2.
3.
4.

Private Sub Command1_Click()
Dim a As String
a = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh "
Text1.Text = Text1.Text & a
End Sub

или так лучше

...

Рейтинг:

0 / 0

05.05.2010, 17:34

| Ответить | Цитировать | Написать

Символьные массивы

#36613560

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

это программирование для детского сада что-ли?

...

Рейтинг:

0 / 0

05.05.2010, 17:35

| Ответить | Цитировать | Написать

Символьные массивы

#36613561

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyили так лучше

результат будет одинаков

...

Рейтинг:

0 / 0

05.05.2010, 17:35

| Ответить | Цитировать | Написать

Символьные массивы

#36613563

jotoy

Гость

А дальше как ?

...

Рейтинг:

0 / 0

05.05.2010, 17:36

| Ответить | Цитировать | Написать

Символьные массивы

#36613569

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyА дальше как ?

сверху вниз и слева направо в общем случае.

дальше как что?

...

Рейтинг:

0 / 0

05.05.2010, 17:37

| Ответить | Цитировать | Написать

Символьные массивы

#36613586

jotoy

Гость

скажите хоть как массив 3*10 задать

...

Рейтинг:

0 / 0

05.05.2010, 17:43

| Ответить | Цитировать | Написать

Символьные массивы

#36613589

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

dim arr(2,9) as ???

...

Рейтинг:

0 / 0

05.05.2010, 17:44

| Ответить | Цитировать | Написать

Символьные массивы

#36613590

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyскажите хоть как массив 3*10 задать

надо же, пошли конкретные вопросы.

Код: plaintext

Dim a( 3 ,  10 ) As String

...

Рейтинг:

0 / 0

05.05.2010, 17:44

| Ответить | Цитировать | Написать

Символьные массивы

#36613603

jotoy

Гость

Код: plaintext

1.
2.

for i =  1  to  3  
for j =  1  to  10

надо ?

...

Рейтинг:

0 / 0

05.05.2010, 17:49

| Ответить | Цитировать | Написать

Символьные массивы

#36613610

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoy

Код: plaintext

1.
2.

for i =  1  to  3  
for j =  1  to  10

надо ?

нет

...

Рейтинг:

0 / 0

05.05.2010, 17:50

| Ответить | Цитировать | Написать

Символьные массивы

#36613612

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

дежавю прям

ps
изучайте книжку и читайте конспекты. вы основы алгоритмирования проходили?

...

Рейтинг:

0 / 0

05.05.2010, 17:51

| Ответить | Цитировать | Написать

Символьные массивы

#36613620

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Konst_Oneвы основы алгоритмирования проходили?

Как раз хотел дать дружеский совет автору.

Сначала опишите алгоритм русскими словами, а потом будете переводить на VB

...

Рейтинг:

0 / 0

05.05.2010, 17:53

| Ответить | Цитировать | Написать

Символьные массивы

#36613702

jotoy

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub Command2_Click()
Dim A( 3 ,  10 ) As String
Dim d As String
Dim S1, S2, S3 As Integer
d = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh "
S1 = Mid(d,  5 ,  2 ) & "   " & Mid(d,  13 ,  3 ) & "   " & Mid(d,  33 ,  1 ) & "   " & Mid(d,  36 ,  2 ) & "   " & Mid(d,  40 ,  1 ) & "   " & Mid(d,  43 ,  2 ) & "   " & Mid(d,  52 ,  2 ) & "   " & Mid(d,  56 ,  1 ) & "  " & Mid(d,  67 ,  2 ) & "   " & Mid(d,  71 ,  3 )


Text2.Text = S1

End Sub

как s2 сделать-буквы не получается и S3

...

Рейтинг:

0 / 0

05.05.2010, 18:27

| Ответить | Цитировать | Написать

Символьные массивы

#36613765

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyкак s2 сделать-буквы не получается и S3

Не удалось расшифровать данный набор слов.

...

Рейтинг:

0 / 0

05.05.2010, 19:01

| Ответить | Цитировать | Написать

Символьные массивы

#36613846

jotoy

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Dim A( 3 ,  10 ) As String
Dim d As String
Dim S1, S2 As Integer
d = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh "
S1 = Mid(d,  5 ,  2 ) & "   " & Mid(d,  13 ,  3 ) & "   " & Mid(d,  33 ,  1 ) & "     " _
& Mid(d,  36 ,  2 ) & "    " & Mid(d,  40 ,  1 ) & "      " & Mid(d,  43 ,  2 ) & "     " & Mid(d,  52 ,  2 ) & "    " _
& Mid(d,  56 ,  1 ) & "   " & Mid(d,  67 ,  2 ) & "   " & Mid(d,  71 ,  3 ) & vbCrLf _
& Mid(d,  1 ,  2 ) & "   " & Mid(d,  9 ,  2 ) & "   " & Mid(d,  18 ,  3 ) & "  " & Mid(d,  23 ,  3 ) _
& "   " & Mid(d,  28 ,  3 ) & "   " & Mid(d,  47 ,  3 ) & "   " & Mid(d,  59 ,  2 ) & "   " & Mid(d,  63 ,  2 ) _
& "   " & Mid(d,  76 ,  1 ) & "    " & Mid(d,  79 ,  2 )


 S1 = S1 & "   " & vbTab
Text2.Text = Text2.Text & S1 & vbCrLf

количество символов в строке не получается т е 3 строчка

...

Рейтинг:

0 / 0

05.05.2010, 20:09

| Ответить | Цитировать | Написать

Символьные массивы

#36613851

jotoy

Гость

короче как задать 3 строчку и установить массив 3*10 более корректно

...

Рейтинг:

0 / 0

05.05.2010, 20:12

| Ответить | Цитировать | Написать

Символьные массивы

#36613855

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyколичество символов в строке не получается т е 3 строчка

мне вообще-то из ТЗ показалось, что вам нужно заполнить массив, а не строковые переменные....

...

Рейтинг:

0 / 0

05.05.2010, 20:14

| Ответить | Цитировать | Написать

Символьные массивы

#36613866

jotoy

Гость

как это сделать массивом 3*10, А то я уже не могу
HELP

...

Рейтинг:

0 / 0

05.05.2010, 20:18

| Ответить | Цитировать | Написать

Символьные массивы

#36613877

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyкак это сделать массивом 3*10, А то я уже не могу
HELP

Наверное, вам надо перебрать в цикле всю строку от запятой до запятой, определять тип каждого элемента и класть его в первую или вторую строку массива, а после окончания разбора строки заполнить третью строку массива, использую первую и вторую, так?

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

Мы не можем помочь вам записать алгоритм на языке VB, если самого алгоритма у вас нет.

...

Рейтинг:

0 / 0

05.05.2010, 20:24

| Ответить | Цитировать | Написать

Символьные массивы

#36613886

jotoy

Гость

1 заполняем данную строку Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh в текстовое окно 1
2 создаем массив 3*10 во втором текстовом окне
3 в первую строчку этого массива заносим элементы представляющие собой числа
4 во вторую строку представляющие собой слова
5 в третью строку сумарную длину элементов первой и второй строки т е количество букв и цифр
Такой алгоритм?

...

Рейтинг:

0 / 0

05.05.2010, 20:31

| Ответить | Цитировать | Написать

Символьные массивы

#36613889

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoy2 создаем массив 3*10 во втором текстовом окне

Ага, так вы просто не понимаете, что такое массив.
Тогда для начала изучите этот вопрос, потом продолжим. Ссылку на учебник вам давали неоднократно. Ну или в конспект загляните.

...

Рейтинг:

0 / 0

05.05.2010, 20:33

| Ответить | Цитировать | Написать

Символьные массивы

#36613896

jotoy

Гость

некогда читать объясни на примере !

...

Рейтинг:

0 / 0

05.05.2010, 20:35

| Ответить | Цитировать | Написать

Символьные массивы

#36613900

jotoy

Гость

Ладно 2)заполняем массив 3*10 НЕТ?

...

Рейтинг:

0 / 0

05.05.2010, 20:36

| Ответить | Цитировать | Написать

Символьные массивы

#36613907

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyЛадно 2)заполняем массив 3*10 НЕТ?

Мы в угадайку будем играть? Не угадал.

jotoyнекогда читать объясни на примере !

1) Некогда объяснять то, что уже кто-то обстоятельно и подробно объяснил.
2) На брудершафт мы не пили
3) Денег я за консультации не получаю
4) Имею желание общаться с вежливыми и благодарными людьми

...

Рейтинг:

0 / 0

05.05.2010, 20:42

| Ответить | Цитировать | Написать

Символьные массивы

#36613921

jotoy

Гость

Я просто не могу понять, как задать массив допустим А(3,10) и прописать в каждую его строчку данные которые нужны для решения
Согласен у меня получился строковый а как двумерный не знаю, и читать что-то бесполезно завтра сдавать надо.

...

Рейтинг:

0 / 0

05.05.2010, 20:52

| Ответить | Цитировать | Написать

Символьные массивы

#36613926

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyчитать что-то бесполезно завтра сдавать надо.

могу только посочувствовать

...

Рейтинг:

0 / 0

05.05.2010, 20:54

| Ответить | Цитировать | Написать

Символьные массивы

#36613935

jotoy

Гость

так все таки может напишь чуть-чуть или ты сам не знаешь

...

Рейтинг:

0 / 0

05.05.2010, 20:56

| Ответить | Цитировать | Написать

Символьные массивы

#36613938

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyСогласен у меня получился строковый

У вас не получился пока никакой, даже строковый.
Поэтому предлагаю сначала выяснить, что такое массив.

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

...

Рейтинг:

0 / 0

05.05.2010, 20:58

| Ответить | Цитировать | Написать

Символьные массивы

#36613942

jotoy

Гость

давай хоть начало скажи как сделать или дай свою версию алгоритма

...

Рейтинг:

0 / 0

05.05.2010, 20:59

| Ответить | Цитировать | Написать

Символьные массивы

#36613950

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyтак все таки может напишь чуть-чуть или ты сам не знаешь

чуть-чуть?
да пожалуйста

Код: plaintext

j = InStr(j +  1 , S1, ",")

эта строка точно понадобится, если вы настаиваете на использовании Mid

jotoyдавай хоть начало скажи как сделать или дай свою версию алгоритма

А я уже давал ВЕСЬ алгоритм рамочно. Но вам же читать некогда.

...

Рейтинг:

0 / 0

05.05.2010, 21:03

| Ответить | Цитировать | Написать

Символьные массивы

#36613963

jotoy

Гость

Dim a(3, 10) As String
но вот записали и чего дальше делать
Как можно без мid

...

Рейтинг:

0 / 0

05.05.2010, 21:17

| Ответить | Цитировать | Написать

Символьные массивы

#36613970

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyDim a(3, 10) As String
но вот записали и чего дальше делать

выделять элементы из строки и запихивать в нужные строки массива

jotoyКак можно без мid

Функция Split позволит разобрать строку на элементы.

...

Рейтинг:

0 / 0

05.05.2010, 21:20

| Ответить | Цитировать | Написать

Символьные массивы

#36613972

jotoy

Гость

напиши плиз пример хоть для оной строки

...

Рейтинг:

0 / 0

05.05.2010, 21:21

| Ответить | Цитировать | Написать

Символьные массивы

#36614098

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyнапиши плиз пример хоть для оной строки

Пример чего?

...

Рейтинг:

0 / 0

05.05.2010, 22:47

| Ответить | Цитировать | Написать

Символьные массивы

#36614302

ak787

Участник

Сообщения: 164

Рейтинг: 0 / 0

держи студент, терпеть не мог такие задачи, которые через одно место препод велел делать... так что выручаю :)

Код: 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.

Dim MyStr As String, Symb As String
Dim Mas( 2 ,  9 ) As String
Dim i As Integer, cntNum As Integer, cntWrd As Integer
MyStr = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh"
cntNum =  0 
cntWrw =  0 
For i =  1  To Len(MyStr)
    Symb = Mid(MyStr, i,  1 )
    If Symb Like "[0-9]" Then
        Mas( 0 , cntNum) = Mas( 0 , cntNum) + Symb
        lastSymb = Symb
    End If
    If Symb Like "[A-z]" Or Symb Like "[А-я]" Then
        Mas( 1 , cntWrd) = Mas( 1 , cntWrd) + Symb
        lastSymb = Symb
    End If
    If Symb = "," Then
        If lastSymb Like "[0-9]" Then
            cntNum = cntNum +  1 
            Else
            cntWrd = cntWrd +  1 
        End If
    End If
Next i
For i =  0  To  9 
    Mas( 2 , i) = Len(Mas( 0 , i) + Mas( 1 , i))
Next i

...

Рейтинг:

0 / 0

06.05.2010, 01:19

| Ответить | Цитировать | Написать

Символьные массивы

#36615375

jotoy

Гость

Стесняю спросить А где кнопки или текствое окно

...

Рейтинг:

0 / 0

06.05.2010, 15:20

| Ответить | Цитировать | Написать

Символьные массивы

#36615410

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyСтесняю спросить А где кнопки или текствое окно

А в ТЗ про это ничего не сказано.

...

Рейтинг:

0 / 0

06.05.2010, 15:27

| Ответить | Цитировать | Написать

Символьные массивы

#36615417

jotoy

Гость

Shocker.Pro я не у вас спрашиваю

...

Рейтинг:

0 / 0

06.05.2010, 15:28

| Ответить | Цитировать | Написать

Символьные массивы

#36615452

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyShocker.Pro я не у вас спрашиваю

Так ответ-то тот же.
Ладно-ладно, замолкаю

...

Рейтинг:

0 / 0

06.05.2010, 15:35

| Ответить | Цитировать | Написать

Символьные массивы

#36615511

jotoy

Гость

У меня с этим кодом не получается

...

Рейтинг:

0 / 0

06.05.2010, 15:49

| Ответить | Цитировать | Написать

Символьные массивы

#36615641

Hugo121

Гость

jotoy, бедняга....
Нормально код работает.
Ну добавь в конце вывод на лист:

Код: plaintext

1.
2.
3.
4.
5.
6.

For i =  0  To  9 
    Mas( 2 , i) = Len(Mas( 0 , i) + Mas( 1 , i))
    Cells( 1 , i +  1 ) = Mas( 0 , i) 'добавлено
    Cells( 2 , i +  1 ) = Mas( 1 , i) 'добавлено
    Cells( 3 , i +  1 ) = Mas( 2 , i) 'добавлено
Next i

...

Рейтинг:

0 / 0

06.05.2010, 16:25

| Ответить | Цитировать | Написать

Символьные массивы

#36615687

jotoy

Гость

А скажите куда прописывать все это
И можете написать все программу с указанием кнопок и текстовых окон

...

Рейтинг:

0 / 0

06.05.2010, 16:39

| Ответить | Цитировать | Написать

Символьные массивы

#36615738

Hugo121

Гость

jotoy,

Вот под Эксель, как под VB сделать - не знаю.

...

Рейтинг:

0 / 0

06.05.2010, 16:55

| Ответить | Цитировать | Написать

Символьные массивы

#36615748

jotoy

Гость

Скопирую весь свой код в VB и вставь в форум

...

Рейтинг:

0 / 0

06.05.2010, 16:58

| Ответить | Цитировать | Написать

Символьные массивы

#36615773

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyСкопирую весь свой код в VB и вставь в форум

Сколько не пытался добиться он ТС слова "пожалуйста" - не получилось. Видать не знает.

В Сибири нашли мальчика, воспитанного дятлами.... Далее по тексту...

...

Рейтинг:

0 / 0

06.05.2010, 17:08

| Ответить | Цитировать | Написать

Символьные массивы

#36615781

jotoy

Гость

Пожалуйста напишите полный код со всеми возможными элементами на форме

...

Рейтинг:

0 / 0

06.05.2010, 17:10

| Ответить | Цитировать | Написать

Символьные массивы

#36615800

Hugo121

Гость

...

Рейтинг:

0 / 0

06.05.2010, 17:19

| Ответить | Цитировать | Написать

Символьные массивы

#36615807

повеселило

Гость

Веселый топик xDDDDD

Еще одно решение с функцией MID

Код: 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.

    baseText = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh"
    
    For i =  1  To Len(baseText)
        newText = newText & Mid(baseText, i,  1 )
    Next i
    
    newText = Replace(newText, " ", "")
    If Replace(newText, ",", "") = "" Then Exit Sub
    
    AllTextArray = Split(newText, ",")
    
    ReDim MainArray( 1  To  3 ,  1  To Len(Replace(newText, ",", "")))
    
    For i = LBound(AllTextArray) To UBound(AllTextArray)
        If IsNumeric(AllTextArray(i)) Then
            IndexNumeric = IndexNumeric +  1 
            MainArray( 1 , IndexNumeric) = AllTextArray(i)
        Else
            IndexWord = IndexWord +  1 
            MainArray( 2 , IndexWord) = AllTextArray(i)
        End If
    Next i
    
    If IndexNumeric > IndexWord Then MainIndex = IndexNumeric Else MainIndex = IndexWord
    
    For i = LBound(MainArray) To MainIndex
         MainArray( 3 , i) = Len(MainArray( 1 , i)) + Len(MainArray( 2 , i))
    Next i
    
    If MainIndex >  0  Then
        ReDim Preserve MainArray( 1  To  3 ,  1  To MainIndex)
        ActiveSheet.Range(Cells( 1 ,  1 ), Cells( 3 , MainIndex)) = MainArray
    End If

...

Рейтинг:

0 / 0

06.05.2010, 17:22

| Ответить | Цитировать | Написать

Символьные массивы

#36615820

повеселило

Гость

забыл скопировать

Код: plaintext

1.
2.
3.
4.
5.
6.

    Dim i As Long, j As Long
    Dim baseText As String, newText As String
    Dim AllTextArray() As String
    Dim MainArray() As Variant
    Dim IndexWord As Long
    Dim IndexNumeric As Long
    Dim MainIndex As Long

...

Рейтинг:

0 / 0

06.05.2010, 17:26

| Ответить | Цитировать | Написать

Символьные массивы

#36615822

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

повеселилоВеселый топик xDDDDD

Еще одно решение с функцией MID

Ну да, это выход, и не придерешься

Кстати, решение ak787 мне не очень понравилось, ибо на элемент типа "кен5"или "6aaa" отреагирует в крайней степени неадекватно, хоть таких и нет в ТЗ. Твое ближе к тому, что имел ввиду я.

...

Рейтинг:

0 / 0

06.05.2010, 17:26

| Ответить | Цитировать | Написать

Символьные массивы

#36615824

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Еще можно извратиться и заполнять третью строку "на ходу" и обойтись одним циклом на все про все.

...

Рейтинг:

0 / 0

06.05.2010, 17:27

| Ответить | Цитировать | Написать

Символьные массивы

#36615847

ak787

Участник

Сообщения: 164

Рейтинг: 0 / 0

jotoy,

держи...

надеюсь ты не на программиста учишься :)
вот прогу я написал и думаю, что тебе она не пригодится, потому что препод не поверит...
так что давай зубри мат часть, чтобы мои труды не пропали даром...
учи что такое массивы, как определить двухмерный массив, что делает оператор MID, то такое оператор LIKE, да и вывод тоже учи как делать, в данном примере вывод в элемент List, учи его метод AddItem

...

Рейтинг:

0 / 0

06.05.2010, 17:33

| Ответить | Цитировать | Написать

Символьные массивы

#36615855

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ak787Ставлю на то, что он сейчас ответит, что у него опять ничего не получается.

...

Рейтинг:

0 / 0

06.05.2010, 17:36

| Ответить | Цитировать | Написать

Символьные массивы

#36615857

ak787

Участник

Сообщения: 164

Рейтинг: 0 / 0

небольшая поправка, вот этот вариант возьми

...

Рейтинг:

0 / 0

06.05.2010, 17:36

| Ответить | Цитировать | Написать

Символьные массивы

#36615882

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ak787,

Ошибочка вышла!

Попробуй в качестве первого элемента указать одиночную цифру, скажем, "8"

...

Рейтинг:

0 / 0

06.05.2010, 17:44

| Ответить | Цитировать | Написать

Символьные массивы

#36615884

Hugo121

Гость

ak787,
все цифры в окошко не влазят....

...

Рейтинг:

0 / 0

06.05.2010, 17:44

| Ответить | Цитировать | Написать

Символьные массивы

#36615948

повеселило

Гость

Shocker.ProЕще можно извратиться и заполнять третью строку "на ходу" и обойтись одним циклом на все про все.Можно, но лишних проверок в цикле делать не хотелось.

...

Рейтинг:

0 / 0

06.05.2010, 18:05

| Ответить | Цитировать | Написать

Символьные массивы

#36615980

ak787

Участник

Сообщения: 164

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

06.05.2010, 18:18

| Ответить | Цитировать | Написать

Символьные массивы

#36616023

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ak787нет там никих ошибок

...

Рейтинг:

0 / 0

06.05.2010, 18:30

| Ответить | Цитировать | Написать

Символьные массивы

#36616514

ak787

Участник

Сообщения: 164

Рейтинг: 0 / 0

Shocker.Pro,

:) ответ в ТЗ... коментов больше не будет

...

Рейтинг:

0 / 0

07.05.2010, 01:16

| Ответить | Цитировать | Написать

Символьные массивы

#36631063

jotoy

Гость

Код: plaintext

lastSymb = Symb

в этом коде lastSymb означает последний элемент в строке ?

...

Рейтинг:

0 / 0

16.05.2010, 22:57

| Ответить | Цитировать | Написать

Символьные массивы

#36631066

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoy

Код: plaintext

lastSymb = Symb

в этом коде lastSymb означает последний элемент в строке ?

нет, последний символ каждого элемента.

...

Рейтинг:

0 / 0

16.05.2010, 23:01

| Ответить | Цитировать | Написать

Символьные массивы

#36631070

jotoy

Гость

не шутишь ?

...

Рейтинг:

0 / 0

16.05.2010, 23:04

| Ответить | Цитировать | Написать

Символьные массивы

#36631071

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

зуб даю

...

Рейтинг:

0 / 0

16.05.2010, 23:06

| Ответить | Цитировать | Написать

Символьные массивы

#36631073

jotoy

Гость

благодарю за подсказку

...

Рейтинг:

0 / 0

16.05.2010, 23:07

| Ответить | Цитировать | Написать

Символьные массивы

#36631079

jotoy

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

For k =  0  To  2 
    b = ""
    For i =  0  To  9 
        If i =  9  Then
            b = b + A(k, i)
        Else
            b = b + A(k, i) & vbTab
        End If
    Next i
    List1.AddItem b
    Next k

Последний вопрос на сегодня это для чего ?

...

Рейтинг:

0 / 0

16.05.2010, 23:10

| Ответить | Цитировать | Написать

Символьные массивы

#36631081

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jotoyПоследний вопрос на сегодня это для чего ?

Для визуализации массивов.
Еще один зуб даю.

...

Рейтинг:

0 / 0

16.05.2010, 23:12

| Ответить | Цитировать | Написать

Символьные массивы

#36631084

jotoy

Гость

А проще для создания или изображения

...

Рейтинг:

0 / 0

16.05.2010, 23:15

| Ответить | Цитировать | Написать

83 сообщений из 83, показаны все 4 страниц

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Символьные массивы

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=60&tid=2159788]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	40ms
get topic data:	10ms
get forum data:	3ms
get page messages:	91ms
get tp. blocked users:	1ms
others:	10ms

total:	184ms