VBS. Копирование в буфер обмена с "переводом строки"

[qsedftghk]

Есть такой vbs скрипт
(код копируется в блокнот, сохраняется как бла-бла.vbs, запускается в любом windows двойным щелчком мышки по файлу)
Скрипт копирует строку в буфер обмена, чтобы в дальнейшем её оттуда забрать.

Set WshShell = WScript.CreateObject("WScript.Shell")
buff="2.jpg\n3.jpg\n4.jpg\n"
WSHShell.Run "cmd.exe /C <nul set /p ""=" & buff & """ | CLIP", 0, False

Вопрос. Как получить в буфере обмена три строки:
2.jpg
3.jpg
4.jpg

а не одну строку "2.jpg\n3.jpg\n4.jpg\n"?

Честно говоря, я задолбался читать интернет на предмет "vbs, cmd, bat и буфер обмена", хочется чего-то уже готового. Ну, или есть ли какая-нибудь малююююсенькая утилита для работы с буфером обмена через командную строку?
Раньше, очень недурно работал сей код:

buff="2.jpg\n3.jpg\n4.jpg\n"
CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & buff & "');close();""", 0, True

Но заметил, что он не копирует в буфер (Windows 10) длинные строки, например см. ниже, и это бесит =( То ли пауза какая-то нужна для выполнения, то ли ещё что... блин, вечно всё через одно место. Нельзя просто взять и и строку в буфер загнать =(

buff="2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n2.jpg\n3.jpg\n4.jpg\n"
CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & buff & "');close();""", 0, True

 

[splxgf]

Может косые палки надо удвоить?
buff="2.jpg\\n3.jpg\\n4.jpg\\n"

 

[splxgf]

или так
buff="22.jpg"&vbCRLF&"3.jpg"

 

[Gad]

есть ли какая-нибудь малююююсенькая утилита для работы с буфером обмена через командную строку?

NirCmd - Windows command line tool

NirCmd is a small utility that allows you to do many useful tasks from command-line, without displaying any user interface: change your display settings, turn off your monitor, open the door of your CD-ROM drive, and more...

www.nirsoft.net

копирует строку в буфер обмена, чтобы в дальнейшем её оттуда забрать.

Вот прям буфер нужен? Я бы избегал такого по возможности...

 

[qsedftghk]

Может косые палки надо удвоить?
buff="2.jpg\\n3.jpg\\n4.jpg\\n"

Не. Не прокатит ни то, ни другое.
Это я просто написал, что в этом месте хочу перевод строки, но, как я понял в командной строке, акромя "echo" перевода строки - шишь.
Gad, да, нужен буфер обмена (вертел я все соображения безопасности на оси, для себя ж делаю удобняху, а потому вот). Все эти костыли - сохранить в файл, вытащить из файла и т.п. - это боль. Видимо, придется использовать что-то сторонее, типа NirCmd.
Ну, либо тупо переписать всё на autohotkey, но лень жешь...
Есть конечно вариант типа этого:

Set objWord = CreateObject("Word.Application")
objWord.Visible = false
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.TypeText buff
objSelection.WholeStory
objSelection.copy
objDoc.close wdDoNotSaveChanges
objWord.quit

Т.е., открыть ворд в невидимом окне и паст-копи сделать средствами ворда. Либо, есть такой же метод, но через эксплорер, но это медленно и бяка.
Ладно, че-нибудь придумается.

 

[Oleg Butrin]

Я бы избегал такого по возможности...

Даже не по возможности, а категорически.
Можно же в файл писать почти всегда.

 

[Gad]

Я как-то городил копирование путей к выделенным файлам в буфер из проводника через контекстное меню надо поискать

 

[izrukvruki]

В тотале есть такая опция:

в буфере копируются через строчку, как и нужно TC

 

[Gad]

нужно TC

Я например абсолютно не уверен что ТС это нужно Выше я описал свою задачу, кот. в свое время решал

 

[_MBK_]

Честно говоря, я тоже не пойму, по каким религиозным соображениям нужен именно такой разделитель. В любом случае, а если перевод строки через Chr(10)&Chr(13) задавать, например - тоже не выходит?

 

[qsedftghk]

Терпение и немного поисков. итого.

'это нужно, чтобы не мелькало окно с командной строкой
If InStr(1, WScript.FullName, "wscript.exe", vbTextCompare) > 0 Then
    With CreateObject("WScript.Shell")
        WScript.Quit .Run("cscript.exe """ & WScript.ScriptFullName & """", 0, True)
    End With
End If
'--------------------------------------------------------------------------------------

Set WshShell = WScript.CreateObject("WScript.Shell")
buff="2.jpg"&chr(13)&"3.jpg"&chr(13)&"4.jpg"&chr(13)&"текстовый документ"
 

Set oExec = WshShell.Exec("clip")
Set oIn = oExec.stdIn

'это нужно, чтобы русские буковки не были крякозяблами
    Set Stream = CreateObject("ADODB.Stream")
    Stream.Type = 2
    Stream.Mode = 3
    Stream.Open
    Stream.Charset = "cp866"
    Stream.WriteText buff
    Stream.Position = 0
    Stream.Charset = "windows-1251"
    buff = Stream.ReadText
'---------------------------------------------------------
    
    oIn.WriteLine buff
    oIn.Close
    Set oIn = Nothing
    Set oExec = Nothing


WScript.Quit

 

[qsedftghk]

Честно говоря, я тоже не пойму, по каким религиозным соображениям нужен именно такой разделитель. В любом случае, а если перевод строки через Chr(10)&Chr(13) задавать, например - тоже не выходит?

В том виде кода, как был с самого начала, ничего не катит

 

[_MBK_]

В таком случае, как обычно, ты искал ответ на одну задачу, а спросил за другую

 

[qsedftghk]

решаю вообще третью, так-то
Ну, почему же? Цель была скопировать строку в буфер обмена с помощью vbs

 

[_MBK_]

Цель была скопировать строку в буфер обмена с помощью vbs

Разве?

Вопрос. Как получить в буфере обмена три строки:
2.jpg
3.jpg
4.jpg

а не одну строку "2.jpg\n3.jpg\n4.jpg\n"?

 

[qsedftghk]

И? Скопировать в буфер строку, в которой есть разделители ("2.jpg\n3.jpg\n4.jpg\n"), чтобы в итоге получилось три строки. В теме упоминается vbs, значит, конечно же хочется и решения на vbs, чего тут непонятного-то?
Простым добавлением в строку разделителей типа &Chr(13) вместо \n не прокатит, хотя, понятное дело, разделители всё равно нужны &Chr(13) или vbCRLF.

 

[_MBK_]

Ну ты ж так и делаешь
buff="2.jpg"&chr(13)&"3.jpg"&chr(13)&"4.jpg"&chr(13)&"текстовый
И у тебя не три строки, а одна с разделителями все равно. Как ты собирался три туда загнать я вообще не пойму.