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

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

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

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

SoftIce · 27.03.2015, 21:02

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

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

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

SoftIce · 27.03.2015, 21:08

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

Visual Basic

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

Private Sub Command1_Click()
  With CreateObject("scripting.filesystemobject")
    .createtextfile("text2.txt").write Replace(.opentextfile("text1.txt").readall, vbCrLf, ";" & vbCrLf)
  End With
End Sub

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

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

SoftIce 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

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

SoftIce 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

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

SoftIce 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

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

Опции темы

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

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

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

Решение