массив символов / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

все

массив символов

#37253433

julia27

Гость

Текст в виде массива символов. Убрать лишние пробелы, т.е. построить такой же массив, но без пробелов.
Помогите, пожалуйста!=(

...

Рейтинг:

0 / 0

10.05.2011, 18:12

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

массив символов

#37253437

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27, а в массив как попадают символы??

...

Рейтинг:

0 / 0

10.05.2011, 18:16

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

массив символов

#37253442

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27Помогите, пожалуйста!=(а что уже сделано?

...

Рейтинг:

0 / 0

10.05.2011, 18:17

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

массив символов

#37253452

julia27

Гость

а в массив как попадают символы??

O_o я не знаю как они туда попадают...
и еще ничего не сделано...=(

...

Рейтинг:

0 / 0

10.05.2011, 18:22

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

массив символов

#37253464

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27,
Убрать лишние пробелы, т.е. построить такой же массив, но без пробелов
круто типа
Убрать лишние волосы на голове, т.е. построить такую же голову, но без волосов

...

Рейтинг:

0 / 0

10.05.2011, 18:29

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

массив символов

#37253470

julia27

Гость

Вот вам смешно, а как мне это сделать?=(

...

Рейтинг:

0 / 0

10.05.2011, 18:31

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

массив символов

#37253472

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27Вот вам смешно, а как мне это сделать?=(
наверное начать с объявления массива....
потом заполнить его...

...

Рейтинг:

0 / 0

10.05.2011, 18:32

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

массив символов

#37253477

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

наверное еще перед заполнением удалить лишние пробелы, именно лишние, а не все

...

Рейтинг:

0 / 0

10.05.2011, 18:36

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

массив символов

#37253502

julia27

Гость

Ципихович Эндрюнаверное еще перед заполнением удалить лишние пробелы, именно лишние, а не все

ну не я задание придумывала=)
понятно, что все...а вот как - не понятно...

ну допустим я составила массив..эээ...вот так...

Private Sub Command1_Click()
Dim a(4)
a(1) = Val(Text1)
a(2) = Val(Text1)
a(3) = Val(Text1)
a(4) = Val(Text1)

но нужен видеть массив символов...а как это указать?

...

Рейтинг:

0 / 0

10.05.2011, 18:48

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

массив символов

#37253512

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27ну допустим
a(1) = Val(Text1)
ну допустим.
вы хотя бы что-то понимаете из того, что здесь написано?

...

Рейтинг:

0 / 0

10.05.2011, 18:51

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

массив символов

#37253513

julia27

Гость

какой-то бред написала...но я хотела, чтобы в Text1 вводились элементы массива через пробелы, а потом в Text2 появлялись они же, но без пробелов уже...все могу сделать, кроме как избавится от пробелов...

...

Рейтинг:

0 / 0

10.05.2011, 18:53

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

массив символов

#37253518

julia27

Гость

хм, если честно, нет=))но если так написать, то получается так, как я задумала...ну правда пробелы не убираются...

...

Рейтинг:

0 / 0

10.05.2011, 18:54

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

массив символов

#37253520

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27я хотела, чтобы в Text1 вводились элементы массива через пробелы, а потом в Text2 появлялись они же, но без пробелов уже...все могу сделать, кроме как избавится от пробелов...

Код: plaintext

1.
2.
3.
4.
5.

Private Sub Text1_Change()

Text2.Text = Replace(Text1.Text, " ", "")

End Sub

...

Рейтинг:

0 / 0

10.05.2011, 18:55

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

массив символов

#37253524

julia27

Гость

О, я так писала!=))ура, я была на верном пути!=)я не совсем понимала просто, что в скобочках нужно было писать...щас проверю!=)

...

Рейтинг:

0 / 0

10.05.2011, 18:57

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

массив символов

#37253527

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

конечно-конечно, мы вам верим....

правда к массивам это не имеет никакого отношения.... но в последнем ТЗ они и не упоминались ))

...

Рейтинг:

0 / 0

10.05.2011, 18:59

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

