Scorp1978 пишет: как создать текстовыйл, причем если он уже существует чтоб система не задавала вопросов о перезаписи?
Может просто удалить?
CODE:external(INT, "DeleteFile", "DeleteFileA", "kernel32.dll");
DeleteFile("C:\ttt.txt");
(Добавление)
CODE:string per, t;
readclipboard (per);
t=per;
if (fopen ("c:\5.txt", "r")!=0)
{
fclose();
if (messageboxyn ("Перезаписать файл??")==1)
{
external(INT, "DeleteFile", "DeleteFileA", "kernel32.dll");
DeleteFile("C:\5.txt");
}
}
loop()
{
readclipboard (per);
if (per!=t)
{
t=per;
if (fopen ("c:\5.txt", "a")!=0)
{
fwrite(per);
fwrite(ENDL);
fclose();
}
}
sleep (10) ;
}
этот вот скрипт будет записывать автоматически все что попадает в буфер обмена при его изменение..
Если при копирование русские буквы сохраняет как знак вопроса необходимо в браузере/программе с которой идет копирование поставить русский язык.
при каждом запуске скрипта файл обнуляется |