[Iska]

и два пробела »

А попадётся какой-нибудь 1080? И «поплывёт» Ваша красивая картинка.

Вы для каких целей делаете это преобразование?

[Alexander_88]

Вы для каких целей делаете это преобразование? »

Я делаю несколько вариантов оформления видео файла (они постоянно добавляются). Первый вариант уже есть, его генерирует программа, второй (в одну строчку) программа не может делать... хочу его генерировать скриптом, чтобы вручную не перекапывать все (файлов не одна тысяча), конечно же для экономия времени.

А попадётся какой-нибудь 1080? И «поплывёт» Ваша красивая картинка. »

Конечно есть и такие. Но все равно есть два пробела перед разрешением, единственное то, что количество чисел больше в самом расширении, поэтому необходимо извлекать именно все символы после двоеточия и двух пробелов (в 2, 3, 4 строках блока)

[Iska]

WSH:

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

Код:

Option Explicit

Const strDelimiter = " | "

Dim strSourceFile
Dim strDestinationFile

Dim strContent
Dim strNewContent
Dim objMatch


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strSourceFile) Then
			strDestinationFile = .BuildPath(.GetParentFolderName(strSourceFile), .GetBaseName(strSourceFile) & "2." & .GetExtensionName(strSourceFile))
			
			With .OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With WScript.CreateObject("VBScript.RegExp")
				.Pattern = _
					"File Name.type:  .*\.(.*)\r\n" & _
					"Resolution:  (.*)\r\n" & _
					"Duration:  (.*)\r\n" & _
					"Filesize:  (.*)\r\n"
				.Global = True
				.IgnoreCase = True
				.MultiLine = True
				
				If .Test(strContent) Then
					strNewContent = ""
					
					For Each objMatch In .Execute(strContent)
						With objMatch
							strNewContent = strNewContent & Trim(.Submatches(0)) & strDelimiter & Trim(.Submatches(2)) & strDelimiter & Trim(.Submatches(1)) & strDelimiter & Trim(.Submatches(3)) & vbCrLf
						End With
					Next
				End If
			End With
			
			With .CreateTextFile(strDestinationFile, True)
				.Write strNewContent
				.Close
			End With
		Else
			WScript.Echo "Can't find source file [" & strSourceFile & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Исходный файл указывается аргументом скрипта (также можно просто перетянуть исходный файл на скрипт в Проводнике).

[Alexander_88]

Спасибо, попробовал перетянуть файл, Все отлично конвертировалось. Как я понимаю путь к файлу в скрипте (как я привык делать) нельзя указать, Сейчас читаю/разбираюсь как указать файл аргументом, наверно мне это больше подойдет, т.к. такие скрипты будут в нескольких папках, каждый скрипт будет обрабатывать свои файлы har.txt, они тоже все в разных папках, поэтому удобней будет наверно аргументом указать, если конечно я правильно понимаю как это работает.