массив символов

#37253528

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.

Private Sub Command1_Click()
Dim a( 4 )
a( 1 ) = Val(Text1)
a( 2 ) = Val(Text1)
a( 3 ) = Val(Text1)
a( 4 ) = Val(Text1)

а зачем одно и то же закидываете??

...

Рейтинг:

0 / 0

10.05.2011, 18:59

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

массив символов

#37253529

julia27

Гость

Ура, ура, получилось!!!!=)))спасибо большое!
P.S. хм, надеюсь, что я правильно задание поняла...

...

Рейтинг:

0 / 0

10.05.2011, 19:00

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

массив символов

#37253533

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27, а будет 6 пробелов подряд и всё, горе

...

Рейтинг:

0 / 0

10.05.2011, 19:01

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

массив символов

#37253536

julia27

Гость

Ну можете и не верить, но я правда писала!=)))так как из вашего форума вычитала=))))))))))

...

Рейтинг:

0 / 0

10.05.2011, 19:02

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

массив символов

#37253539

julia27

Гость

Ципихович Эндрюjulia27, а будет 6 пробелов подряд и всё, горе

хм, почему это горе?=)

...

Рейтинг:

0 / 0

10.05.2011, 19:04

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

массив символов

#37253544

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27, конечное задание и решение выложите, видно будет

...

Рейтинг:

0 / 0

10.05.2011, 19:08

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

массив символов

#37253550

julia27

Гость

хм, какое конечное задание?

...

Рейтинг:

0 / 0

10.05.2011, 19:12

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

массив символов

#37253552

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27, сообщения в 18:12 и в 18:53 отличаются
какое вернейшее??

...

Рейтинг:

0 / 0

10.05.2011, 19:14

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

массив символов

#37253562

julia27

Гость

Упс....ну верное то, которое первое, так задание звучало...
а в 18.53 - это не задание, это я решила таким способом сделать, чтобы получилось то, что требовалось в задании, т.е. в сообщении в 18.12=)

...

Рейтинг:

0 / 0

10.05.2011, 19:20

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

массив символов

#37253568

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27, про 18.12 понял, где решение?? с тегами, ОК??

...

Рейтинг:

0 / 0

10.05.2011, 19:24

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

массив символов

#37253575

julia27

Гость

Вот мое решение:

Private Sub Command1_Click()
Dim a(4)
a(1) = Val(Text1)
a(2) = Val(Text1)
a(3) = Val(Text1)
a(4) = Val(Text1)
Text2.Text = Replace(Text1.Text, " ", "")
End Sub

...

Рейтинг:

0 / 0

10.05.2011, 19:27

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

массив символов

#37253580

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27,
1
где теги обрамляющие код для читаемости

Код: plaintext

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

Private Sub Command1_Click()
Dim a( 4 )
a( 1 ) = Val(Text1)
a( 2 ) = Val(Text1)
a( 3 ) = Val(Text1)
a( 4 ) = Val(Text1)
Text2.Text = Replace(Text1.Text, " ", "")
End Sub

разницу видите?
зачем нужем массив где все одинаковые данные

...

Рейтинг:

0 / 0

10.05.2011, 19:31

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

массив символов

#37253585

julia27

Гость

я не знаю что такое "теги обрамляющие код для читаемости", поэтому и не написала=)
да, разницу вижу, у вас выделено цветом=)
почему это данные одинаковые?? они разные...что хочу - то и вписываю=)

...

Рейтинг:

0 / 0

10.05.2011, 19:37

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

массив символов

#37253590

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27 сегодня, 18:53какой-то бред написала...
лучше не стало (а что собственно изменилось )

...

Рейтинг:

0 / 0

10.05.2011, 19:41

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

массив символов

#37253591

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27,
когда отвечаете, есть кнопка ЭСЭРСЕ, она раскрывется, выделяете помещённый код и в этой кнопки ищете вверху ВБА, ОК??
У Вас a(1) = a(2) = a(3) = a(4) так?? или нет??

...

Рейтинг:

0 / 0

