[Iska]

такого типа в текстовом файле »

Упакуйте образец текстового файла в архив. Архив выложите на RGhost. Ссылку — сюда.

[d22cva]

Исходный файл http://rghost.ru/60133388

[Iska]

d22cva, давайте попробуем на WSH:

Скрытый текст

Код:

Option Explicit

Dim strPattern

Dim strSourceFile
Dim strTempFileName

Dim strContent
Dim strLine


strPattern = "movie 0:00:09.04 [0.10] E:\Ролики\[:|*?].avi"

If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strSourceFile) Then
			strTempFileName = GetTemporaryName()
			
			With .OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With .CreateTextFile(strTempFileName, True)
				For Each strLine In Split(strContent, vbCrLf)
					.WriteLine strLine
					
					If Len(Trim(strLine)) <> 0 Then
						.WriteLine Replace(strPattern, "[:|*?]", Split(strLine, " ", 2)(1))
					End If
				Next
				
				.Close
			End With
			
			.CopyFile strSourceFile, .BuildPath(.GetParentFolderName(strSourceFile), .GetBaseName(strSourceFile) & ".bak"), True
			.CopyFile strTempFileName, strSourceFile, True
			.DeleteFile strTempFileName, True
		Else
			WScript.Echo "Can't find source file [" & strSourceFile & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage:"
	WScript.Quit 1
End If

WScript.Quit 0
'=============================================================================

'=============================================================================
' Серый форум / vbscript: генерация пути для временного файла или папки
' (http://forum.script-coding.com/viewtopic.php?id=1221)
'=============================================================================
Function GetTemporaryName()
	Const TemporaryFolder = 2
	
	Dim strTempName
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		Do
			strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetTempName)
		Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
	End With
	
	GetTemporaryName = strTempName
End Function
'=============================================================================

Сохраните код в файл с расширением «.vbs». Целевой файл указывается аргументом командной строки скрипта. Также можно просто перетащить целевой файл на скрипт из Проводника.

[d22cva]

Iska, Спасибо огромное!!! Почти идеально! А можно сделать так чтобы программа вставляла сначала в начало каждой строки comment 0 , а потом выполнялась ваша программа???

Пример с comment 0

comment 0 00:00 День в календаре 1612
comment 0 00:05 Актуальное интервью 1512
comment 0 00:20 Экстренная служба 1512
comment 0 00:25 Прогноз погоды вечер 1512
comment 0 00:30 Куда обратиться 1512
comment 0 00:35 Интернет-обзор 1512

А потом подставлялась каждая строка как в предыдущем посте, чтоб получилось в итоге так

Скрытый текст

comment 0 00:00 День в календаре 1612
movie 0:00:09.04 [0.10] E:\Ролики\День в календаре 1612.avi
comment 0 00:05 Актуальное интервью 1512
movie 0:00:09.04 [0.10] E:\Ролики\Актуальное интервью 1512.avi
comment 0 00:20 Экстренная служба 1512
movie 0:00:09.04 [0.10] E:\Ролики\Экстренная служба 1512.avi
comment 0 00:25 Прогноз погоды вечер 1512
movie 0:00:09.04 [0.10] E:\Ролики\Прогноз погоды вечер 1512.avi
comment 0 00:30 Куда обратиться 1512
movie 0:00:09.04 [0.10] E:\Ролики\Куда обратиться 1512.avi
comment 0 00:35 Интернет-обзор 1512
movie 0:00:09.04 [0.10] E:\Ролики\Интернет-обзор 1512.avi

[Iska]

вставляла сначала в начало каждой строки comment 0 , а потом выполнялась ваша программа??? »

Зачем так?

Замените:

Код:

.WriteLine strLine

на:

Код:

.WriteLine "comment 0 " & strLine