StarEdik
Новичок
- Сообщения
- 365
- Репутация
- 4
Версия AutoIt: 3.3.6.1
Описание:
Привет всем.
Есть Efemer1.тхт файл
Скрипт (написанный madmaslesом)загружает текст из файла Efemer1.txt в ListView построчно.
Этот файл в таком формате.
Надо чтоб было возможность выбора файла ( кнопка Open File ) для открытия и после нажатия на кнопку ( кнопка AvtoFormat) стало в таком формате
Примечания:
1.Удалить стоки с ненужными фразами (они во всех файлах одинаковы )
2.Надо убрать с текста все (GMT+3)
3.Вставить недостающиеся нули
Описание:
Привет всем.
Есть Efemer1.тхт файл
Скрипт (написанный madmaslesом)загружает текст из файла Efemer1.txt в ListView построчно.
Код:
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
$sFile = @ScriptDir & '\Efemer1.txt'
If Not FileExists($sFile) Then
MsgBox(16, 'Error', 'No ' & $sFile)
Exit
EndIf
$sText = FileRead($sFile)
$aText = StringSplit(StringStripCR($sText), @LF)
Dim $aTextItem[$aText[0]][1]
For $i = 1 To $aText[0]
$aTextItem[$i - 1][0] = $aText[$i]
Next
$sText = ''
$aText = 0
GUICreate('Test', 500, 500) ;L T W H
$nButtonDel = GUICtrlCreateButton('Delete', 400, 20, 80, 30)
$nButtonSave = GUICtrlCreateButton('Save', 400, 60, 80, 30)
$nButtonOpenFile = GUICtrlCreateButton('Open File', 400, 100, 80, 30)
$nButtonAvtoFormat = GUICtrlCreateButton('Avto Format', 400, 140, 80, 30)
$nListView = GUICtrlCreateListView('', 2, 2, 380, 490, $LVS_REPORT, $LVS_EX_GRIDLINES)
$hListView = GUICtrlGetHandle($nListView)
_GUICtrlListView_AddColumn($hListView, 'Test', 150)
_GUICtrlListView_AddArray($hListView, $aTextItem)
$aTextItem = 0
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $nButtonDel
GUICtrlSetState($nButtonDel, $GUI_DISABLE)
GUICtrlSetState($nButtonSave, $GUI_DISABLE)
$aDel = _GUICtrlListView_GetSelectedIndices($hListView, True)
If $aDel[0] Then
For $i = 1 To $aDel[0]
_GUICtrlListView_DeleteItem($hListView, $aDel[$i])
Next
EndIf
$aDel = 0
_GUICtrlListView_SetItemSelected($hListView, -1, False)
GUICtrlSetState($nButtonDel, $GUI_ENABLE)
GUICtrlSetState($nButtonSave, $GUI_ENABLE)
Case $nButtonSave
GUICtrlSetState($nButtonDel, $GUI_DISABLE)
GUICtrlSetState($nButtonSave, $GUI_DISABLE)
$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
GUICtrlSetState($nButtonDel, $GUI_ENABLE)
GUICtrlSetState($nButtonSave, $GUI_ENABLE)
EndSwitch
WEnd
Код:
Поиск события
Интервал поиска: 01.06.2011 0:00:00 - 31.12.2012 0:00:00
Шаг поиска: 0ч 10м
Критерий поиска:
mon.0,90,180.jup,ven
Интервалы реализации (начало - конец):
6.06.2011 19:10 (GMT+3) -7.06.2011 18:50 (GMT+3)
13.06.2011 9:40 (GMT+3) -14.06.2011 12:00 (GMT+)
20.06.2011 12:10 (GMT+3) -21.06.2011 14:50 (GMT+3)
28.06.2011 8:10 (GMT+3) -29.06.2011 14:20 (GMT+3)
5.07.2011 12:20 (GMT+3) -6.07.2011 11:20 (GMT+3)
12.07.2011 3:20 (GMT+3) -13.07.2011 6:40 (GMT+3)
19.07.2011 12:10 (GMT+3) -20.07.2011 15:20 (GMT+3)
27.07.2011 7:20 (GMT+3) -28.07.2011 12:20 (GMT+3)
Код:
Интервал поиска: 01.06.2011 0:00:00 - 31.12.2012 0:00:00
mon.0,90,180.jup,ven
06.06.2011 19:10 - 07.06.2011 18:50
13.06.2011 09:40 - 14.06.2011 12:00
20.06.2011 12:10 - 21.06.2011 14:50
28.06.2011 08:10 - 29.06.2011 14:20
05.07.2011 12:20 - 06.07.2011 11:20
12.07.2011 03:20 - 13.07.2011 06:40
19.07.2011 12:10 - 20.07.2011 15:20
27.07.2011 07:20 - 28.07.2011 12:20
Примечания:
1.Удалить стоки с ненужными фразами (они во всех файлах одинаковы )
2.Надо убрать с текста все (GMT+3)
3.Вставить недостающиеся нули