10.05.2011, 19:41

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

массив символов

#37253594

julia27

Гость

Ой, вы меня наверное убьете, но оказывается, что я хотела сделать не совсем то, что было необходимо по заданию...=)

В общем, мне нужно удалить не ВСЕ пробелы, а только лишние=)
То есть, например, из массива

"У МЕНЯ ПЛОХИ ДЕЛА С ВИЗУАЛ БЭЙСИК"

получить

"У МЕНЯ ПЛОХИ ДЕЛА С ВИЗУАЛ БЭЙСИК"

...

Рейтинг:

0 / 0

10.05.2011, 19:44

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

массив символов

#37253597

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27То есть, например, из массива

Код: plaintext

"У МЕНЯ     ПЛОХИ    ДЕЛА     С     ВИЗУАЛ        БЭЙСИК"

получить

Код: plaintext

"У МЕНЯ ПЛОХИ ДЕЛА С ВИЗУАЛ БЭЙСИК"

Это не массив, это строка.
Начни с того, чтобы сделать из этого массив.

...

Рейтинг:

0 / 0

10.05.2011, 19:46

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

массив символов

#37253598

julia27

Гость

У Вас a(1) = a(2) = a(3) = a(4) так?? или нет??
Нет, они не равны=)

Код: plaintext

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

 Private Sub Command1_Click()
Dim a( 4 )
a( 1 ) = Val(Text1)
a( 2 ) = Val(Text1)
a( 3 ) = Val(Text1)
a( 4 ) = Val(Text1)
Text2.Text = Replace(Text1.Text, " ", "")
End Sub

Так?=)

...

Рейтинг:

0 / 0

10.05.2011, 19:46

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

массив символов

#37253600

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27Так?=)

я спросилShocker.Pro a(1) = Val(Text1)
вы хотя бы что-то понимаете из того, что здесь написано?вы ответили
julia27какой-то бред написала...
так вот тот самый бред продолжает быть написан, вы ж его не убрали

...

Рейтинг:

0 / 0

10.05.2011, 19:47

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

массив символов

#37253601

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27,

это
"У МЕНЯ ПЛОХИ ДЕЛА С ВИЗУАЛ БЭЙСИК"

получить

"У МЕНЯ ПЛОХИ ДЕЛА С ВИЗУАЛ БЭЙСИК"
под лупой рассматривать, вроде одинаковы, нельзя примеры получше

...

Рейтинг:

0 / 0

10.05.2011, 19:47

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

массив символов

#37253604

julia27

Гость

Ой, там в первой фразе о моих познаниях в визуал бэйсик должны были быть лишние пробелы ^_^

...

Рейтинг:

0 / 0

10.05.2011, 19:47

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

массив символов

#37253607

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27Так?=)
а если написать так (что примерно эквивалентно):

Код: plaintext

1.
2.
3.

a( 1 ) =  5 
a( 2 ) =  5 
a( 3 ) =  5 
a( 4 ) =  5

julia27Нет, они не равны=)
вы все еще в этом уверены?

...

Рейтинг:

0 / 0

10.05.2011, 19:48

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

массив символов

#37253608

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Ципихович Эндрюjulia27,

это

Код: plaintext

"У    МЕНЯ   ПЛОХИ   ДЕЛА   С   ВИЗУАЛ    БЭЙСИК"

получить

Код: plaintext

"У МЕНЯ ПЛОХИ ДЕЛА С ВИЗУАЛ БЭЙСИК"

под лупой рассматривать, вроде одинаковы, нельзя примеры получше
надо использовать тэг FIX

...

Рейтинг:

0 / 0

10.05.2011, 19:49

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

массив символов

#37253610

julia27

Гость

Нет, теперь я вообще ни в чем не уверена....

...

Рейтинг:

0 / 0

10.05.2011, 19:50

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

массив символов

#37253627

julia27

Гость

Код: plaintext

1.
2.
3.
4.

Private Sub Command1_Click()
Dim a( 1 )
a( 1 ) = Val(Text1)
Text2.Text = Replace(Text1.Text, " ", "")
End Sub

