Рандомизация строк в блокноте

[commonwelsh]

Где поискать решение такой задачи
(может быть были похожие задачи )...
Задача:
В блокноте есть 10 строк. Как сделать так- что бы скрипт удалил любые 5 случайных строк в этом файле и сохранил. Причем выстроил 5 оставшихся строк без пробела- по порядку.
Необходимо править файл не открывая само окно физически.

Cпасибо большое!

 

[Tempo]

;~ AutoIt Version: 3.3.14.5
#include <FileConstants.au3>
#include <Array.au3>

Local $sFile = "FileName.txt"
Local $aData = FileReadToArray($sFile)
If @extended < 5 Then Exit -1
_ArrayShuffle($aData)
Local $hFile = FileOpen($sFile, $FO_OVERWRITE)
FileWrite($hFile, _ArrayToString($aData, "", 0, 4))
FileClose($hFile)

 

[commonwelsh]

;~ AutoIt Version: 3.3.14.5
#include <FileConstants.au3>
#include <Array.au3>

Local $sFile = "FileName.txt"
Local $aData = FileReadToArray($sFile)
If @extended < 5 Then Exit -1
_ArrayShuffle($aData)
Local $hFile = FileOpen($sFile, $FO_OVERWRITE)
FileWrite($hFile, _ArrayToString($aData, "", 0, 4))
FileClose($hFile)

Спасибо!