[Iska]

каждый день он обновляется »

Он при этом дописывается или полностью заменяется на новый?

Приведите пример файла (разумеется, не на все 600 Мб, а на несколько килобайт из него — упакуйте в архив и прикрепите архив к сообщению; либо выложите на RGhost, а ссылку — сюда).

[phenoMANon]

Он при этом дописывается или полностью заменяется на новый? »

После преобразований в файле он перемещается в другую папку, а на следующий день на его место записывается новый файл с тем же именем и аналогичной структурой. Это некий лог файл за предыдущий день.

[Iska]

phenoMANon, ясно. Тогда ждём образец файла для обработки, в котором было бы всё указанное для замены:

1) Удалить все строки которые начинаются с "ФИО" 2) Выполнить ряд последовательных замен: заменить ;" на " заменить ; на - заменить " =" на ; удалить =" удалить " »

[phenoMANon]

Прикладываю два архива, первый Исходный - пример того, над чем требуется производить преобразования, второй Результат - это то что примерно должно быть в итоге (обрабатываю вручную в FAR). Файлы в формате .csv но прекрасно читаются как текст в любом текстовом редакторе, будь то хоть блокнот, хоть FAR.
Исходный.rar

Результат.rar

[Iska]

Примерно так:

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

Код:

Option Explicit

Dim strSourceFile
Dim strTempFile
Dim strBakFile

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
		strTempFile = GetTempName()
		
		Set objTS = objFSO.CreateTextFile(strTempFile)
		
		With objFSO.OpenTextFile(strSourceFile)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
				
				If Not Left(strLine, Len("""ФИО""")) = """ФИО""" Then
					strLine = Replace(strLine, ";""", """")
					strLine = Replace(strLine, ";", "-")
					strLine = Replace(strLine, """	=""", ";")
					strLine = Replace(strLine, """	", "")
					strLine = Replace(strLine, "=""", "")
					strLine = Replace(strLine, """", "")
					
					objTS.WriteLine strLine
				End If
			Loop
			
			.Close
		End With
		
		objTS.Close
		
		Set objTS = Nothing
		
		strBakFile = objFSO.BuildPath(objFSO.GetParentFolderName(strSourceFile), objFSO.GetBaseName(strSourceFile) & ".bak")
		
		If objFSO.FileExists(strBakFile) Then
			objFSO.DeleteFile strBakFile, True
		End If
		
		objFSO.GetFile(strSourceFile).Name = objFSO.GetBaseName(strSourceFile) & ".bak"
		objFSO.CopyFile strTempFile, strSourceFile, True
		objFSO.DeleteFile strTempFile, True
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
	End If
Else
	WScript.Echo "Usage: wscript.exe """ & WScript.ScriptFullName & """ <Source file>"
End If

WScript.Quit 0

Function GetTempName()
	Dim strTempName
	
	Do
		strTempName = objFSO.BuildPath(objFSO.GetSpecialFolder(2), objFSO.GetTempName)
	Loop While objFSO.FileExists(strTempName)
	
	GetTempName = strTempName
End Function

[phenoMANon]

СПАСИБО огромнейшее! Всё работает отлично!