Сообщений в теме: 6

[Rumata]

TC 5.12.454.7
Delphiscript

Привет всем!
Подскажите как можно записать в текстовый файл содержимое буфера.
Мне нужно переписать файл.

[AlexP]

Вот на JScript:

//Read
	var fso, f, strClipboard = "";
	objIE = new ActiveXObject("InternetExplorer.Application");
	objIE.Navigate("about:blank");
	strClipboard = objIE.document.parentWindow.clipboardData.getData("Text");
	objIE.Quit();

	//Write
	fso = new ActiveXObject("Scripting.FileSystemObject");
	f = fso.OpenTextFile("E:\\Temp\\file.txt", ForWriting, true);
	f.Write(strClipboard);
	f.Close();

По-идее, должен работать (у меня почему-то ругается на "ForWriting"). Возможно, кто-нибудь поможет сконвертить в Delphiscript, а то и сам справишься ;)

[APC]

Есть такой объект - Sys.Clipboard
По поводу записи в файл - читай ман, раздел DelphiScript - List of Supported Routines and Variables

[AlexP]

Есть такой объект - Sys.Clipboard

Кстати, да, это много проще Сейчас активно пишу скрипты (ASP.Net), поэтому не сразу переключился на TestComplete! Ну ничего, будет альтернативный вариант :)

[ch_ip]

Вот на JScript:

	//Write
	fso = new ActiveXObject("Scripting.FileSystemObject");
	f = fso.OpenTextFile("E:\\Temp\\file.txt", ForWriting, true);
	f.Write(strClipboard);
	f.Close();

По-идее, должен работать (у меня почему-то ругается на "ForWriting").

Думается мне, что ругается он оттого, что значение для константы forWriting в приведенном коде не определено. Поскольку это не зашитая куда-то константа, то он считает ее переменной, не имеющей значения (т.е. по умолчанию интерпретирует ее как 0). В то время, как допустимые значения аргумента - это 1(чтение), 2(запись) и 8(добавление)

[AlexP]

Думается мне, что ругается он оттого, что значение для константы forWriting в приведенном коде не определено. Поскольку это не зашитая куда-то константа, то он считает ее переменной, не имеющей значения (т.е. по умолчанию интерпретирует ее как 0). В то время, как допустимые значения аргумента - это 1(чтение), 2(запись) и 8(добавление)

Так и есть, упустил:
var ForWriting = 2;

[Rumata]

вот как на delphiscript:


AssignFile( fff, 'c:\123.txt' );
try
Rewrite(fff);
Write(fff,Sys.Clipboard);
finally
CloseFile( fff );
end;