[решено] Как объединить два скрипта? - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Как объединить два скрипта? (http://forum.oszone.net/showthread.php?t=351867)

Как объединить два скрипта?

Всем добрый день. Пользуюсь скриптом который создаёт новый блокнот и сразу вставляет в него текст из буфера обмена. Но вот когда хочу создать второй с уже новым текстом, то первый надо обязательно переименовать, иначе второй блокнот не создастся, там просто в первом заменится текст.
Можно ли сделать чтоб новый с новым текстом создавался без переименования первого? Или может существует другой вариант?
Заранее спасибо.

Скрипт создания и вставки текста, но с переименовыванием
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
file = left(ScriptPath, instrrev(ScriptPath, "\")) & "Блокнот.txt"
'2 - дозапись, True - создавать, если
set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(file, 2, True)
ofile.WriteLine(clipboard)
ofile.Close

Этот может создавать каждый раз новый без переименования первого, но без вставки в него текста
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
FileName = FSO.GetTempName
If FSO.FileExists(FileName & ".txt") Then
WScript.Echo "Документ ''"& FileName & ".txt" & "'' - уже существует."
WScript.Quit 0
Else
fso.CreateTextFile(FileName & "Блокнот.txt")
End If

Может так?

Код:

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

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

Цитата:

Цитата 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

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