Single Post - Копирование имени без слеша

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Копирование имени без слеша

Author

Message

Flasher

Posted: Sat Apr 21, 2012 10:06 Post subject:

Nik2012

Code:

T = Replace(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1).ReadAll, "\" + chr(13), chr(13))
Text2Clip Mid(T, 1, Len(T) - 2)

заменить на

Code:

With CreateObject("Scripting.FileSystemObject")
T = Replace(.OpenTextFile(WScript.Arguments(0), 1).ReadAll, "\" + chr(13), chr(13))
For Each N in Split(T, vbNewLine) : NT = NT & vbNewLine & .GetBaseName(N) : Next
End With : Text2Clip Mid(NT, 3, Len(NT) - 4)