Вот так тоже работает. Может так?

Но я уже поняла, что мне другое нужно
Так удаляются ВСЕ пробелы, а мне нужно удалить лишние. Если подряд, например, два пробела или десять, чтобы везде осталось только по одному пробелу

...

Рейтинг:

0 / 0

10.05.2011, 20:01

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

массив символов

#37253629

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27

Код: plaintext

1.
2.
3.
4.

Private Sub Command1_Click()
Dim a( 1 )
a( 1 ) = Val(Text1)
Text2.Text = Replace(Text1.Text, " ", "")
End Sub

Вот так тоже работает. Может так?
бред продолжает быть написан (см. выше)
я думаю, надо попытаться ПОНИМАТЬ, а не заниматься копипастом и спрашивать так или не так. Я ведь могу посоветовать и в окно прыгнуть...

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

Код: plaintext

Text2.Text = Replace(Text1.Text, "  ", " ")

несколько раз, пока замены не перестанут срабатывать.
НО
это не будет иметь отношения к массивам.

...

Рейтинг:

0 / 0

10.05.2011, 20:05

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

массив символов

#37253641

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

примитив массива

Код: plaintext

1.
2.
3.
4.
5.

Private Sub Command1_Click()
Dim a( 3 )
a( 1 ) = "    Val(Text1)  Э"
a( 2 ) = "   вчпимва Val(Text1)  Э"
a( 3 ) = "   ваымивыаипвыаиавыиыави Val(Text1)  Э"
End Sub

удаляйте на здоровье

...

Рейтинг:

0 / 0

10.05.2011, 20:11

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

массив символов

#37253651

julia27

Гость

этого можно добиться, прогнав код
Text2.Text = Replace(Text1.Text, " ", " ")
несколько раз, пока замены не перестанут срабатывать.
НО
это не будет иметь отношения к массивам.

Как я понимаю, команда Replace(Text1.Text, " ", " ") будет заменять два пробела одним, правильно? А если у меня десять пробелов будет, то они поменяются на пять. А мне надо с десяти сразу на один. Думаю, что команда Replace не совсем та, что мне нужна=)

Короче, вот текст моего задания:

Текст в виде массива символов. Убрать лишние пробелы, т.е. построить такой же массив, но без пробелов, идущих подряд.

...

Рейтинг:

0 / 0

10.05.2011, 20:16

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

массив символов

#37253662

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27,

на этой части

Код: plaintext

Текст в виде массива символов.

пока освойтесь

...

Рейтинг:

0 / 0

10.05.2011, 20:19

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

массив символов

#37253663

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27Как я понимаю, команда Replace(Text1.Text, " ", " ") будет заменять два пробела одним, правильно? А если у меня десять пробелов будет, то они поменяются на пять.
А мы меня через слово будем читать? Я же сказал - прогнать несколько раз.

julia27Короче, вот текст моего задания:
Текст в виде массива символов. Убрать лишние пробелы, т.е. построить такой же массив, но без пробелов, идущих подряд.
Я уже несколько раз сказал - начните с массива символов. То есть пока вообще нет массива и неясно, откуда он берется. Когда массив будет, тогда несложно пробежаться по нему и убрать лишние пробелы.

То, что написал ЦЭ, я бы назвал массивом строк, а не массивом символов.

...

Рейтинг:

0 / 0

10.05.2011, 20:19

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

массив символов

#37253668

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, а в массив символов попадут ли они туда с пробелами, ВБА его знает, помоему нет, проверить немогу

...

Рейтинг:

0 / 0

10.05.2011, 20:22

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

массив символов

#37253670

julia27

Гость

на этой части
Текст в виде массива символов.
пока освойтесь

Мне никакой массив не дан

Нужно сделать так, чтобы можно было ввести ЛЮБОЙ массив с кучей пробелов, а программа делала из сотни (например) пробелов один.

...

Рейтинг:

0 / 0

10.05.2011, 20:22

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

массив символов

#37253679

julia27

Гость

