[Iska]

Пойдём по накатанной…

Берём тот же код, выкидываем оттуда регулярные выражения (их, в принципе, можно было и для прошлой задачи выбросить, и пользовать «If InStr(strLine, "Саша") > 0 Then …», да я не стал), и делаем примерно такое:

читать дальше »

Код:

Option Explicit

Dim strSourceFile
Dim objFSO
Dim objTS

Dim strLine


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FileExists(strSourceFile) Then
		Set objTS = objFSO.CreateTextFile(strSourceFile & ".export.txt", True)
		
		With objFSO.OpenTextFile(strSourceFile)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
				
				objTS.WriteLine Mid(strLine, 5)
			Loop
			
			.Close
		End With
		
		objTS.Close
		
		Set objTS = Nothing
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found"
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <Source file>"
End If

WScript.Quit