0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 57
1

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

27.03.2015, 20:57. Показов 976. Ответов 15
Метки нет (Все метки)

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

Дана строка символов. В строке заменить все символы «_» на символы «=»; удалить все символы «+»; записать полученный строку в обратном порядке.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2015, 20:57
Ответы с готовыми решениями:

Программка
Тут в общем сорян за такую тему, нужна помощь (если не сложно), написать приложение небольшое: ...

простенькая программка
Помогите пожалуйста!!! написать программу маленькую: Даны две положительные длины(стороны) двух...

Циклическая программка
подскажите как будет выглядеть код....пожалуйста)

Небольшая и полезная (надеюсь) программка...
Лежит здесь: http://formtoini.narod.ru//Downloads/SubEnumerator.zip Смысл в следующем: почти в...

15
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 21:02 2
Так программка-то простая?
0
0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 57
27.03.2015, 21:07  [ТС] 3
Для тех кто разбирается в ВБ думаю да)
0
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 21:08 4
Лучший ответ Сообщение было отмечено Парабеллум как решение

Решение

Ну тогда держи
Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
    Dim s As String
    s = "В строке заменить все символы «_» на символы «=»; удалить все символы «+»"
    MsgBox StrReverse(Replace(Replace(s, "_", "="), "+", ""))
End Sub
Миниатюры
Простая программка  
0
0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 57
27.03.2015, 21:16  [ТС] 5
Спасибо большое!

Добавлено через 4 минуты
Правда почему то при запуске ругается на 3ю строчку
0
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 21:20 6
Я скрин зачем прикрепил? Чтобы не было подобных вопросов.
У меня все работает, значит Вы что-то делаете не так

Добавлено через 1 минуту
Цитата Сообщение от Парабеллум Посмотреть сообщение
на 3ю строчку
Да, кстати, на какую строку ругается? На эту?

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

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


А что ругается? Какая ошибка,?
0
0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 57
27.03.2015, 21:28  [ТС] 7
Да я вижу что у вас работает,

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

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

Добавлено через 5 минут
Причина была в кавычках, убрал кавычки все заработало
0
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 21:29 8
Ну я не знаю. Проверил в Net - тоже работает.
Миниатюры
Простая программка  
0
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 21:29 9
Цитата Сообщение от Парабеллум Посмотреть сообщение
убрал кавычки все заработало
Какие кавычки убрал? Откуда они взялись?
0
0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 57
27.03.2015, 21:30  [ТС] 10
s = "В строке заменить все символы _ на символы =; удалить все символы +"

вот так сделал и все получилось
0
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 21:33 11
Понятно.
Теперь ложка дёгтя: не каждый преподаватель примет такой код.
Некоторые запрещают использовать функции типа StrReverse и Replace
0
0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 57
27.03.2015, 21:34  [ТС] 12
Эту функцию можно использовать, о ней рассказывается перед заданием
0
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 21:36 13
Цитата Сообщение от Парабеллум Посмотреть сообщение
Эту функцию можно использовать
Ну и ладненько
0
0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 57
27.03.2015, 21:43  [ТС] 14
текстовый файл 1. Создать текстовый файл 2, в который переписать текст из файла 1 добавляя в конец каждой строки символ «;».

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

Если не сложно помогите еще с этими программками, тут вообще ничего не понятно, нашел на форуме подобную тему попробовал код который там был ничего не вышло(
0
es geht mir gut
11264 / 4746 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
27.03.2015, 22:03 15
Парабеллум, один вопрос - одна тема.
0
15134 / 6408 / 1730
Регистрация: 24.09.2011
Сообщений: 9,999
27.03.2015, 22:14 16
Парабеллум, файл 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
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2015, 22:14
Помогаю со студенческими работами здесь

Легкая программка(просто описать)
Помогите Плиз! Опишите подробно ,что делает каждая строчка программы: Private Sub...

Программка для подключения сетевого диска
Можно ли написать программку для подключения сетевого диска? Есть NetWare'ий сервер (Server1,...

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

Блондинке нужно сделать задание, есть программка, необходимо внести изменения)
Есть програмка (в окне бегают разные шарики и квадратики, при столкновении одинаковых исчезают)...


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

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru