[已解決]如何讓每一欄的第5格 , 每10分鐘檢查一次值 , 沒有更新成不一樣的值就回報錯誤?-已解决问题区-AUTOIT CN

ipmitool 发表于 2016-6-7 11:35:51

[已解決]如何讓每一欄的第5格, 每10分鐘檢查一次值, 沒有更新成不一樣的值就回報錯誤?

本帖最后由 ipmitool 于 2016-6-16 07:44 编辑

請問各位大師, 如何讓每一欄的第5格, 每10分鐘內檢查一次值, "沒有更新"成不一樣的值就回報 error?

1.txt
sdfasdfsadf
asdadfasdfasdfa
sdfs!ER#$@sdfasdfsa
dfasda
dfasdfasdfas

2.txt
sdfasdfsad@
fasdadfasdfasdf
asdfs!ER#$@sdfasdfs
adfasdadfasdfasdfas
sdfasdfsadfasdadfasdfasdfasdfs!ER#$@sdfasdfsadfasdadfasdfasdfas

3.txt
sdfsdfsf@w32
dsfgsg@dvsfgds
advsfgfhnjt5
Sdsdfgdgdgh
dsfw43@wrgt35y45@jmryjr

4.txt
advfssfdfbg5324353@wr535t3y
ergergy43@243453
@Vadgwrgwg
VDsaf
gryjhr
#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
;#include <MsgBoxConstants.au3>

GUICreate("ListView Add Array", 800, 300)
$idListview = GUICtrlCreateListView("", 2, 2, 394, 268)
GUISetState(@SW_SHOW)
_GUICtrlListView_AddColumn($idListview, "Tester", 100)
_GUICtrlListView_AddColumn($idListview, "Test Item", 100)
_GUICtrlListView_AddColumn($idListview, "BMC IP", 100)
_GUICtrlListView_AddColumn($idListview, "Count", 100)
_GUICtrlListView_AddColumn($idListview, "Last Record Time", 100)
_GUICtrlListView_SetItemCount($idListview, 5000)
_add_lv_items()
AdlibRegister('_add_lv_items', 5000); 5秒刷新数据

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()

Func _add_lv_items()

   Local $path, $aFileList, $aNewList
   $path = @ScriptDir
   $aFileList = _FileListToArray($path, "*.txt")
   If IsArray($aFileList) Then

            ReDim $aNewList ;;;
            For $i = 0 To UBound($aFileList) - 1 Step 1

                     $aNewList[$i] = $aFileList[$i]
                     $aNewList[$i] = FileReadLine($aFileList[$i], 1)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 2)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 3)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 4)

            Next

            _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($idListview))
            _GUICtrlListView_AddArray($idListview, $aNewList)

   EndIf

EndFunc

ipmitool 发表于 2016-6-8 07:54:17

各位大哥大姊, 有沒有辦法處理阿...我想不出來...

kk_lee69 发表于 2016-6-8 09:03:03

回复 2# ipmitool

你不是檢查寫出來了嗎

每10分鐘檢查一次就
AdlibRegister('_add_lv_items', 5000);

註冊10分鐘檢查一次呀

ipmitool 发表于 2016-6-8 10:10:11

回复 3# kk_lee69

大哥, 我是要10分鐘檢查到都沒有更新字串的話, 要回報錯誤, 這樣要怎麼做啊?

kk_lee69 发表于 2016-6-8 10:46:24

回复 4# ipmitool

檢查有沒有更新是不是要先找個地方放原來的

可設陣列或者設變數存放也可以放在文字檔裡面

然後AdlibRegister 註冊10分鐘跑一次函數

取直比對不就是這樣嗎??

ipmitool 发表于 2016-6-8 11:31:36

小弟新手...望大哥寫個範例...嗚....

kk_lee69 发表于 2016-6-8 15:08:27

回复 6# ipmitool

http://www.autoitx.com/forum.php?mod=viewthread&tid=23155&highlight=%BC%E0%BF%D8
http://www.autoitx.com/search.php?searchid=170&orderby=lastpost&ascdesc=desc&searchsubmit=yes&page=2

ipmitool 发表于 2016-6-13 11:10:33

馬蓋仙, $LVN_ITEMCHANGE 要如何監控listview裡面的值有沒有變動啊?

kk_lee69 发表于 2016-6-13 11:41:51

本帖最后由 kk_lee69 于 2016-6-13 11:57 编辑

回复 8# ipmitool

你列出你目前寫的程式看看

你要把你的程式簡化掉重點在於你不懂的部分做個簡單的範例就好....
別人是無法去了解你的環境跟系統最好提供的程式就是簡單的複製貼上就可以用的

你原本提供的還有 1.TXT2.TXT這樣的方式太麻煩了.....

ipmitool 发表于 2016-6-13 11:47:47

有點在亂寫了...#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>

;Local $GUI, $hImage, $iITEM_COUNT = 10000
GUICreate("Test Management v1.0", 1060, 410)
$hListView = GUICtrlCreateListView("", 5, 5, 1050, 345, $LVS_SHOWSELALWAYS, $LVS_EX_GRIDLINES + $LVS_EX_FULLROWSELECT + $LVS_EX_DOUBLEBUFFER)

;===================================================================
$Button1 = GUICtrlCreateButton("ReportData", 200, 362, 73, 33)
$Button2 = GUICtrlCreateButton("Complete", 300, 362, 73, 33)
$Button3 = GUICtrlCreateButton("Clear", 800, 362, 73, 33)
$PowerReset = GUICtrlCreateButton("Power Reset", 500, 362, 73, 33)
$SerialOverLan = GUICtrlCreateButton("SOL", 600, 362, 73, 33)
;$stopreportflash = GUICtrlCreateButton("Stopreportflash", 200, 392, 73, 33)
;$stopcompleteflash = GUICtrlCreateButton("Stopcompleteflash", 300, 392, 73, 33)
;===================================================================

GUISetState()

;GUISetState(@SW_SHOW)
_GUICtrlListView_AddColumn($hListView, "File Name", 0) ;disappear file name
_GUICtrlListView_AddColumn($hListView, "Test Case", 70)
_GUICtrlListView_AddColumn($hListView, "Product", 80)
_GUICtrlListView_AddColumn($hListView, "Serial", 90)
_GUICtrlListView_AddColumn($hListView, "BIOS", 40)
_GUICtrlListView_AddColumn($hListView, "BMC", 40)
_GUICtrlListView_AddColumn($hListView, "Count", 60)
_GUICtrlListView_AddColumn($hListView, "Status", 60)
_GUICtrlListView_AddColumn($hListView, "LOG err", 50)
_GUICtrlListView_AddColumn($hListView, "BMC err", 50)
_GUICtrlListView_AddColumn($hListView, "SDR err", 50)
_GUICtrlListView_AddColumn($hListView, "Sensor err", 65)
_GUICtrlListView_AddColumn($hListView, "BMC IP", 90)
_GUICtrlListView_AddColumn($hListView, "Tester", 50)
_GUICtrlListView_AddColumn($hListView, "Remind Time", 80)
_GUICtrlListView_AddColumn($hListView, "Upload Time", 120)
_GUICtrlListView_SetItemCount($hListView, 5000)

While 1
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") ;Double click value get

   Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
                     ExitLoop
Case $Button1
AdlibUnRegister('_add_complete_items')
_add_report_items()
AdlibRegister('_add_report_items', 5000);reflash every 10sec

Case $Button2
AdlibUnRegister('_add_report_items')
_add_complete_items()
AdlibRegister('_add_complete_items', 5000);reflash every 10sec

; Case $stopreportflash
; AdlibUnRegister('_add_report_items')

; Case $stopcompleteflash
; AdlibUnRegister('_add_complete_items')

Case $Button3
MsgBox(0,"123","456",0)

Case $PowerReset
Run("PowerReset.exe")

Case $SerialOverLan
Run("SOL.exe")

   EndSwitch

WEnd

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
Exit

Func _add_report_items()
;_GUICtrlListView_SetHoverTime($hListView,6000)
;MsgBox($MB_SYSTEMMODAL, "Information", "Hover Time (milliseconds): " & _GUICtrlListView_GetHoverTime($hListView))

FileChangeDir("\\192.8.1.1\fs1\1")

Local $path, $aFileList, $aNewList
$path = "\\192.8.1.1\fs1\1"

   $aFileList = _FileListToArray($path, "*.txt")

   If IsArray($aFileList) Then
            ReDim $aNewList ;;;
            For $i = 0 To UBound($aFileList) - 1 Step 1
   $aNewList = $i
                     ;$aNewList[$i] = $aFileList[$i]
                     $aNewList[$i] = FileReadLine($aFileList[$i], 1)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 2)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 3)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 4)
