Как период времени разделить на n равных промежутков и ...

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("", 320, 398)
$Label1 = GUICtrlCreateLabel("00.00.0000  00:00 - 00.00.0000  00:00", 6, 8, 194, 17, -1, $WS_EX_STATICEDGE)
$Label2 = GUICtrlCreateLabel("00.00.0000  00:00", 209, 8, 103, 17, -1, $WS_EX_STATICEDGE)
$List1 = GUICtrlCreateList("", 207, 29, 107, 136)
$List2 = GUICtrlCreateList("", 4, 31, 197, 331)
$Button1 = GUICtrlCreateButton("Start", 210, 175, 103, 25)
$Button2 = GUICtrlCreateButton("Stop", 210, 206, 103, 25)
$Button3 = GUICtrlCreateButton("Save", 210, 238, 103, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Avto", 210, 269, 46, 17)
$Combo1 = GUICtrlCreateCombo("2", 251, 290, 40, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label3 = GUICtrlCreateLabel("сек", 294, 295, 22, 17)
$Button4 = GUICtrlCreateButton("Open", 7, 367, 56, 23)
$Button5 = GUICtrlCreateButton("Delete", 74, 367, 56, 23)
$Button6 = GUICtrlCreateButton("Save", 140, 368, 59, 23)
$Button7 = GUICtrlCreateButton("Exit", 211, 367, 102, 25)
$Combo2 = GUICtrlCreateCombo("5", 265, 316, 40, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label5 = GUICtrlCreateLabel("Пауза", 208, 296, 35, 17)
$Label6 = GUICtrlCreateLabel("Делитель", 208, 320, 54, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Повтор", 212, 342, 60, 17)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE, $Button7
			Exit

	EndSwitch
WEnd

; [topic,10438]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Misc.au3>
#include <Date.au3>

Global $iStep = 5 ; шаг
Global $iCurSel = 0 ; в процессе выполнения содержит индекс выделенной строки в $List2

$Form1 = GUICreate("", 320, 398)
$Label1 = GUICtrlCreateLabel("00.00.0000  00:00 - 00.00.0000  00:00", 6, 8, 194, 17, -1, $WS_EX_STATICEDGE)
$Label2 = GUICtrlCreateLabel("00.00.0000  00:00", 209, 8, 103, 17, -1, $WS_EX_STATICEDGE)
$List1 = GUICtrlCreateList("", 4, 31, 197, 331, BitOR($LBS_STANDARD, $WS_VSCROLL, $LBS_EXTENDEDSEL))
$List2 = GUICtrlCreateList("", 207, 29, 107, 136, BitOR($LBS_STANDARD, $WS_VSCROLL, $LBS_EXTENDEDSEL))
$Button1 = GUICtrlCreateButton("Start", 210, 175, 103, 25)
$Button2 = GUICtrlCreateButton("Stop", 210, 206, 103, 25)
$Button3 = GUICtrlCreateButton("Save", 210, 238, 103, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Avto", 210, 269, 46, 17)
$Combo1 = GUICtrlCreateCombo("2", 251, 290, 40, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label3 = GUICtrlCreateLabel("сек", 294, 295, 22, 17)
$Button4 = GUICtrlCreateButton("Open", 7, 367, 56, 23)
$Button5 = GUICtrlCreateButton("Delete", 74, 367, 56, 23)
$Button6 = GUICtrlCreateButton("Save", 140, 368, 59, 23)
$Button7 = GUICtrlCreateButton("Exit", 211, 367, 102, 25)
$Combo2 = GUICtrlCreateCombo("5", 265, 316, 40, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label5 = GUICtrlCreateLabel("Пауза", 208, 296, 35, 17)
$Label6 = GUICtrlCreateLabel("Делитель", 208, 320, 54, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Повтор", 212, 342, 60, 17)
GUISetState(@SW_SHOW)

$aTime = _FileParse(@ScriptDir & '\1.txt')
; показать выделенный текст из Listbox2 на Label2
GUICtrlSetData($Label1, _GUICtrlListBox_GetText($List1, 0))

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
		Case $GUI_EVENT_CLOSE, $Button7
			AdlibUnRegister('_Time')
            Exit
		Case $List2
			; показать выделенный текст из Listbox2 на Label2
			GUICtrlSetData($Label2, _GUICtrlListBox_GetText($List2, _GUICtrlListBox_GetCurSel($List2)))
		Case $List1
			Global $iIndex = 0
			; каждые  2 секунды переходить на следующую строку
			AdlibRegister('_Time', 2000)
			; показать выделенный текст из Listbox1 на Label1
			GUICtrlSetData($Label1, _GUICtrlListBox_GetText($List1, _GUICtrlListBox_GetCurSel($List1)))
			_SetPeriod(_GUICtrlListBox_GetText($List1, _GUICtrlListBox_GetCurSel($List1)))
    EndSwitch
WEnd

Func _FileParse($s_Path)
	
	Local $i = 0, $h_File, $s_Line
	
	$h_File = FileOpen($s_Path, 0)
	If $h_File = -1 Then
		Return SetError(1, 0, 0)
	EndIf
	_GUICtrlListBox_BeginUpdate($List1)
	While 1
		$s_Line = FileReadLine($h_File)
		If @error = -1 Then ExitLoop
			_GUICtrlListBox_AddString($List1, $s_Line)
		$i += 1
	WEnd

	If Not $i Then 
		Return SetError(2, 0, 0)
	EndIf
	
	FileClose($h_File)
	
	_GUICtrlListBox_EndUpdate($List1)
	_GUICtrlListBox_SetSel($List1, 0, 1)	
	
	Return SetError(0, 0, _GUICtrlListBox_GetCurSel($List1))
EndFunc ;==>_FileParse

Func _SetPeriod($s_Text)
	
	; выделенный период разделить на $n  (5 равных)  равных промежутков и построчно занести их  в Listbox2
	Local $a_Period = StringRegExp(StringRegExpReplace($s_Text, '(\d+)\.(\d+)\.(\d+)\s(\d+):(\d+)', '$3/$2/$1 $4:$5:00'), '(.*)\s-\s(.*)', 3)
	Local $i_St = _DateDiff( 's', "1970/01/01 00:00:00", $a_Period[0])
	Local $i_Ed = _DateDiff( 's', "1970/01/01 00:00:00", $a_Period[1])
	Local $i_Period = ($i_Ed - $i_St) / ($iStep -1)
	Local $i_New = $i_St
	_GUICtrlListBox_ResetContent($List2)
	_GUICtrlListBox_BeginUpdate($List2)
	While $a_Period[1] <> $i_St
		$i_St = _DateAdd("s", Int($i_New), "1970/01/01 00:00:00")
		_GUICtrlListBox_AddString($List2, StringTrimRight($i_St, 3))
		$i_New = _DateDiff( 's', "1970/01/01 00:00:00", $i_St)
		$i_New = $i_New + $i_Period
	WEnd
	_GUICtrlListBox_EndUpdate($List2)
	GUICtrlSetData($Label2, _GUICtrlListBox_GetText($List2, 0))
	_GUICtrlListBox_SetSel($List2, $iIndex, 1)
	$iCurSel = _GUICtrlListBox_GetCurSel($List2)
EndFunc ;==>_SetPeriod
	
Func _Time()
	
	; выделить 1-ю строку  в Listbox2
	$iIndex += 1
	_GUICtrlListBox_SetSel($List2, $iIndex, 1)
	$iCurSel = _GUICtrlListBox_GetCurSel($List2)
	If $iCurSel <> 0 Then _GUICtrlListBox_SetSel($List2, $iCurSel - 1, 0)
	; показать выделенный текст из Listbox2 на Label2
	GUICtrlSetData($Label2, _GUICtrlListBox_GetText($List2, $iCurSel))
	If $iCurSel = $iStep - 1 Then 
		AdlibUnRegister('_Time')
	EndIf
EndFunc ;==>_Time