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

[arabnesso]

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

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

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

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

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

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

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

 

[InnI]

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

 

[alex33]

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