Что нового

посыл случайной строчки из текстового файла и удаление ее из файла

Сообщения
36
Репутация
-2
Версия AutoIt: 3.

Описание:
Код посылает случайную строчку из текстового файла и после посыла удаляет ее из этого файла.
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Например:
Код:
#include <file.au3>
$File = @ScriptDir&"\test.txt"
If Not FileExists($File) Then
    MsgBox(16, "Ошибка", "Файл "&$File&" не найден")
	Exit
EndIf

$CountLines = _FileCountLines($File)
If $CountLines = 0 Then
	MsgBox(48, "Инфо", "Файл "&$File&" пуст")
	Exit
EndIf

$n = $CountLines
For $i = 1 To $CountLines
	$NumStr = Random(1 , $n, 1)
		If $NumStr = 0 Then $NumStr = 1	
	$line = FileReadLine($File, $NumStr)	
		If $line <> "" Then Send($line)			
	_FileWriteToLine($File, $NumStr, "", 1)    
	$n = $n-1
Next

Exit
 
Верх