Заменить в тексте "А" на "Б" и наоборот - VB
Формулировка задачи:
Первому решившему - зачет.
Есть очень длинный текст, который может содержать абсолютно любые символы. Программисту требуется заменить букву А на Б, а Б на А. Использовать можно текстовый редактор, в котором есть функция "найти и заменить". Например, при замене А на АБ последовательность АББАБ превращается в АБББАББ.
Решить задачу минимальным количеством замен. Принимаю 4 замены и меньше.
Решение задачи: «Заменить в тексте "А" на "Б" и наоборот»
textual
Листинг программы
Private Sub Command1_Click() Dim Asci As Byte Dim nAsc As Byte i# = 1 MyFile = FreeFile Open ("C:\mytxt.txt") For Binary As #MyFile Do Until EOF(MyFile) Get #MyFile, i#, Asci If Chr(Asci) = "A" Then ' если это A nAsc = Asc("B") ' то будет B Put #MyFile, i#, nAsc End If If Chr(Asci) = "B" Then ' если это A nAsc = Asc("A") ' то будет B Put #MyFile, i#, nAsc End If i# = i# + 1 Loop Close #MyFile MsgBox "Готово" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д