Генерация случайного числа из определенного диапазона

[perven1]

Версия AutoIt:
3.3.14.0

Описание:
Здравствуйте.
Помогите с решением проблемы.

Как заставить скрипт AutoIt выполнить операцию : скрипт - при запуске добавляет случайное число в файл 1.txt (в диапазоне между 50 и 140)

Примечания:

 

[joiner]

числа могут совпадать?

 

[perven1]

joiner, числа могут совпадать.
Но такое наверное - все-таки редко должно происходить, поскольку в данном диапазоне - довольно большое количество чисел.

Всякий раз при запуске скрипта - старое число - переписывается новым.

 

[joiner]

Local $idef = Number(FileRead(@ScriptDir & '\1.txt'))
Local $irdm
Do
	$irdm = Random(50, 140, 1)
Until $irdm <> $idef
Local $fo = FileOpen(@ScriptDir & '\1.txt', 2)
FileWrite($fo, $irdm)
FileClose($fo)

 

[perven1]

joiner, спасибо.
Скрипт работает.