А мы меня через слово будем читать? Я же сказал - прогнать несколько раз.

А вы меня тоже через слово читаете?=)
А если у меня в каком-нибудь массиве будет миллион пробелов, сколько раз это прогнать?=) Пятьсот тысяч раз, вроде бы=)

...

Рейтинг:

0 / 0

10.05.2011, 20:26

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

массив символов

#37253686

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

10.05.2011, 20:30

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

массив символов

#37253691

скукотища

Гость

2 All:
давйте сначала придумаем, как программа будет получать этот самый "массив символов"

...

Рейтинг:

0 / 0

10.05.2011, 20:32

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

массив символов

#37253699

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

ulia27
ну что из моего массива строк - создать массив символов

...

Рейтинг:

0 / 0

10.05.2011, 20:35

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

массив символов

#37253702

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

скукотища,

а я думал, скукотища придет и сразу сделает по обыкновению готовую программу для нерадивой студентки.

Давай придумаем. О, придумал. Давай он будет искать первый попавшийся документ на диске С: и брать из него пятую строку.

...

Рейтинг:

0 / 0

10.05.2011, 20:36

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

массив символов

#37253703

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

скукотища2 All:
давйте сначала придумаем, как программа будет получать этот самый "массив символов"
какой то текст разобъёт и загонит, ОК??

...

Рейтинг:

0 / 0

10.05.2011, 20:36

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

массив символов

#37253708

julia27

Гость

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

Пресловутый массив нужно писать уже при запуске программы. Например, в Text1 вписываю, в Text2 получаю результат. Потом могу другой массив вписать и опять получить результат...и так сколько угодно=)

...

Рейтинг:

0 / 0

10.05.2011, 20:38

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

массив символов

#37253714

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro О, придумал. Давай он будет искать первый попавшийся документ на диске С: и брать из него пятую строку.
И вперемешку добавлять символы Ц и Э, ОК!!!
Скрытая реклама

...

Рейтинг:

0 / 0

10.05.2011, 20:41

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

массив символов

#37253716

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27Пресловутый массив нужно писать уже при запуске программы. Например, в Text1 вписываю, в Text2 получаю результат. Потом могу другой массив вписать и опять получить результат...и так сколько угодно=)
Пытаюсь перевести на русский.

Пользователь пишет фразу в Text1, потом наживает кнопку - в этот момент из строки в Text1 в памяти создается массив символов, из которого снова собирается строка символов, но уже без лишних пробелов и кладется в Text2. Так?

...

Рейтинг:

0 / 0

10.05.2011, 20:43

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

массив символов

#37253717

julia27

Гость

=((

...

Рейтинг:

0 / 0

10.05.2011, 20:43

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

массив символов

#37253720

julia27

Гость

Пользователь пишет фразу в Text1, потом наживает кнопку - в этот момент из строки в Text1 в памяти создается массив символов, из которого снова собирается строка символов, но уже без лишних пробелов и кладется в Text2. Так?
Да, именно так=)

...

Рейтинг:

0 / 0

10.05.2011, 20:46

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

массив символов

#37253722

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27,

тогда простая замена пробела, двух и более пробелов подряд на ""

...

Рейтинг:

0 / 0

10.05.2011, 20:49

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

массив символов

#37253724

julia27

Гость

тогда простая замена пробела, двух и более пробелов подряд на ""
и как сделать эту простую замену?=)

...

Рейтинг:

0 / 0

10.05.2011, 20:52

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

массив символов

#37253732

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27,
/topic/847883&pg=2
начинайте читать с сообщения от 7 мая 20:55

...

Рейтинг:

0 / 0

10.05.2011, 20:58

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

массив символов

#37253734

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27и как сделать эту простую замену?=)
Ну вот почему не возникает вопрос "как сделать массив символов"?
сколько раз уже сказал - сначала массив, потом его обработка.

А задачу можно решить и без массива миллионом разных способов, но ведь надо именно с массивом?

...

Рейтинг:

0 / 0

10.05.2011, 21:00

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

массив символов

#37253742

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, 2 раз пишу
а в массив символов попадут ли они туда с пробелами, ВБА его знает, помоему нет, проверить немогу

...

Рейтинг:

0 / 0

10.05.2011, 21:02

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

массив символов

#37253747

скукотища

Гость

julia27Пользователь пишет фразу в Text1, потом наживает кнопку - в этот момент из строки в Text1 в памяти создается массив символов, из которого снова собирается строка символов, но уже без лишних пробелов и кладется в Text2. Так?
Да, именно так=)А здесь воду обратно на лутц перегоняют(с)
Из строки - в массив - потом обратно в строку...
УЖАСТЬ.
Я бы ещё понял, если бы в массиве проще было бы обрабатывать. А так - ниц панов нэ розумем.

...

Рейтинг:

0 / 0

10.05.2011, 21:06

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

массив символов

#37253750

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

скукотищаА здесь воду обратно на лутц перегоняют(с)
Из строки - в массив - потом обратно в строку...
УЖАСТЬ.
Я бы ещё понял, если бы в массиве проще было бы обрабатывать. А так - ниц панов нэ розумем.
Наоборот - из лутца воду делают.

это ж студенты "мне не надо, чтоб быстрее, мне надо, чтобы ты за....ся". (с)
Оно и правильно, не регекспы же им проходить.
Только вот автор что-то еще ни одной собственной строчки так и не родила

...

Рейтинг:

0 / 0

10.05.2011, 21:09

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

массив символов

#37253751

julia27

Гость

Ну вот почему не возникает вопрос "как сделать массив символов"?
сколько раз уже сказал - сначала массив, потом его обработка.

Ладно, давайте так...пусть у нас будет массив чисел, а не символов...

1 3 5 6 - это массив чисел? Если да, то вот именно его и буду использовать. Но зачем он нам сейчас??? Этого я никак понять не могу...сначала нужно программу написать...

...

Рейтинг:

0 / 0

10.05.2011, 21:10

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

массив символов

#37253753

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia271 3 5 6 - это массив чисел? это пока не массив чисел, это набор чисел :))
julia27Если да, то вот именно его и буду использовать. Но зачем он нам сейчас??? вот именно, зачем? задавали-то совсем другое
julia27Этого я никак понять не могу...сначала нужно программу написать...в этом главная ошибка. Сначала надо написать (или хотя бы представить себе) алгоритм, а потом уже программу.

Ах да, учебник же еще надо почитать....

...

Рейтинг:

0 / 0

10.05.2011, 21:13

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

массив символов

#37253757

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

julia27, да где они там появятся, приклеются, ветром надует???

...

Рейтинг:

0 / 0

10.05.2011, 21:14

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

массив символов

#37253759

julia27

Гость

