VBS/WSH/JS

olga_maksi29 · Отправлено: **14:16, 09-09-2022** | #2

Может так?

Код:

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
FileName = FSO.GetTempName
If FSO.FileExists(FileName & ".txt") Then
WScript.Echo "Документ ''"& FileName & ".txt" & "'' - уже существует."
WScript.Quit 0
Else
fso.CreateTextFile(FileName & "Блокнот.txt")
End If
set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName & "Блокнот.txt", 2, True)
ofile.WriteLine(clipboard)
ofile.Close

denis19 · Отправлено: **17:28, 09-09-2022** | #3

Во, то что надо. Спасибо.

И ещё маленький вопрос, хоть и не так важно. Сделал ему имя "Блокнот", но всегда вначале к имени добавляется некрасивые эти буквы и цифры rad843BE.tmpБлокнот.txt. Можно ли их как то убрать?

olga_maksi29 · Отправлено: **10:11, 10-09-2022** | #4

Цитата denis19:

Можно ли их как то убрать? »

к примеру рандом ..

Код:

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Randomize()
FileName =int((100 * Rnd) + 1)
If FSO.FileExists("Блокнот_" & FileName & ".txt") Then
WScript.Echo "Документ ''"& "Блокнот_" & FileName  & ".txt" & "'' - уже существует."
WScript.Quit 0
Else
fso.CreateTextFile("Блокнот_" & FileName & ".txt")
End If
set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("Блокнот_" & FileName & ".txt", 2, True)
ofile.WriteLine(clipboard)
ofile.Close

к примеру имя получим - Блокнот_(числа 1-100).txt

denis19 · Отправлено: **11:24, 10-09-2022** | #5

Спасибо большое. То что надо.