Ввести последовательно из текстового файла три строки s, s1, s2 - VB
Формулировка задачи:
Прошу помочь с данной задачей:
Ввести последовательно из текстового файла три строки s, s1, s2. Получить новую, записав в нее символы находящиеся в строке s между подстроками s1 s2(их первыми вхождениями)если в исходной s нет совпадений с s1, s2 то вывести сообщение "Нет строки". Новую строку добавить в текстовый файл.
Решение задачи: «Ввести последовательно из текстового файла три строки s, s1, s2»
textual
Листинг программы
Option Explicit
Sub Main()
Dim S As String, S1 As String, S2 As String
Dim N As Integer, N1 As Integer
Open App.Path & "Text.txt" For Input As #1
Input #1, S
Input #1, S1
Input #1, S2
Close #1
N = InStr(S, S1)
If N = 0 Then
Call MsgBox("ГЌГҐГІ ñîâïГ*äåГ*ГЁГ© Г± '" & S1 & "'")
Exit Sub
Else
N = N + Len(S1)
End If
N1 = InStr(S, S2)
If N = 0 Then
Call MsgBox("ГЌГҐГІ ñîâïГ*äåГ*ГЁГ© Г± '" & S2 & "'")
Exit Sub
Else
N1 = N1 - N
End If
S = Mid(S, N, N1)
Call MsgBox(S)
Open App.Path & "Text.txt" For Append As #1
Print #1, S
Close #1
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д