Преобразуйте файл таким образом, чтобы каждое предложение было в новой строке - VB
Формулировка задачи:
2. Дан текстовый файл, содержащий не менее 3-х предложений. Преобразуйте его таким образом, чтобы каждое предложение было в новой строке и в конце его вместо «.» стоял «!». Результат преобразования лучше записывать в новый файл.
Решение задачи: «Преобразуйте файл таким образом, чтобы каждое предложение было в новой строке»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim vtxt As String, ptxt As String
- Open "input.txt" For Input As #1
- Open "OutputP.txt" For Output As #2
- Do Until EOF(1)
- Line Input #1, vtxt ' чтение по строкам. не важно сколько там предложении
- MsgBox vtxt
- For i = 1 To Len(vtxt)
- If Mid(vtxt, i, 1) <> "." Then ' нахождение конца предложение
- ptxt = ptxt + Mid(vtxt, i, 1)
- Else
- ptxt = ptxt & "!" ' замена "." на "!"
- Print #2, ptxt & vbNewLine; ' запись на новый файл
- ptxt = ""
- End If
- Next i
- Loop
- Close All
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
