Простая программка

@Парабеллум · Регистрация: 10.06.2012

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

Здравствуйте, помогите пожалуйста с написанием программки на VB, посмотрел половину форума, что то не получается(

Дана строка символов. В строке заменить все символы «_» на символы «=»; удалить все символы «+»; записать полученный строку в обратном порядке.

SoftIce · 27.03.2015, 21:02

Так программка-то простая?

@Парабеллум · 27.03.2015, 21:07 **[ТС]**

Для тех кто разбирается в ВБ думаю да)

SoftIce · 27.03.2015, 21:08

Ну тогда держи

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
    Dim s As String
    s = "В строке заменить все символы «_» на символы «=»; удалить все символы «+»"
    MsgBox StrReverse(Replace(Replace(s, "_", "="), "+", ""))
End Sub

@Парабеллум · 27.03.2015, 21:16 **[ТС]**

Спасибо большое!

Добавлено через 4 минуты
Правда почему то при запуске ругается на 3ю строчку

SoftIce · 27.03.2015, 21:20

Я скрин зачем прикрепил? Чтобы не было подобных вопросов.
У меня все работает, значит Вы что-то делаете не так

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

Сообщение от Парабеллум

на 3ю строчку

Да, кстати, на какую строку ругается? На эту?

s = "В строке заменить все символы «_» на символы «=»; удалить все символы «+»"

Так здесь и кода-то никакого нет

А что ругается? Какая ошибка,?

@Парабеллум · 27.03.2015, 21:28 **[ТС]**

Да я вижу что у вас работает,

s = "В строке заменить все символы «_» " ругается на символ в скобках

Добавлено через 1 минуту
syntax error

Добавлено через 5 минут
Причина была в кавычках, убрал кавычки все заработало

SoftIce · 27.03.2015, 21:29

Ну я не знаю. Проверил в Net - тоже работает.

SoftIce · 27.03.2015, 21:29

Сообщение от Парабеллум

убрал кавычки все заработало

Какие кавычки убрал? Откуда они взялись?

@Парабеллум · 27.03.2015, 21:30 **[ТС]**

s = "В строке заменить все символы _ на символы =; удалить все символы +"

вот так сделал и все получилось

SoftIce · 27.03.2015, 21:33

Понятно.
Теперь ложка дёгтя: не каждый преподаватель примет такой код.
Некоторые запрещают использовать функции типа StrReverse и Replace

@Парабеллум · 27.03.2015, 21:34 **[ТС]**

Эту функцию можно использовать, о ней рассказывается перед заданием

SoftIce · 27.03.2015, 21:36

Сообщение от Парабеллум

Эту функцию можно использовать

Ну и ладненько

@Парабеллум · 27.03.2015, 21:43 **[ТС]**

текстовый файл 1. Создать текстовый файл 2, в который переписать текст из файла 1 добавляя в конец каждой строки символ «;».

текстовый файл. Первый символ каждой строки записать в другой текстовый файл.

Если не сложно помогите еще с этими программками, тут вообще ничего не понятно, нашел на форуме подобную тему попробовал код который там был ничего не вышло(

SoftIce · 27.03.2015, 22:03

Парабеллум, один вопрос - одна тема.

@Казанский · 27.03.2015, 22:14

Парабеллум, файл text1.txt должен находиться в папке с .exe.

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
  With CreateObject("scripting.filesystemobject")
    .createtextfile("text2.txt").write Replace(.opentextfile("text1.txt").readall, vbCrLf, ";" & vbCrLf)
  End With
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57

	Простая программка 27.03.2015, 20:57. Показов 1143. Ответов 15 Метки нет (Все метки) Здравствуйте, помогите пожалуйста с написанием программки на VB, посмотрел половину форума, что то не получается( Дана строка символов. В строке заменить все символы «_» на символы «=»; удалить все символы «+»; записать полученный строку в обратном порядке. 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.03.2015, 21:02
	Так программка-то простая? 0

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57
	27.03.2015, 21:07 [ТС]
	Для тех кто разбирается в ВБ думаю да) 0

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57
	27.03.2015, 21:16 [ТС]
	Спасибо большое! Добавлено через 4 минуты Правда почему то при запуске ругается на 3ю строчку 0

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57
	27.03.2015, 21:28 [ТС]
	Да я вижу что у вас работает, s = "В строке заменить все символы «_» " ругается на символ в скобках Добавлено через 1 минуту syntax error Добавлено через 5 минут Причина была в кавычках, убрал кавычки все заработало 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.03.2015, 21:29
	Ну я не знаю. Проверил в Net - тоже работает. Миниатюры 0

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57
	27.03.2015, 21:30 [ТС]
	s = "В строке заменить все символы _ на символы =; удалить все символы +" вот так сделал и все получилось 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.03.2015, 21:33
	Понятно. Теперь ложка дёгтя: не каждый преподаватель примет такой код. Некоторые запрещают использовать функции типа StrReverse и Replace 0

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57
	27.03.2015, 21:34 [ТС]
	Эту функцию можно использовать, о ней рассказывается перед заданием 0

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57
	27.03.2015, 21:43 [ТС]
	текстовый файл 1. Создать текстовый файл 2, в который переписать текст из файла 1 добавляя в конец каждой строки символ «;». текстовый файл. Первый символ каждой строки записать в другой текстовый файл. Если не сложно помогите еще с этими программками, тут вообще ничего не понятно, нашел на форуме подобную тему попробовал код который там был ничего не вышло( 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.03.2015, 22:03
	Парабеллум, один вопрос - одна тема. 0

Простая программка

Решение