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

chzj589 发表于 2016-6-13 14:42:09

回复 15# kk_lee69

你说得对，LZ应该在调试时就会发现。

kk_lee69 发表于 2016-6-13 14:43:44

回复 14# ipmitool

不懂可以說清楚點嗎??

8點10 秒要檢查甚麼是 8點10分吧8點10分檢查的時候跟LISTVIEW第二次做比較是指甚麼??

kk_lee69 发表于 2016-6-13 14:46:51

回复 16# chzj589

而且中間還有個問題

第一次值是 A
10分鐘內改成 B
10分鐘快到了又改回 A

然後一比對的結束是沒有變化~~~

kk_lee69 发表于 2016-6-13 14:49:20

回复 14# ipmitool

或者你應該直接說清楚你真正的目的是為了做甚麼.....說實際的應用在哪邊
也許有其他的思考方式

ipmitool 发表于 2016-6-13 15:09:08

呵呵, 沒錯, 是分開的, 大師們有甚麼辦法可以幫幫忙...

chzj589 发表于 2016-6-13 15:10:42

回复chzj589

而且中間還有個問題

第一次值是 A
10分鐘內改成 B
10分鐘快到了又改回 A

然 ...
kk_lee69 发表于 2016-6-13 14:46 http://www.autoitx.com/images/common/back.gif
第一次值是 A，写入X.ini
10分钟后读取$idListview第五栏的值，
然后是X.ini的值与10分钟后读取$idListview第五栏的值比对，
有不同值就写入X.ini。
等于每10分钟就循环一次。

kk_lee69 发表于 2016-6-13 15:47:46

本帖最后由 kk_lee69 于 2016-6-13 15:56 编辑

回复 20# ipmitool

好啦幫妳寫好了照你說的是分開的

#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
;#include <MsgBoxConstants.au3>

DIM $OldList="" , $NEWList=""

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秒刷新?据
;AdlibRegister('_Checkitems', 600000); 10 分檢查
AdlibRegister('_Checkitems', 10000); 10秒檢查
_Checkitems()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()

Func _add_lv_items()

   Local $path, $aFileList, $aNewList
   $path = @ScriptDir
   $aFileList = _FileListToArray($path, "*.txt")
_ArrayDelete($aFileList,0)
   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

Func _Checkitems()

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

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

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

            Next
         ; _ArrayDisplay($aNewList2)
   EndIf

If IsArray($OldList) Then
For $j=0 TO UBound($OldList)-1 STEP 1
IF $OldList[$j]=$aNewList2[$j] THEN MsgBox (0,"10分鐘檢查","10 分鐘到了第"&($j+1)&"筆資料沒有更新")

Next
$OldList=$aNewList2
Else
$OldList=$aNewList2
EndIf
EndFunc

ipmitool 发表于 2016-6-13 16:14:05

回复 19# kk_lee69

喔喔, 拍謝, 把你搞糊塗了, 我的目的是每10分鐘確認 listview 上面的東西有沒有變化,
有變化的話, 代表txt的檔案有在做更新(我有另一支程式在其他測試機台會一直丟檔案更新資料), 這時候寫一個 on-going 的字串到listview上面(且是針對那一筆 txt 的那一欄在 listview 寫下 on-going),
如果沒有再更新 txt 的話, 就代表在丟檔案的測試機台遇到問題, 所以我才想要10分鐘抓一次 txt 檔案有沒有更新,
另外每5秒更新是要給manager去看現在跑的狀態而已...因為同時有很多機器在做各個機台的txt更新.

kk_lee69 发表于 2016-6-13 16:18:52

回复 23# ipmitool

你自己看看你自己的東西明明 LISTVIEW 的東西就是來自於 TXT 檔案現在又說

有變化才更新 TXT 檔案請寫好範例人家才有辦法幫你，不然就只好請您自己多嘗試看看嚕

chzj589 发表于 2016-6-13 16:34:31

回复 23# ipmitool
是这样子吗？

ipmitool 发表于 2016-6-13 17:08:36

回复 22# kk_lee69

大哥, 別生氣, 快搞定了, 你剛剛給我的code是我想要的, 只是被我改一改, 第268行有error, 可以幫我看一下嗎, 謝謝妳拉~~#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)

DIM $OldList="" , $NEWList=""

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

AdlibRegister('_Checkitems', 10000); 10秒檢查
_Checkitems()

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 = GUICtrlGetHandle($hListView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
$Index = GUICtrlRead($hListView)

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}")

EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
$tNMHDR = 0
EndFunc

Func _Checkitems()

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

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

                     $aNewList2[$i] = $aFileList[$i]
                     $aNewList2[$i] = FileReadLine($aFileList[$i], 1)
                     $aNewList2[$i] = FileReadLine($aFileList[$i], 2)
                     $aNewList2[$i] = FileReadLine($aFileList[$i], 3)
                     $aNewList2[$i] = FileReadLine($aFileList[$i], 4)
$aNewList2[$i] = FileReadLine($aFileList[$i], 5)
$aNewList2[$i] = FileReadLine($aFileList[$i], 6)
$aNewList2[$i] = FileReadLine($aFileList[$i], 7)
$aNewList2[$i] = FileReadLine($aFileList[$i], 8)
$aNewList2[$i] = FileReadLine($aFileList[$i], 9)
$aNewList2[$i] = FileReadLine($aFileList[$i], 10)
$aNewList2[$i] = FileReadLine($aFileList[$i], 11)
$aNewList2[$i] = FileReadLine($aFileList[$i], 12)
$aNewList2[$i] = FileReadLine($aFileList[$i], 13)
$aNewList2[$i] = FileReadLine($aFileList[$i], 14)
$aNewList2[$i] = FileReadLine($aFileList[$i], 15)

            Next
         ; _ArrayDisplay($aNewList2)
   EndIf

            If IsArray($OldList) Then
                     For $j=0 TO UBound($OldList)-1 STEP 1
                           IF $OldList[$j]= $aNewList2[$j] Then
_GUICtrlListView_SetItemText($hListView,$Index,"Off-line",7)
Else
_GUICtrlListView_SetItemText($hListView,$Index,"On-line",7)
EndIf

                     Next
                     $OldList=$aNewList2
Else
                     $OldList=$aNewList2
            EndIf
EndFunc

kk_lee69 发表于 2016-6-13 17:12:51

回复 26# ipmitool

1. 怪事有錯誤應該提供錯誤訊息吧不然誰會知道錯誤在哪...........

2. 如果沒猜錯的話 $OldList 沒有宣告為全域變數的問題我給你的範例在最前面有宣告這個變數

ipmitool 发表于 2016-6-13 17:41:43

回复 27# kk_lee69

有阿, 我加在第45行, 這樣不行喔?

kk_lee69 发表于 2016-6-13 17:46:12

請提供錯誤訊息

ipmitool 发表于 2016-6-13 18:31:13

回复 29# kk_lee69

IF $OldList[$j]=$aNewList2[$j] THEN
IF ^ERROR

Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

页: 1 [2] 3

AUTOIT CN's Archiver