[Iska]

На WSH:

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

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFile

Dim strValue


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		With WScript.CreateObject("VBScript.RegExp")
			.Pattern = "(.+)#.*"
			
			For Each objFile In objFSO.GetFolder(strSourceFolder).Files
				If .Test(objFile.Name) Then
					If IsEmpty(strValue) Then
						strValue = .Execute(objFile.Name).Item(0).Submatches.Item(0) & "*"
					Else
						strValue = strValue & " " & .Execute(objFile.Name).Item(0).Submatches.Item(0) & "*"
					End If
				End If
			Next
			
			With objFSO.CreateTextFile(objFSO.BuildPath(strSourceFolder, "Result.txt"))
				.Write strValue
				.Close
			End With
		End With
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: wscript.exe """ & WScript.ScriptName & """ <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0

Исходная папка задаётся параметром скрипта. Для Total Commander можно использовать меню запуска, панель инструментов и т.п. с аргументом «"%P"».

А что Вы потом с содержимым этого файла делать будете?

[Viberezh]

Iska, Не работает, либо я делаю что то не так. Файл нужен для создания шаблона маски в тотале для последующего копирования файлов по нему.

[Iska]

1. Скопируйте код в буфер обмена.
2. Откройте Блокнот.
3. Вставьте скопированный код из буфера обмена в Блокнот.
4. Сохраните содержимое Блокнота в любую папку под любым именем, с расширением «.vbs» в кодировке ANSI/1251.
5. В Total Commander'е добавьте новый пункт меню «Запуск» в виде:

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

где:
1) название пункта меню;
2) имя интерпретатора скриптов («wscript.exe» или «сscript.exe»);
3) путь и имя к сохранённому в п.4. файлу с кодом;
4) параметр скрипта, куда при исполнении Total Commander вместо «%P» подставит текущий путь с активной панели.

6. Выберете пункт меню, находясь в искомом каталоге:

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

7. Обновите активную панель, нажав Ctrl-R, дабы увидеть файл с результатами «Result.txt»:

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

P.S. Понял Вашу задумку — \Выделение\Загрузить выделение из файла, оно?

[Viberezh]

Сделал всё по инструкции.

Вот для этого надо.

[Iska]

Сделал всё по инструкции. »

Почти. Угловые кавычки вокруг %P — лишние. Смотрите, в моём примере их нет:

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

— только обычные двойные. Вероятно Вы взяли их из текста п.5.4 — не надо, уберите угловые и оставьте только двойные.

[Viberezh]

Iska, спасибо большое, всё работает! А чтобы скрипт работал в тотале с флешки его лучше в папку с тоталом закинуть, и не будет ли конфликта пути с буквой флешки на разных компах?

[Iska]

и не будет ли конфликта пути с буквой флешки на разных компах? »

Будет.

его лучше в папку с тоталом закинуть »

Не стоит его захламлять. Лучше создайте внутри какой-нибудь каталог, например, «My Scripts», и поместите скрипт туда. Тогда путь может выглядеть как «"%COMMANDER_PATH%\My Scripts\Имя скрипта.vbs"»:

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

[Viberezh]

Iska, Огромное спасибо! Всё прекрасно работает!

[Iska]

Viberezh, а знаете, как всё вышеизложенное выглядит в Far Manager'е, включая и само выделение файлов?

Код:

lua:Keys('Add CtrlY') print('/.+#.*/') Keys('Enter')

И всё .