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

[arabnesso [?]]

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

Пока нашел это:

Код: AutoIt [Выделить]

FileWriteLine(@ScriptDir & '\1.txt',ClipGet())

Но если я его занесу в таком виде в цикл, то он будет копировать один и тот же текст по нескольку раз, до того момента, когда в буфере не появится другой текст:

Код: AutoIt [Выделить]

While 1
FileWriteLine(@ScriptDir & '\1.txt',ClipGet())
Wend
 

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

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

[InnI [?]]

Код: AutoIt [Выделить]

$OldText = ""
While Sleep(1111)
  $NewText = ClipGet()
  If $NewText <> $OldText Then
    FileWriteLine(@ScriptDir & "\1.txt", $NewText)
    $OldText = $NewText
  EndIf
WEnd

[alex33 [?]]

Не понимаю, почему самому никак до этого не додуматься.