array-ausgabe visualisieren?

  • hi!

    dank Raupi, kann ich jetzt die anzahl aller fenster die mit "A" enden bestimmen.

    [autoit]

    $i = 0
    Func _WinlistVisibleEx($Titel)
    Local $var = WinList()
    Local $aTemp[1][2]
    Local $iCount = 0
    For $i = 1 To $var[0][0]
    If $var[$i][0] <> "" And BitAND(WinGetState($var[$i][1]), 2) Then
    Local $temp = StringRight($var[$i][0], 1)
    If $temp = $Titel Then
    $iCount += 1
    ReDim $aTemp[UBound($aTemp) + 1][2]
    $aTemp[$iCount][0] = $var[$i][0]
    $aTemp[$iCount][1] = $var[$i][1]
    EndIf
    EndIf
    $aTemp[0][0] = UBound($aTemp) - 1
    Next
    Return $aTemp
    EndFunc ;==>_WinlistVisibleEx

    [/autoit][autoit][/autoit][autoit]

    $w1 = _WinlistVisibleEx("A") ;anzahl aller fenster die mit "A" enden
    $w2 = _WinlistVisibleEx("B") ;anzahl aller fenster die mit "B" enden
    ToolTip("Counter : " & ($w1[0][0] + $w2[0][0]), 0, 0)
    Sleep(2000)

    [/autoit]

    da mir die anzeige im tooltip aber viiiiel zu klein ist möchte ich das ganze viel größer anzeigen lassen. in den sinn kam mir den inhalt irgendwie mit einer if-abfrage und dann mit splash-images darstellen zu lassen... nur wie mache ich das? :)

    Einmal editiert, zuletzt von anna.assaoui (22. Mai 2010 um 04:06)

  • &quot;ungetestet&quot;
    [autoit]


    $i = 0
    Func _WinlistVisibleEx($Titel)
    Local $var = WinList()
    Local $aTemp[1][2]
    Local $iCount = 0
    For $i = 1 To $var[0][0]
    If $var[$i][0] <> "" And BitAND(WinGetState($var[$i][1]), 2) Then
    Local $temp = StringRight($var[$i][0], 1)
    If $temp = $Titel Then
    $iCount += 1
    ReDim $aTemp[UBound($aTemp) + 1][2]
    $aTemp[$iCount][0] = $var[$i][0]
    $aTemp[$iCount][1] = $var[$i][1]
    EndIf
    EndIf
    $aTemp[0][0] = UBound($aTemp) - 1
    Next
    Return $aTemp
    EndFunc ;==>_WinlistVisibleEx

    [/autoit] [autoit][/autoit] [autoit]

    $w1 = _WinlistVisibleEx("A") ;anzahl aller fenster die mit "A" enden
    $w2 = _WinlistVisibleEx("B") ;anzahl aller fenster die mit "B" enden

    [/autoit] [autoit][/autoit] [autoit]

    If IsArray($w1) Then
    Local $result = ""
    For $i = 1 To $w1[0][0]
    $result &= $w1[$i][0] & @CRLF
    Next
    If Not $result = "" Then
    SplashTextOn("", $result)
    Sleep(3000)
    SplashOff()
    EndIf
    EndIf

    [/autoit]
  • ich glaube das ist schond er richtige weg, nur werden mir jetzt die namen der entsprechenden fenster angezeigt. ich möchte aber die anzahl haben.

  • &quot;aha&quot;
    [autoit]

    $i = 0
    Func _WinlistVisibleEx($Titel)
    Local $var = WinList()
    Local $aTemp[1][2]
    Local $iCount = 0
    For $i = 1 To $var[0][0]
    If $var[$i][0] <> "" And BitAND(WinGetState($var[$i][1]), 2) Then
    Local $temp = StringRight($var[$i][0], 1)
    If $temp = $Titel Then
    $iCount += 1
    ReDim $aTemp[UBound($aTemp) + 1][2]
    $aTemp[$iCount][0] = $var[$i][0]
    $aTemp[$iCount][1] = $var[$i][1]
    EndIf
    EndIf
    $aTemp[0][0] = UBound($aTemp) - 1
    Next
    Return $aTemp
    EndFunc ;==>_WinlistVisibleEx

    [/autoit] [autoit][/autoit] [autoit]

    $w1 = _WinlistVisibleEx("A") ;anzahl aller fenster die mit "A" enden
    $w2 = _WinlistVisibleEx("B") ;anzahl aller fenster die mit "B" enden

    [/autoit] [autoit][/autoit] [autoit]

    SplashTextOn("", 'Fenster die auf "A" enden: ' & $w1[0][0] & @CRLF & 'Fenster die auf "B" enden: ' & $w2[0][0], "500", "100", "-1", "-1", 33, "", "", "")
    Sleep(3000)

    [/autoit] [autoit][/autoit] [autoit][/autoit]