$aNewList[$i] = FileReadLine($aFileList[$i], 5)
$aNewList[$i] = FileReadLine($aFileList[$i], 6)
$aNewList[$i] = FileReadLine($aFileList[$i], 7)
$aNewList[$i] = FileReadLine($aFileList[$i], 8)
$aNewList[$i] = FileReadLine($aFileList[$i], 9)
$aNewList[$i] = FileReadLine($aFileList[$i], 10)
$aNewList[$i] = FileReadLine($aFileList[$i], 11)
$aNewList[$i] = FileReadLine($aFileList[$i], 12)
$aNewList[$i] = FileReadLine($aFileList[$i], 13)
$aNewList[$i] = FileReadLine($aFileList[$i], 14)
$aNewList[$i] = FileReadLine($aFileList[$i], 15)
;$change1=FileReadLine($aFileList[$i], 1)
Next

            _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView))
            _GUICtrlListView_AddArray($hListView, $aNewList)

EndIf
EndFunc

Func _add_complete_items()

FileChangeDir("\\192.8.1.1\fs1\2")

Local $path, $aFileList, $aNewList
$path = "\\192.8.1.1\fs1\2"

   $aFileList = _FileListToArray($path, "*.txt")

   If IsArray($aFileList) Then
            ReDim $aNewList ;;;
            For $i = 0 To UBound($aFileList) - 1 Step 1
   $aNewList = $i
                     ;$aNewList[$i] = $aFileList[$i]
                     $aNewList[$i] = FileReadLine($aFileList[$i], 1)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 2)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 3)
                     $aNewList[$i] = FileReadLine($aFileList[$i], 4)
$aNewList[$i] = FileReadLine($aFileList[$i], 5)
$aNewList[$i] = FileReadLine($aFileList[$i], 6)
$aNewList[$i] = FileReadLine($aFileList[$i], 7)
$aNewList[$i] = FileReadLine($aFileList[$i], 8)
$aNewList[$i] = FileReadLine($aFileList[$i], 9)
$aNewList[$i] = FileReadLine($aFileList[$i], 10)
$aNewList[$i] = FileReadLine($aFileList[$i], 11)
$aNewList[$i] = FileReadLine($aFileList[$i], 12)
$aNewList[$i] = FileReadLine($aFileList[$i], 13)
$aNewList[$i] = FileReadLine($aFileList[$i], 14)
$aNewList[$i] = FileReadLine($aFileList[$i], 15)
            Next
            _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView))
            _GUICtrlListView_AddArray($hListView, $aNewList)

   EndIf
EndFunc

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo

$hWndListView = $hListView
If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)

