Исключить из каждой строки текста группы символов, расположенные между скобками {,} - VB
Формулировка задачи:
В файле хранится произвольный текст. Исключить из каждой строки текста группы символов, расположенные между скобками {,}. Сами скобки тоже должны быть исключены. Предполагается, что внутри каждой пары скобок нет других скобок. Результат записать в новый файл.
Решение задачи: «Исключить из каждой строки текста группы символов, расположенные между скобками {,}»
textual
Листинг программы
Dim sOld As String
Private Sub Command1_Click()
Open "c:\111.txt" For Input As #1
Open "c:\222.txt" For Output As #2
While Not EOF(1)
Line Input #1, sOld
While Not InStr(1, sOld, "{") = 0
s1 = InStr(1, sOld, "{")
s2 = InStr(s1, sOld, "}")
sOld = Trim(Mid$(sOld, 1, s1 - 1)) & " " & Trim(Mid$(sOld, s2 + 1, Len(sOld)))
Wend
Print #2, sOld
sOld = ""
Wend
Close #1
Close #2
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д