Ну я не понимаю как это все сделать=( Если бы я разбиралась в этом, я бы не зашла на этот сайт и не попросила у вас помощи...

...

Рейтинг:

0 / 0

10.05.2011, 21:16

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

массив символов

#37253760

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, мне надо, чтобы ты за....ся". (с)
чего грубим?? Что вместо пробелов??
Может так:
мне надо, чтобы ты воз....ся". (с)
????

...

Рейтинг:

0 / 0

10.05.2011, 21:16

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

массив символов

#37253765

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

julia27и не попросила у вас помощи...
просьба о помощи, как я понимаю, заключается в "ребята, а сделайте-ка все за меня"?

...

Рейтинг:

0 / 0

10.05.2011, 21:18

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

массив символов

#37253773

julia27

Гость

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

...

Рейтинг:

0 / 0

10.05.2011, 21:23

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

массив символов

#37253778

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Код: plaintext

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

Private Sub Command1_Click()
q = Len(Text1.Text)
Dim a(q)
For w =  1  To q
a(w) = Mid(Text1.Text,  1 )
Next
End Sub

проверяйте будут пробелы??

...

Рейтинг:

0 / 0

10.05.2011, 21:25

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

массив символов

#37253781

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Ципихович Эндрюпроверяйте будут пробелы??
будут, куда ж они денутся.
Ты б прежде чем других учить, сам бы выучился.
a(1)=a(2)=a(3)....=Text1.Text

...

Рейтинг:

0 / 0

10.05.2011, 21:27

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

массив символов

#37253785

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, точно здесь
a(w) = Mid(Text1.Text, w) если не ошибаюсь Ворда нет, посимвольно надо
Ладно я спать

...

Рейтинг:

0 / 0

10.05.2011, 21:30

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

массив символов

#37253789

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Да, господа,..
Я, конечно, не извращенец , но формулу для VBA придумал:

Код: plaintext

TEXT1 = Trim(Replace(Join(Split(Join(Split(Replace(Replace(TEXT1, Space( 1 ), Chr( 1 )), String( 2 , Chr( 1 )), Chr( 2 )), Chr( 1 ))), Chr( 2 ))), Space( 2 ), Space( 1 )))

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

...

Рейтинг:

0 / 0

10.05.2011, 21:31

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

массив символов

#37253792

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Заодно напомню, что если работа выполняется в Excel, то достаточно:

Код: plaintext

TEXT1 = Application.WorksheetFunction.Trim(TEXT1)

...

Рейтинг:

0 / 0

10.05.2011, 21:33

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

массив символов

#37253795

julia27

Гость

Ципихович Эндрю

Код: plaintext

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

Private Sub Command1_Click()
q = Len(Text1.Text)
Dim a(q)
For w =  1  To q
a(w) = Mid(Text1.Text,  1 )
Next
End Sub

проверяйте будут пробелы??

Проверила...она не работает...

...

Рейтинг:

0 / 0

10.05.2011, 21:34

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

массив символов

#37253798

julia27

Гость

TEXT1 = Trim(Replace(Join(Split(Join(Split(Replace(Replace(TEXT1, Space(1), Chr(1)), String(2, Chr(1)), Chr(2)), Chr(1))), Chr(2))), Space(2), Space(1)))
Ого формула....

...

Рейтинг:

0 / 0

10.05.2011, 21:36

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

массив символов

#37253800

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

julia27,

посмотри повыше мои сообщения...

...

Рейтинг:

0 / 0

10.05.2011, 21:37

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

массив символов

#37253802

julia27

Гость

AndreTM,
щас попробую применить ту огромную формулу=) работа не в Excel выполняется=)

...

Рейтинг:

0 / 0

10.05.2011, 21:39

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

массив символов

#37253803

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Ципихович Эндрюесли не ошибаюсь
ошибаешься

...

Рейтинг:

0 / 0

10.05.2011, 21:39

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

массив символов

#37253824

julia27

Гость

Все короче, не буду делать это задание, надоело, ниче понять не могу. Спасибо=)

...

Рейтинг:

0 / 0

10.05.2011, 21:50

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

массив символов

#37253893

скукотища

Гость

Shocker.ProНаоборот - из лутца воду делают.
...Пардон, - разволновался.
Shocker.Proэто ж студенты "мне не надо, чтоб быстрее, мне надо, чтобы ты за....ся". (с)Это не про ВУЗ, это про армию.

Ладно бы ещё на Паскале или Си. Но на VB! Строку - в массив для обработки. Повторю - ЖУТЬ!

julia27,

Код: 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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.

Sub zai_at_sa()
Dim arr() As String *  1 
Dim i As Integer, ii As Integer, i2 As Integer, iLen As Integer

' "отладочные переменные" - входной и выходной "массивы" символов
Dim Text1$, Text2$

Text1 = "   У МЕНЯ     ПЛОХИ    ДЕЛА     С     ВИЗУАЛ        БЭЙСИК   "
' Text1 = "   "

iLen = Len(Text1) ' длина набора символов
ReDim arr( 1  To iLen) ' задание размера "рабочэго" массива

' заполнение массива символами
For i =  1  To iLen: arr(i) = Mid(Text1, i): Next i