$hWndListView = GUICtrlGetHandle($hListView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
   Case $hWndListView
Switch $iCode
   Case $NM_DBLCLK
               $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
               $Index= DllStructGetData($tInfo, "Index")
$DoubleClick = _GUICtrlListView_GetItemText($hListView, $Index,12)
;MsgBox(0, 'Connect SOL to BMC IP', _GUICtrlListView_GetItemText($hListView, $Index,12))
Run("cmd.exe")
sleep(500)
WinActivate("Administrator: C:\Windows\system32\cmd.exe")
sleep(500)
send("cd \TestStatusManagement\ipmitool_1.8.11\")
sleep(500)
Send("{ENTER}")
sleep(500)

Send("ipmitool.exe -I lanplus -H "&$DoubleClick&" -U admin -P admin sol deactivate")
sleep(500)
Send("{ENTER}")
sleep(500)

Send("ipmitool.exe -I lanplus -H "&$DoubleClick&" -U admin -P admin sol activate")
sleep(500)
Send("{ENTER}")

Case $LVN_ITEMCHANGED ; An item has changed
$tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
$Index= DllStructGetData($tInfo, "Index")
$DoubleClick = _GUICtrlListView_GetItemText($hListView, $Index,12)
_DebugPrint("$LVN_ITEMCHANGED" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                     "-->Code:" & @TAB & $iCode & @LF & _
                     "-->Test Case" & @TAB & DllStructGetData($hListView, "Test Case") & @LF & _
"-->SubItem:" & @TAB & DllStructGetData($hListView, "SubItem") & @LF & _
                     "-->NewState:" & @TAB & DllStructGetData($hListView, "NewState") & @LF & _
"-->OldState:" & @TAB & DllStructGetData($hListView, "OldState") & @LF & _
"-->Changed:" & @TAB & DllStructGetData($hListView, "Changed") & @LF & _
"-->ActionX:" & @TAB & DllStructGetData($hListView, "ActionX") & @LF & _
                     "-->ActionY:" & @TAB & DllStructGetData($hListView, "ActionY") & @LF & _
                     "-->Param:" & @TAB & DllStructGetData($hListView, "Param"))
MsgBox(0,"123",$hListView,0)

EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc

Func _DebugPrint($s_text, $line = @ScriptLineNumber)
      ConsoleWrite( _
                     "!===========================================================" & @LF & _
                     "+======================================================" & @LF & _
                     "-->Line(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
                     "+======================================================" & @LF)
;MsgBox(0,"123","456",0)
EndFunc

kk_lee69 发表于 2016-6-13 13:06:18

回复 10# ipmitool

#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

GUICreate('', 400, 400)
$ListView1 = GUICtrlCreateListView('1', 5, 5, 390, 280)
_GUICtrlListView_SetColumnWidth($ListView1, 0, 380)

$BUTTON1=GUICtrlCreateButton("點我改變值",100,350,100,20)
$BUTTON2=GUICtrlCreateButton("點我改變值",250,350,100,20)

;改變第幾筆資料
$IT=3

For $i = 1 To 10
   GUICtrlCreateListViewItem('?目 - ' & $i, $ListView1)
Next
GUISetState()
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

While 1
Switch GUIGetMsg()
   Case -3
         Exit

Case $BUTTON1

_GUICtrlListView_SetItemText($ListView1,$IT,"改變",0)
Case $BUTTON2

_GUICtrlListView_SetItemText($ListView1,$IT+3,"改變",0)

EndSwitch

WEnd

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
   $tNMTV = DllStructCreate($tagNMTVDISPINFO, $ilParam)
   $iCode = DllStructGetData($tNMTV, "Code")
   $iIndex = GUICtrlRead($ListView1)
   Switch $iCode
            Case $LVN_ITEMCHANGED

$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
$iIndex = DllStructGetData($tInfo, "Index")
$iSub = DllStructGetData($tInfo, "SubItem")

MsgBox(0,"項目改變","第 "&$iIndex&" 的"&$iSub&" 子項發生變化" )

   EndSwitch
   $tNMTV = 0
EndFunc ;==>WM_NOTIFY

kk_lee69 发表于 2016-6-13 13:43:47

回复 1# ipmitool

剛剛再仔細的看了一下你的程式覺得邏輯有點怪??

首先你是用每隔五秒搜尋所有的文字檔案然後轉換成陣列然後秀在 LISTVIEW 上面

那請問所謂的所謂的每10分鐘檢查一次沒有更新成不一樣的是跟誰比呢??

8點的時候讀取了第一次的資料8點 05秒的時候讀取的第二次的資料 8點10秒的時候讀取了第三次的資料

8點10分檢查的時候是跟 8點5秒的資料比還是跟 8點10秒的資料比呢???

chzj589 发表于 2016-6-13 14:26:05

回复 1# ipmitool

让ListView的第5格, 每10分钟內检查一次值, "沒有更新"成不一样的值就回报
我的想法：
1：读取ListView的第5格，将值写入X.ini
2：过10分钟检查一次值，再次读取ListView的第5格的值。
3：读取X.ini与再次读取ListView的第5格的值比对。
4：比对如是不同值，写入X.ini。比对是相同就不写入X.ini。

ipmitool 发表于 2016-6-13 14:36:03

8點10秒檢查的時候是跟 listview 倒數第二次做比較, 可能要有個地方暫時存放倒數第二次的資料...

kk_lee69 发表于 2016-6-13 14:36:36

回复 13# chzj589
除非他的邏輯是 10分鐘的檢查與 5秒的更新是分開的

不然照理說五秒的時候得更新前一個五秒的狀態值才對

也就是每五秒應該寫入 INI 檔那 10分鐘後的檢查會變得沒意義因為他永遠只能跟前五秒的值相比

页: [1] 2 3

AUTOIT CN's Archiver

[已解決]如何讓每一欄的第5格, 每10分鐘檢查一次值, 沒有更新成不一樣的值就回報錯誤?