Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 4.74/47: Рейтинг темы: голосов - 47, средняя оценка - 4.74
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337

Пояснить результат работы функции Mid

01.09.2011, 21:59. Показов 9666. Ответов 32
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
похоже заработался
Visual Basic
1
2

Строка_таблицы_Word = "9090690978, 84565665465, 8548375535"
  Mid$(Строка_таблицы_Word, 13, 1) = ""
должно же быть на выходе
Строка_таблицы_Word = "9090690978, 4565665465, 8548375535"
То есть тринадцатый знак долой, увы не происходит желаемого, почему???
Спасибо
0
Лучшие ответы (1)
Сообщение: #1964805
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 01.09.2011, 21:59
Ответы с готовыми решениями:

Неправильный результат работы функции Round
Здравстыуйте. Почему-то функция VBA Round(prm, 2) где prm, 10.505, 10.525, 10.545, 10.565, 10.585 возвращает соответственно ...

Функции Left, Right, Mid выдают ошибку
Всем привет. Подскажите пожалуйста. Я пишу макросы в Excel-е, так вот функция Left у меня работает а при использовании функций Right и...

VBA не понимает свои же функции: ROUND, LEFT, MID
На одних компах всё работает нормально, а на других компилятор ругается на такие функции, как ROUND, LEFT, MID. Может кто знает, где это...

32
2309 / 1541 / 115
Регистрация: 13.06.2009
Сообщений: 5,575
06.09.2011, 11:33
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
То есть тринадцатый знак долой, увы не происходит желаемого, почему???
так запрограммировано, что нельзя с помощью Mid удалять текст.
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
06.09.2011, 18:42  [ТС]
а я его не удаляю, а заменяю
ОК, скажите Ваше понятие оператора Мид
0
2309 / 1541 / 115
Регистрация: 13.06.2009
Сообщений: 5,575
06.09.2011, 18:50
Ципихович Эндрю,
создание новой строки, но нельзя изменить количество знаков в строке.
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
06.09.2011, 18:52  [ТС]
ну и как создать новую с
"9090690978, 84565665465, 8548375535"
Но чтобы без подчёркнутой 8 ки, и по какому это правилу, я про то чтобы оно(правило) работало
0
2309 / 1541 / 115
Регистрация: 13.06.2009
Сообщений: 5,575
06.09.2011, 18:56
Ципихович Эндрю,
в самом документе надо делать, т.к. форматирование не сохраняется в переменных.
0
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,087
06.09.2011, 18:56
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
ну и как создать новую с
"9090690978, 84565665465, 8548375535"
Но чтобы без подчёркнутой 8 ки, и по какому это правилу, я про то чтобы оно(правило) работало
Visual Basic
1
2

mystr="9090690978, 84565665465, 8548375535"
Mid(mystr,13)=" "
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
06.09.2011, 19:06  [ТС]
Цитата Сообщение от toiai Посмотреть сообщение
Mid(mystr,13)=" "
так чтобы это проверить на других примерах прокоментируйте
то есть в строке mystr 13 знак, что сделать???
0
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,087
06.09.2011, 19:11
В результате вместо "8" вставляется " " и все...

Добавлено через 3 минуты
с указанной позиции заменяется часть строки равной длине строки предложенной.
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
06.09.2011, 19:18  [ТС]
согласен
Visual Basic
1
2

mystr="9090690978, 84565665465, 8548375535"
Mid(mystr,13)=" " 'с указанной позиции заменяется часть строки равной длине строки предложенной
а тут как закоментировать
Visual Basic
1
2

mystr="9090690978, 84565665465, 8548375535"
Mid(mystr,13, 1)=" " '
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
06.09.2011, 19:18
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

у Вас талант раздувать темы
1 заменять и удалять === это разные вещи
2
Цитата Сообщение от gaw Посмотреть сообщение
оператор
Mid(stringvar, start[, length]) = string - заменяет символы в строке stringvar начиная с позиции start символами, содержащимися в строке string


Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
Mid$(Строка_таблицы_Word, 13, 1) = ""
работает в точности с инструкцией === после 13 символа вставляет 1 "" /но длина =0/

3
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
ну и как создать новую с
"9090690978, 84565665465, 8548375535"
Но чтобы без подчёркнутой 8 ки, и по какому это правилу, я про то чтобы оно(правило) работало
а="9090690978, 84565665465, 8548375535"
новая_строка=Mid(a, 1, 13 - 1) + Mid(a, 13 + 1)
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
06.09.2011, 19:24  [ТС]
одним словом я понял, что прежде чем оператором МИД пользоваться надо 7 раз подумать и вспомнить
Цитата Сообщение от gaw Посмотреть сообщение
Visual Basic
1

новая_строка=Mid(a, 1, 13 - 1) + Mid(a, 13 + 1)
0
2309 / 1541 / 115
Регистрация: 13.06.2009
Сообщений: 5,575
06.09.2011, 19:48
Ципихович Эндрю,
в #31 функция Mid (а не оператор).
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
06.09.2011, 19:59  [ТС]
понял, видел
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 06.09.2011, 19:59

Заменить функцию InStrRev функциями Right, Mid или другими функции
Всем привет. Скажите пожалуйста возможно ли в следующим задание заменить функцию "InStrRev" функциями "Right",...

Пояснить результат работы кода
Добрый вечер. кто нибудь может объяснить в чем здесь подвох? http://rextester.com/BKATS43592 #include <stdio.h> ...

Пояснить результат работы цикла
почему один из циклов по i от 1 до 5 (размер массива 10). вот прога: var i,c: integer; a: array of integer; begin cls; for...

Пояснить результат работы кода
Результатом работы этой программы является:а==0.00, b==2.00 Как я понимаю, данный пример на использование глобальных переменных....

почему сегодня mid("01",2,1)>11=False а mid("01",2,1)>day(date())=True? ;-)))
загадка


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
33
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP
and_y87 12.10.2026
10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP
and_y87 12.10.2026
10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .
День 5 из 28: Codex подсказывает следующий запрос
and_y87 12.10.2026
9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru