Копирование определенных строк с одного .txt на другой *.txt - VB
Формулировка задачи:
Ребзи помогите пожалуйста. Задача такая, есть текстовой файл с множ-во строк. Нужно вытащить оттуда фразу и записать в другой текстовой файл.
Дано:
111.txt '-в этом текстовом файле 1000 строк'
1)Нужно из этого файла, найти слово sende(отправитель) и receiver(получатель);
2) скопировать 4 строки после sender, receiver и записать в другой 222.txt файл.
Текстовый файл примерно выглядит так:
Asvoi found cell
Shanks Leah
Sender:
Lions Ltd Company
Ad.Trutskogo street 12
Post code 101029
Ph.number : 84957088888
Bla odoudhd hsgsh
Fdurbd focmfndn
Receiver:
OOO Romashka
Ad. Solovev street 15/7
Post code 18262
Ph.number: 84956362637
Jdjdjd jdjdjdjd jdjdjdjd lla
Так как новичок в Visual Basic 6, пожалуйста сделайте так чтобы я смог запустить )))))
Заранее благодарю !
Решение задачи: «Копирование определенных строк с одного .txt на другой *.txt»
textual
Листинг программы
Option Explicit Dim infile, outfile, i, fso, arg, extp If WScript.Arguments.Count = 0 Then MsgBox "Использование:" & vbLf & _ WScript.scriptname & " ИмяФайла1 ИмяФайла2 ..." & vbLf & _ "или выделите один или несколько файлов в Проводнике и перетащите их на значок скрипта." WScript.Quit End If Set fso = CreateObject("scripting.filesystemobject") For Each arg In Array("c:\temp\111.txt", "c:\temp\Копия 111.txt") Set infile = fso.opentextfile(arg) extp = InStrRev(arg, ".") Set outfile = fso.createtextfile(Left(arg, extp - 1) & "_1" & Mid(arg, extp)) Do While Not infile.atendofstream Select Case LCase(infile.readline) Case "sender:", "receiver:" For i = 1 To 4 If Not infile.atendofstream Then outfile.writeline infile.readline Else Exit Do End If Next End Select Loop Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д