Func Fehler

Hey,

kann mal jemand kurz drüber schauen kann leider den Fehler nicht finden.

eine fehlermeldung gibt es leider nicht, die funktion läuft nicht durch ???

Func checkall()
_GUICtrlListView_DeleteAllItems($ListView2)

local $icount = _GUICtrlListView_GetItemCount($ListViewhost)
for $i = 0 to $icount -1
$ListViewText = _GUICtrlListView_GetItemTextArray($ListViewhost)
if @error then Return
Ping($ListViewText[1], 100) ; Host anpingen
If Not @error Then
$TSUSER = RunWait(@ComSpec & " /c " & @ScriptDir & '\query.exe user /server:' & $ListViewText[1] & " >" & @ScriptDir & '\' & $ListViewText[1] & ".log", "", @SW_HIDE)
ConsoleWrite(@ScriptDir & '\query.exe user /server:' & $ListViewText[1] & " >" & @ScriptDir & '\' & $ListViewText[1] & ".log")

_FileReadToArray(@ScriptDir & '\' & $ListViewText[1] & ".log", $aIn)
For $i = 1 To $aIn[0]
$aIn[$i] = StringReplace(StringStripWs($aIn[$i],7)," ","|",5)
Next
;FileWriteFromArray("C:\serverts_out.txt",$aIn,2)
For $i = 2 To $aIn[0] ; bei Index 2 starten, dann ist die erste Zeile weg
$item1 = GUICtrlCreateListViewItem($ListViewText[1] & '|' & $aIn[$i], $listview2)
;$item1 = GUICtrlCreateListViewItem($aIn[$i], $listview2)

Next
EndIf
Next
EndFunc

Diese Funktion Funktioniert

Func check()

$ListViewText = _GUICtrlListView_GetItemTextArray($ListViewhost)
if @error then Return
Ping($ListViewText[1], 100) ; Host anpingen
If Not @error Then
$TSUSER = RunWait(@ComSpec & " /c " & @ScriptDir & '\query.exe user /server:' & $ListViewText[1] & " >" & @ScriptDir & '\' & $ListViewText[1] & ".log", "", @SW_HIDE)
ConsoleWrite(@ScriptDir & '\query.exe user /server:' & $ListViewText[1] & " >" & @ScriptDir & '\' & $ListViewText[1] & ".log")

_FileReadToArray(@ScriptDir & '\' & $ListViewText[1] & ".log", $aIn)
For $i = 1 To $aIn[0]
$aIn[$i] = StringReplace(StringStripWs($aIn[$i],7)," ","|",5)
Next
;FileWriteFromArray("C:\serverts_out.txt",$aIn,2)
For $i = 2 To $aIn[0] ; bei Index 2 starten, dann ist die erste Zeile weg
$item1 = GUICtrlCreateListViewItem($ListViewText[1] & '|' & $aIn[$i], $listview2)
;$item1 = GUICtrlCreateListViewItem($aIn[$i], $listview2)

Next
EndIf
EndFunc

Ich wollte mit der Checkall()
alle items Prüfen aber irgendwie kriege ich es diesmal nicht hin???

Danke
SubZero

Danke
SubZero

Hey,
dank oscar funktioniert jetzt mein Script teilweise
er verarbeitet jetzt nur das erste item hat jemand noch eine idee was ich falsch mache ??

Func checkall()
_GUICtrlListView_DeleteAllItems($ListView2)
Local $icount = _GUICtrlListView_GetItemCount($ListViewhost)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($ListViewhost, $i) ; <- ,$i sonst bekommst Du nur das aktuell selektierte Item
If $ListViewText[0] = 0 Then Return ; @error wird von _GUICtrlListView_GetItemTextArray() nicht gesetzt
Ping($ListViewText[1], 100) ; Host anpingen
If Not @error Then
$TSUSER = RunWait(@ComSpec & " /c " & @ScriptDir & '\query.exe user /server:' & $ListViewText[1] & " >" & @ScriptDir & '\' & $ListViewText[1] & ".log", "", @SW_HIDE)
ConsoleWrite(@ScriptDir & '\query.exe user /server:' & $ListViewText[1] & " >" & @ScriptDir & '\' & $ListViewText[1] & ".log")
_FileReadToArray(@ScriptDir & '\' & $ListViewText[1] & ".log", $aIn)
For $i = 1 To $aIn[0]
$aIn[$i] = StringReplace(StringStripWS($aIn[$i], 7), " ", "|", 5)
Next
;FileWriteFromArray("C:\serverts_out.txt",$aIn,2)
For $i = 2 To $aIn[0] ; bei Index 2 starten, dann ist die erste Zeile weg
$item1 = GUICtrlCreateListViewItem($ListViewText[1] & '|' & $aIn[$i], $ListView2)
;$item1 = GUICtrlCreateListViewItem($aIn[$i], $listview2)
Next
EndIf
Next
EndFunc

Danke
SubZero

Hey,

nach der änderung:

Ping($ListViewText[$i], 100) ; Host anpingen

stürtzt das script ab mit fehlermeldung:
Ping($ListViewText[$i], 100)
Ping(^ ERROR
???

Hey,
weil er die einträge in listview2 erzeugt die ich aus der listviewhost einlese eine idee?