Заменить в тексте "А" на "Б" и наоборот - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы