Что нового

[Данные, строки] Копирование из буфера обмена и запись в txt

arabnesso

Новичок
Сообщения
17
Репутация
0
Всем привет, ребят, уже пару дней маюсь, подскажите пожалуйста как скопированный текст из буфера обмена поместить в txt документ. Нужно проверить если там какой-либо текст и если есть копировать его в txt по строчно.

Пока нашел это:
Код:
FileWriteLine(@ScriptDir & '\1.txt',ClipGet())


Но если я его занесу в таком виде в цикл, то он будет копировать один и тот же текст по нескольку раз, до того момента, когда в буфере не появится другой текст:
Код:
While 1
FileWriteLine(@ScriptDir & '\1.txt',ClipGet())
Wend


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

Заранее спасибо!
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Код:
$OldText = ""
While Sleep(1111)
  $NewText = ClipGet()
  If $NewText <> $OldText Then
    FileWriteLine(@ScriptDir & "\1.txt", $NewText)
    $OldText = $NewText
  EndIf
WEnd
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Не понимаю, почему самому никак до этого не додуматься.
 
Верх