Total Commander

Flasher писал(а):Ну, логично. Одно с другим не вяжется. Двух зайцев сразу.

Batya писал(а):Что-то у меня копирование через IE иногда криво работает.

Text2Clip Mid(T, 1, Len(T) - 2)

If WSCript.Arguments.Count = 2 Then Clip = Mid(T, 1, Len(T) - 2) Else Clip = WSCript.Arguments(0)
Text2Clip Clip

Flasher писал(а):Можешь заменить

Flasher писал(а):Странно. А ты из под админа запускаешь?

sa писал(а):Просто в редакции скрипта от Batya твоя фича исчезла, а недочёт с вылетом скрипта на [..] появился.

Flasher писал(а):Можешь заменить ... и прописать второй параметр.

Batya писал(а):Конечно. Просто если IE уже открыт, может долго думать и не менять ключ реестра.

Batya писал(а):Не поможет. Как я уже написал, здесь глюк TC - все параметры очищаются.

Flasher писал(а):Это так с параметрами, создающими файлы списка? С другими этого бага нет?

sa писал(а):Batya
А если просто

Flasher писал(а):Вообще обмануть эту фигню можно просто. Банально дописывать в поле после %L символ и брать Left(%L, Len(%L)-1). Ну, вы меня поняли.

Batya писал(а):Если дело только в том, чтобы не выскакивала ошибка

Batya писал(а):Если дело только в том, чтобы не выскакивала ошибка, тогда - да, это просто.

If WSCript.Arguments.Count > 0 Then
  T = Replace(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1).ReadAll, "" + chr(13), chr(13)) 
  Clip = Mid(T, 1, Len(T) - 2)
Else Clip = CreateObject("WScript.Shell").CurrentDirectory
End If
Text2Clip Clip

Batya писал(а):Честно говоря, не понял.

Flasher писал(а):Уже проверил, он не только параметры убивает, но и любые символы, записанные в поле.

Flasher писал(а):Чтобы при постановке на [..] копировался путь к родительскому каталогу. Типа фича.