Переопределение данных в переменной

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте, есть код

Visual Basic
1
2
3
4
5
6
7
8
9
10
Строка_таблицы_Word = "Мамин -Сибиряк Иван Петрович"
 
MsgBox1 = UBound(Split(Строка_таблицы_Word))
 
If UBound(Split(Строка_таблицы_Word)) <> 2 Then
                            MsgBox2 = Split(Строка_таблицы_Word)(0)
                            MsgBox3 = Split(Строка_таблицы_Word)(1)
                            MsgBox4 = Split(Строка_таблицы_Word)(2)
                            MsgBox5 = Split(Строка_таблицы_Word)(3)
End If

Иду пошагово, узнал чему равно MsgBox2 - "Мамин"
потом узнаю чему равно MsgBox3 - "-Сибиряк", то вто же время MsgBox2 тоже стало "-Сибиряк"
Почему???

SoftIce · 28.10.2011, 18:51

Сообщение от Ципихович Эндрю

Строка_таблицы_Word

Ципихович, ты уже потерялся в темах. ты и в делфи и в шарпе и в С++ и в лазаре.
А этот твой вопрос явно должен быть в VBA.

@Ципихович Эндрю · 28.10.2011, 19:06 **[ТС]**

Перебор

Сообщение от SoftIce.net

в делфи и в шарпе и в С++

я не был, один раз Памырыч создал тему в шарпе, удивлён что тут создают темы без меня, а этот вопрос для ВБ(А)
между ними разницы не вижу

SoftIce · 28.10.2011, 19:16

Сообщение от Ципихович Эндрю

ВБ(А)
между ними разницы не вижу

Ну это-то в VBA. Блин, пошёл флуд.

@Ципихович Эндрю · 28.10.2011, 19:29 **[ТС]**

ВБ, ВБА
Скажите, Вы код опробовали, у Вас тоже самое происходит??

SoftIce · 28.10.2011, 19:38

Ципихович Эндрю , Андрей, извини, если что не так. Я просто удивляюсь твоей работоспособности и твоими широкими познаниями в любой области.

Добавлено через 5 минут
Если тема создана в вб это одно а если в вба - совсем другое. Приходится переключатся туда - сюда.
Напиши include в начале кода, и я буду тупить маленько.

@Ципихович Эндрю · 28.10.2011, 19:45 **[ТС]**

инклуде из оперы С++

SoftIce · 28.10.2011, 20:12

Сообщение от Ципихович Эндрю

инклуде

Так я и говорю - один ЯП -одна отдельная тема. Прости, Памирыч.
Ципихович, сейчас твой код попробую.

Добавлено через 7 минут
Бл_ , облом, ноут купил неделю назад , а офис не поставил пока. Их есть у меня.

Добавлено через 5 минут

Сообщение от Ципихович Эндрю

Иду пошагово, узнал чему равно MsgBox2 - "Мамин"
потом узнаю чему равно MsgBox3 - "-Сибиряк", то вто же время MsgBox2 тоже стало "-Сибиряк"
Почему???

Бокс один , но принимает разные значения , не смотри назад.

@Ципихович Эндрю · 28.10.2011, 20:21 **[ТС]**

это не бокс, это переменные, чего это не смотреть назад??

@Апострофф · 28.10.2011, 20:39

Загрузил, прошел - никаких сюрпризов!
Всё так, как должно быть.

Вопрос лишь -
If UBound(Split(Строка_таблицы_Word)) <> 2 Then - это здесь зачем? Оно не значит, что кроме двух там есть ещё что нибудь...
If UBound(Split(Строка_таблицы_Word)) = 3 Then - м.б. так надо?

@Ципихович Эндрю · 28.10.2011, 21:00 **[ТС]**

спасибо всем, мииииииииистика какая-то
сейчас глянул всё ОК
но перед тем как спросить раз пять глянул
правда я пользуюсь только после того как строку прошёл к ней (к присоенной перемиенной)подвожу курсор и смотрю на подсветку

@Апострофф · 28.10.2011, 21:33

Ципихович Эндрю, ещё один вопрос

Split у тебя никак не ассоциируется с забиванием гвоздей микроскопом?
Ты эту ФУНКЦИЮ использовал 6 раз в примере, где её следовало (имхо) применить единожды?

@Ципихович Эндрю · 28.10.2011, 21:41 **[ТС]**

в смысле так

Visual Basic
1
arr = Split(Строка_таблицы_Word)

а потом

Visual Basic
1
MsgBox2 = arr(0)

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

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	28.10.2011, 19:29 [ТС]
	ВБ, ВБА Скажите, Вы код опробовали, у Вас тоже самое происходит?? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.10.2011, 19:38
	Ципихович Эндрю , Андрей, извини, если что не так. Я просто удивляюсь твоей работоспособности и твоими широкими познаниями в любой области. Добавлено через 5 минут Если тема создана в вб это одно а если в вба - совсем другое. Приходится переключатся туда - сюда. Напиши include в начале кода, и я буду тупить маленько. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	28.10.2011, 19:45 [ТС]
	инклуде из оперы С++ 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	28.10.2011, 20:21 [ТС]
	это не бокс, это переменные, чего это не смотреть назад?? 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,905
	28.10.2011, 20:39
	Загрузил, прошел - никаких сюрпризов! Всё так, как должно быть. Вопрос лишь - If UBound(Split(Строка_таблицы_Word)) <> 2 Then - это здесь зачем? Оно не значит, что кроме двух там есть ещё что нибудь... If UBound(Split(Строка_таблицы_Word)) = 3 Then - м.б. так надо? Миниатюры 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	28.10.2011, 21:00 [ТС]
	спасибо всем, мииииииииистика какая-то сейчас глянул всё ОК но перед тем как спросить раз пять глянул правда я пользуюсь только после того как строку прошёл к ней (к присоенной перемиенной)подвожу курсор и смотрю на подсветку 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,905
	28.10.2011, 21:33
	Ципихович Эндрю, ещё один вопрос Split у тебя никак не ассоциируется с забиванием гвоздей микроскопом? Ты эту ФУНКЦИЮ использовал 6 раз в примере, где её следовало (имхо) применить единожды? 0