Преобразуйте файл таким образом, чтобы каждое предложение было в новой строке - 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
                        

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

9 голосов , оценка 4 из 5

Похожие ответы