#include <GUIConstantsEx.au3>
#include <GuiDateTimePicker.au3>
#include <GuiListView.au3>
#include <StaticConstants.au3>
#include <WinAPIEx.au3>
#include <Date.au3>
Opt('TrayMenuMode', 1)
Global $fLV_1, $fLV_2, $aFileArray[1][1], _ ;$sTitleScript = @ScriptName & '{[/@$@\]}', _
$sTitle = 'Форматирование Текста'
Dim $aRangeStart[14] = [True]
$aRangeStart[7] = True
Dim $aRangeEnd[14] = [True]
$aRangeEnd[7] = True
;If WinExists($sTitleScript) Then Exit
;AutoItWinSetTitle($sTitleScript)
$hGui = GUICreate($sTitle, 530, 530)
$nButtonOpenFile = GUICtrlCreateButton('Загрузить файл', 395, 10, 100, 30)
GUICtrlCreateLabel('Начало периода', 370, 50, 150, 20, $SS_CENTER)
$nDateStart = GUICtrlCreateDate('', 370, 70, 80, 22)
$hDateStart = GUICtrlGetHandle($nDateStart)
_GUICtrlDTP_SetFormat($hDateStart, 'dd.MM.yyyy')
$nTimeStart = GUICtrlCreateDate('', 460, 70, 60, 22, $DTS_TIMEFORMAT)
$hTimeStart = GUICtrlGetHandle($nTimeStart)
_GUICtrlDTP_SetFormat($hTimeStart, 'HH:mm')
GUICtrlCreateLabel('Конец периода', 370, 100, 150, 20, $SS_CENTER)
$nDateEnd = GUICtrlCreateDate('', 370, 120, 80, 22)
$hDateEnd = GUICtrlGetHandle($nDateEnd)
_GUICtrlDTP_SetFormat($hDateEnd, 'dd.MM.yyyy')
$nTimeEnd = GUICtrlCreateDate('', 460, 120, 60, 22, $DTS_TIMEFORMAT)
$hTimeEnd = GUICtrlGetHandle($nTimeEnd)
_GUICtrlDTP_SetFormat($hTimeEnd, 'HH:mm')
$nButtonPeriod = GUICtrlCreateButton('Выбрать', 395, 155, 100, 30)
$nButtonSave = GUICtrlCreateButton('Сохранить', 395, 218, 100, 30)
$nButtonDel = GUICtrlCreateButton('Удалить', 395, 280, 100, 30)
$nButtonExit = GUICtrlCreateButton('EXIT', 395, 490, 100, 30)
$nListView = GUICtrlCreateListView('', 10, 10, 350, 300, $LVS_REPORT, $LVS_EX_GRIDLINES)
$hListView = GUICtrlGetHandle($nListView)
_GUICtrlListView_AddColumn($hListView, '', 325)
$nListView_2 = GUICtrlCreateListView('', 10, 320, 350, 200, $LVS_REPORT, $LVS_EX_GRIDLINES)
$hListView_2 = GUICtrlGetHandle($nListView_2)
_GUICtrlListView_AddColumn($hListView_2, '', 325)
For $i = $nButtonOpenFile + 1 To $nButtonDel
GUICtrlSetState($i, $GUI_HIDE)
Next
GUISetState()
_WinAPI_EmptyWorkingSet()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $nButtonExit
Exit
Case $nButtonOpenFile
GUICtrlSetState($nButtonOpenFile, $GUI_DISABLE)
$sFile = FileOpenDialog('Выберите файл для обработки', _
@ScriptDir & '\', 'Текстовые файлы (*.txt)', 1, '', $hGui)
If @error Then
TrayTip($sTitle, 'Ошибка в выборе файла', 5, 3)
GUICtrlSetState($nButtonOpenFile, $GUI_ENABLE)
ContinueLoop
EndIf
_File_To_Array($aFileArray, $sFile)
If @error Then
TrayTip($sTitle, 'Ошибка в функции _File_To_Array', 5, 3)
GUICtrlSetState($nButtonOpenFile, $GUI_ENABLE)
$sFile = ''
ContinueLoop
EndIf
If $fLV_1 Then
_GUICtrlListView_DeleteAllItems($hListView)
EndIf
If $fLV_2 Then
_GUICtrlListView_DeleteAllItems($hListView_2)
_GUICtrlListView_SetColumn($hListView_2, 0, '')
EndIf
_GUICtrlListView_SetColumn($hListView, 0, _WinAPI_PathCompactPathEx($sFile, 55))
_GUICtrlListView_AddArray($hListView, $aFileArray)
$sStartTime = _Format_Valid(_GUICtrlListView_GetItemText($hListView, 3), 0)
$iCount = _GUICtrlListView_GetItemCount($hListView)
$sEndTime = _Format_Valid(_GUICtrlListView_GetItemText($hListView, $iCount - 1), 1)
$aStartTemp = StringSplit($sStartTime & ':00', '/ :')
$aEndTemp = StringSplit($sEndTime & ':00', '/ :')
If $sStartTime And $sEndTime Then
For $i = 1 To $aStartTemp[0]
$aRangeStart[$i] = $aStartTemp[$i]
$aRangeStart[$i + 7] = $aEndTemp[$i]
$aRangeEnd[$i] = $aStartTemp[$i]
$aRangeEnd[$i + 7] = $aEndTemp[$i]
Next
GUICtrlSetData($nDateStart, $sStartTime)
GUICtrlSetData($nTimeStart, $sStartTime)
GUICtrlSetData($nDateEnd, $sEndTime)
GUICtrlSetData($nTimeEnd, $sEndTime)
_GUICtrlDTP_SetRange($hDateStart, $aRangeStart)
_GUICtrlDTP_SetRange($hDateEnd, $aRangeEnd)
EndIf
$aStartTemp = 0
$aEndTemp = 0
$fLV_1 = True
$sStartTime = ''
$sEndTime = ''
$iCount = 0
ReDim $aFileArray[1][1]
For $i = $nButtonOpenFile + 1 To $nButtonDel
GUICtrlSetState($i, $GUI_SHOW)
Next
GUICtrlSetState($nButtonOpenFile, $GUI_ENABLE)
_WinAPI_EmptyWorkingSet()
Case $nButtonPeriod
_Control_En_Dis(0)
_Get_Reriod()
If @error Then
TrayTip($sTitle, 'Ошибка в функции _Get_Reriod', 5, 3)
EndIf
_Control_En_Dis(1)
_WinAPI_EmptyWorkingSet()
Case $nDateStart, $nTimeStart
$sStartTime = _Format_Valid(GUICtrlRead($nDateStart) & ' ' & GUICtrlRead($nTimeStart), 0)
$aStartTemp = StringSplit($sStartTime & ':00', '/ :')
If $sStartTime Then
For $i = 1 To $aStartTemp[0]
$aRangeEnd[$i] = $aStartTemp[$i]
Next
_GUICtrlDTP_SetRange($hDateEnd, $aRangeEnd)
$sStartTime = ''
$aStartTemp = 0
EndIf
Case $nButtonDel
_Control_En_Dis(0)
$aDel = _GUICtrlListView_GetSelectedIndices($hListView, True)
If $aDel[0] Then
For $i = $aDel[0] To 1 Step -1
If $aDel[$i] > 2 Then
_GUICtrlListView_DeleteItem($hListView, $aDel[$i])
EndIf
Next
EndIf
$aDel = 0
_GUICtrlListView_SetItemSelected($hListView, -1, False)
_Control_En_Dis(1)
Case $nButtonSave
$sText = ''
_Control_En_Dis(0)
$iCount = _GUICtrlListView_GetItemCount($hListView)
For $i = 0 To $iCount - 1
$sText &= _GUICtrlListView_GetItemText($hListView, $i) & @CRLF
Next
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, StringTrimRight($sText, 2))
FileClose($hFile)
$sText = ''
$iCount = 0
$hFile = 0
_Control_En_Dis(1)
EndSwitch
WEnd
Func _Control_En_Dis($i_Flag)
Local $s_State = $GUI_DISABLE
If $i_Flag Then $s_State = $GUI_ENABLE
For $i = $nButtonOpenFile To $nButtonExit
GUICtrlSetState($i, $s_State)
Next
EndFunc ;==>_Control_En_Dis
Func _Get_Reriod()
Local $s_StartTime, $s_EndTime, $i_End_m, $f_End = True, $a_String, $i_CountString, $a_Temp, _
$aResult, $i_Count
$s_StartTime = GUICtrlRead($nDateStart) & ' ' & GUICtrlRead($nTimeStart)
$s_EndTime = GUICtrlRead($nDateEnd) & ' ' & GUICtrlRead($nTimeEnd)
$s_StartTime = _Format_Valid($s_StartTime, 0)
If Not $s_StartTime Then Return SetError(1)
$s_EndTime = _Format_Valid($s_EndTime, 0)
If Not $s_EndTime Then Return SetError(1)
$i_End_m = _DateDiff('n', $s_StartTime, $s_EndTime)
If $i_End_m <= 0 Then Return SetError(1)
$i_CountString = _GUICtrlListView_GetItemCount($hListView)
If $i_CountString < 4 Then Return SetError(1)
Dim $a_String[$i_CountString - 2] = [$i_CountString - 3]
For $i = 3 To $i_CountString - 1
$a_String[$i - 2] = _GUICtrlListView_GetItemText($hListView, $i)
Next
Dim $a_Temp[$a_String[0] + 1][8] = [[$a_String[0], $i_End_m, '', 0]]
For $i = 1 To $a_String[0]
$a_Temp[$i][0] = _Format_Valid($a_String[$i], 0)
$a_Temp[$i][1] = _DateDiff('n', $s_StartTime, $a_Temp[$i][0])
$a_Temp[$i][2] = _Format_Valid($a_String[$i], 1)
$a_Temp[$i][3] = _DateDiff('n', $s_StartTime, $a_Temp[$i][2])
If $f_End Then
If $a_Temp[$i][1] > 0 And $a_Temp[$i][1] - $a_Temp[$i - 1][3] > 1 And _
$a_Temp[$i - 1][3] < $i_End_m Then
If $a_Temp[$i - 1][3] < $i_End_m And $a_Temp[$i - 1][3] > 0 Then
$a_Temp[$i][5] = $a_Temp[$i - 1][3] + 1
EndIf
If $a_Temp[$i][5] < 0 Then
$a_Temp[$i][5] = 0
EndIf
$a_Temp[$i][4] = _DateAdd('n', $a_Temp[$i][5], $s_StartTime)
$a_Temp[$i][7] = $a_Temp[$i][1] - 1
If $a_Temp[$i][7] < $i_End_m Then
$a_Temp[$i][6] = _DateAdd('n', $a_Temp[$i][7], $s_StartTime)
ElseIf $a_Temp[$i][7] > $i_End_m Then
$a_Temp[$i][7] = $i_End_m
$a_Temp[$i][6] = $s_EndTime
$f_End = False
EndIf
EndIf
EndIf
Next
Dim $a_Result[$a_Temp[0][0]][1]
For $i = 1 To $a_Temp[0][0]
If $a_Temp[$i][4] And $a_Temp[$i][6] Then
$a_Result[$i_Count][0] = StringFormat('%s - %s', _Format_Back($a_Temp[$i][4]), _
_Format_Back($a_Temp[$i][6]))
$i_Count += 1
EndIf
Next
If $i_Count Then
ReDim $a_Result[$i_Count][1]
If $fLV_2 Then
_GUICtrlListView_DeleteAllItems($hListView_2)
EndIf
_GUICtrlListView_SetColumn($hListView_2, 0, StringFormat('%s - %s', _Format_Back($s_StartTime), _
_Format_Back($s_EndTime)))
_GUICtrlListView_AddArray($hListView_2, $a_Result)
$fLV_2 = True
Else
Return SetError(1)
EndIf
EndFunc ;==>_Get_Reriod
Func _Format_Back($s_String)
Local $s_Pattern = '^(\d{4})/(\d{2})/(\d{2})(.*?)$', $s_Replace = '$3.$2.$1$4', _
$s_Return
Return StringRegExpReplace($s_String, $s_Pattern, $s_Replace)
EndFunc ;==>_Format_Back
Func _File_To_Array(ByRef $a_Result, $s_FileName)
Local $h_File, $s_Text, $i_Count, $a_Temp, $s_NewString, $a_Test
$h_File = FileOpen($s_FileName)
If $h_File = -1 Then Return SetError(1)
$s_Text = FileRead($s_FileName)
FileClose($h_File)
If Not $s_Text Then Return SetError(1)
$s_Text = StringRegExpReplace($s_Text, '(?<!\d)(\d[:.])', '0$0')
$s_Text = StringStripCR($s_Text)
If StringRight($s_Text, 1) = @LF Then
While StringRight($s_Text, 1) = @LF
$s_Text = StringTrimRight($s_Text, 1)
WEnd
EndIf
$a_Temp = StringSplit($s_Text, @LF)
ReDim $a_Result[$a_Temp[0] + 10][1]
For $i = 1 To $a_Temp[0]
$a_Temp[$i] = StringStripWS($a_Temp[$i], 7)
If StringRegExp($a_Temp[$i], 'Интервал поиска') Then
$a_Test = StringRegExp($a_Temp[$i], '\d{2}\.\d{2}\.\d{4}\h\d{2}:\d{2}:\d{2}', 3)
If @error Then
$a_Temp[$i] = StringRegExpReplace($a_Temp[$i], '(\d{2}\.\d{2}\.\d{4})', '$0 00:00')
ElseIf UBound($a_Test) < 2 Then
$a_Temp[$i] = StringReplace($a_Temp[$i], $a_Test[0], Chr(0))
$a_Temp[$i] = StringRegExpReplace($a_Temp[$i], '(\d{2}\.\d{2}\.\d{4})', '$0 00:00')
$a_Temp[$i] = StringReplace($a_Temp[$i], Chr(0), $a_Test[0])
EndIf
$a_Result[$i_Count][0] = $a_Temp[$i]
$i_Count += 1
If $i > 1 Then
If $a_Temp[0] > $i + 3 Then
If Not StringIsDigit(StringLeft($a_Temp[$i + 3], 2)) Then
$a_Result[$i_Count][0] = $a_Temp[$i + 3]
$i_Count += 1
$a_Result[$i_Count][0] = ''
$i_Count += 1
EndIf
EndIf
ElseIf $i = 1 Then
If $a_Temp[0] > $i + 1 Then
If Not StringIsDigit(StringLeft($a_Temp[$i + 1], 2)) Then
$a_Result[$i_Count][0] = $a_Temp[$i + 1]
$i_Count += 1
$a_Result[$i_Count][0] = ''
$i_Count += 1
EndIf
EndIf
EndIf
EndIf
If StringIsDigit(StringLeft($a_Temp[$i], 2)) Then
$s_NewString = StringRegExpReplace($a_Temp[$i], '^(\d{2}\.\d{2}\.\d{4}\h\d{2}:\d{2}).*?(\d{2}\.\d{2}\.\d{4}\h\d{2}:\d{2}).*?$', '$1 - $2')
If @extended = 2 Then
$a_Result[$i_Count][0] = $s_NewString
$i_Count += 1
EndIf
EndIf
Next
If $i_Count Then
ReDim $a_Result[$i_Count][1]
Return $a_Result
Else
Return SetError(1)
EndIf
EndFunc ;==>_File_To_Array
Func _Format_Valid($s_String, $i_Flag)
;$i_Flag = 0 в дата в начале
;$i_Flag <> 0 в дата в конце
Local $s_Pattern = '(\d{2})\.(\d{2})\.(\d{4})(\h\d{2}:\d{2}).*', $s_Replace = '$3/$2/$1$4', _
$s_Return
If $i_Flag Then
$s_Pattern = '.+' & $s_Pattern
Else
$s_Pattern = '^' & $s_Pattern; & '$'
EndIf
$s_Return = StringRegExpReplace(StringStripWS($s_String, 7), $s_Pattern, $s_Replace)
If _DateIsValid($s_Return) Then
Return $s_Return
Else
Return ''
EndIf
EndFunc ;==>_Format_Valid
Вы одной строкой выполнили 1-ю часть задачи. 
.Но 