' собсно "обработка"
For i =  1  To iLen
If arr(i) = " " Then
    If i =  1  Then i =  0 
    ii = i +  1 
    
    If ii <= iLen Then
    Do While arr(ii) = " "
        ii = ii +  1 : If ii > iLen Then Exit Do
    Loop
    End If
    
    If ii > iLen Then
        If i =  0  Then i =  2 
        ReDim Preserve arr( 1  To i -  1 ): Exit For
    Else
        i = i +  1 : i2 = ii
        If i <> i2 Then
        Do While i <= ii And i2 <= iLen
            If arr(i2) <> " " Then
                arr(i) = arr(i2): arr(i2) = " "
                i = i +  1 : i2 = i2 +  1 
            Else: Exit Do
            End If
        Loop
        End If
        
        If i2 > iLen Then
            ReDim Preserve arr( 1  To i -  1 ): Exit For
        Else: i = i -  1 
        End If
    End If
End If
Next i

' "лутц обратно на воду"
iLen = UBound(arr): Text2 = ""
For i =  1  To iLen: Text2 = Text2 & arr(i): Next i

' провэрка (for debug only)
Debug.Print "былло ~" + Text1 + "~"
Debug.Print "стало ~" + Text2 + "~"

End Sub

...

Рейтинг:

0 / 0

10.05.2011, 22:51

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

массив символов

#37255718

julia27

Гость

Спасибо вам огромное!!!!

...

Рейтинг:

0 / 0

11.05.2011, 18:06

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

массив символов

#37256829

MAYAKOV_SV

Участник

Сообщения: 1 909

Рейтинг: 0 / 0

скукотищаНо на VB! Строку - в массив для обработки. Повторю - ЖУТЬ!

Вот без массива:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Public Sub sub1()
 Text1 = "   У МЕНЯ     ПЛОХИ    ДЕЛА     С     ВИЗУАЛ        БЭЙСИК   "
 Text2 = ""
 j =  0 
 s = Trim(Text1)
 For i =  1  To Len(s)
  c = Mid(s, i,  1 )
  If c = " " Then
   j = j +  1 
   Else
   If j >  0  Then
    Text2 = Text2 + " "
    j =  0 
   End If
   Text2 = Text2 + c
  End If
 Next i
 Debug.Print "былло ~" + Text1 + "~"
 Debug.Print "стало ~" + Text2 + "~"
End Sub

...

Рейтинг:

0 / 0

12.05.2011, 13:08

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

массив символов

#37258114

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Нет, что значит "без массива"? Неявно подразумевается, что строка - массив символов.
С другой стороны, если кому-то непонятен пример совместного использования split-join, то можно так:

Код: plaintext

1.
2.
3.
4.
5.

t = "      I have    problems    with    strings   in   VBA"
a = Split(t)
t = IIf(Len(a( 0 )) >  0 , a( 0 ), "")
For i =  1  To UBound(a)
    If Len(a(i)) >  0  Then t = t & " " & a(i)
Next

...

Рейтинг:

0 / 0

12.05.2011, 23:39

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

массив символов

#37260148

julia27

Гость

"У МЕНЯ ПЛОХИ ДЕЛА С ВИЗУАЛ БЭЙСИК" - вот эта строка просто вообще ни причем=))это показывалось для примера, что должно происходить с пробелами=))при запуске программы нужно вводить символы...и потом при нажатии кнопки между этими символами должо остаться по одному пробелу=)

...

Рейтинг:

0 / 0

13.05.2011, 21:07

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

массив символов

#37260188

скукотища

Гость

julia27,
пример оказался заразительным

...

Рейтинг:

0 / 0

13.05.2011, 21:33

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

массив символов

#37260209

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

скукотищаjulia27,
пример оказался заразительным
скорее все-таки наоборот - автор заразил пример

...

Рейтинг:

0 / 0

13.05.2011, 21:53

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

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

все

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

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

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

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

start [/forum/topic.php?all=1&fid=60&tid=2158722]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	179ms
get topic data:	12ms
get forum data:	3ms
get page messages:	133ms
get tp. blocked users:	2ms
others:	354ms

total:	713ms