Beiträge von nuts

  • Textdatei nach einem String durschsuchen

    Spoiler anzeigen
    [autoit]

    Func _unkreativ($file, $ssearch)
    local $sreadline, $sret
    local $hfile=FileOpen($file, 0)
    While True
    $sreadline = FileReadLine($hFile)
    If @error Then ExitLoop
    if StringInStr($sreadline, $ssearch) then $sret &= '|'&$sreadline
    wend
    FileClose($hFile)
    return Stringsplit(StringtrimLeft($sret,1), "|")
    endfunc

    [/autoit]


    Sowas?

  • Script Schützen

    Wie schon auf Seite 1 gesagt wurde solltest du dir überlegen wie überhaupt vorgegangen werden soll.

    Mal Schritt für Schritt und ohne die Ideen gleich in Code zu verwandeln,

  • Fade Effekt Skript

    [autoit]


    Func WinGetTrans($sTitle, $sText = "")
    Local $hWnd = WinGetHandle($sTitle, $sText)
    If Not $hWnd Then Return -1
    Local $val = DllStructCreate("int")
    Local $aRet = DllCall("user32.dll", "int", "GetLayeredWindowAttributes", "hwnd", $hWnd, "ulong_ptr", 0, "int_ptr", DllStructGetPtr($val), "ulong_ptr", 0)
    If @error Or Not $aRet[0] Then Return -1
    Return DllStructGetData($val, 1)
    EndFunc

    [/autoit]


    So müsste es gehen.

    P.S. Ist nicht von mir sondern imho aus dem englischen Forum.

  • Ip-Liste zwischen zwei IPs

    Jetzt hats mich doch auch interessiert :rofl:

    Spoiler anzeigen
    [autoit]


    #include <array.au3>

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

    global $ip_1='192.168.100.1'
    global $ip_2='192.162.90.10'

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

    Global $aIP=_vergleicheIP($ip_1, $ip_2)
    ;_ArrayDisplay($aIP) ;debug

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

    $iarray=($aIP[0][1]-$aIP[0][0]+1) * ($aIP[1][1]-$aIP[1][0]+1) * ($aIP[2][1]-$aIP[2][0]+1) * ($aIP[3][1]-$aIP[3][0]+1)
    ;ConsoleWrite($iarray) ;debug

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

    global $array[$iarray]
    global $sIP
    Global $counter=0

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

    for $i=$aIP[0][0] to $aIP[0][1]

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

    for $j=$aIP[1][0] to $aIP[1][1]
    for $k=$aIP[2][0] to $aIP[2][1]

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

    for $l=$aIP[3][0] to $aIP[3][1]
    $sIP=$i & '.' & $j & '.' & $k & '.' & $l
    $array[$counter]=$sip
    ;ConsoleWrite($sip & @CRLF) ;debug
    $counter+=1
    next

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

    next

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

    next

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

    next

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

    _ArrayDisplay($array)

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

    Func _vergleicheIP($IP1, $IP2)
    local $aret[4][2]
    local $aIP1=StringSplit($IP1, '.')
    local $aIP2=StringSplit($IP2, '.')
    for $i=1 to $aIP1[0]
    if Number($aIP1[$i]) < Number($aIP2[$i]) then
    $aret[$i-1][0]=$aIP1[$i]
    $aret[$i-1][1]=$aIP2[$i]
    else
    $aret[$i-1][0]=$aIP2[$i]
    $aret[$i-1][1]=$aIP1[$i]
    endif
    next
    return $aret
    EndFunc

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


    edit \ So nochmal ohne Redim!

  • Ip-Liste zwischen zwei IPs

    Hm? Für die meisten die hier helfen ist das wahrscheinlich eher eine Fleißaufgabe ;)
    Von daher könntest du auch etwas an der Lösung mitwirken :!:

    Hier nochmal eine verbesserte Version, musst nurnoch das Array befüllen.

    Spoiler anzeigen
    [autoit]


    #include <array.au3>

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

    global $ip_1='192.168.100.1'
    global $ip_2='192.162.10.100'

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

    $aIP=_vergleicheIP($ip_1, $ip_2)
    _ArrayDisplay($aIP)

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

    dim $array[99999] ;die benötigte Größe lässt sich auch ausrechnen

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

    for $i=$aIP[0][0] to $aIP[0][1]

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

    for $j=$aIP[1][0] to $aIP[1][1]

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

    for $k=$aIP[2][0] to $aIP[2][1]

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

    for $l=$aIP[3][0] to $aIP[3][1]

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

    next

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

    next

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

    next

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

    next

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

    Func _vergleicheIP($IP1, $IP2)
    local $aret[4][2]
    local $aIP1=StringSplit($IP1, '.')
    local $aIP2=StringSplit($IP2, '.')
    for $i=1 to $aIP1[0]
    if $aIP1[$i] < $aIP2[$i] then
    $aret[$i-1][0]=$aIP1[$i]
    $aret[$i-1][1]=$aIP2[$i]
    else
    $aret[$i-1][0]=$aIP2[$i]
    $aret[$i-1][1]=$aIP1[$i]
    endif
    next
    return $aret
    EndFunc

    [/autoit]

  • Ip-Liste zwischen zwei IPs

    Ich verstehe deine IP-Range nicht so wirklich.
    Sonst wäre das kein Problem 8)

    edit \ So müsste das ca. gehen:

    Spoiler anzeigen
    [autoit]


    $block1_A=100
    $block1_B=101
    $block2_A=200
    $block2_B=202
    $block3_A=300
    $block3_B=303
    $block4_A=400
    $block4_B=404

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

    dim $array[99999] ;die benötigte Größe lässt sich auch ausrechnen

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

    for $i=$block1_A to $block1_B

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

    for $j=$block2_A to $block2_B

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

    for $k=$block3_A to $block3_B

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

    for $l=$block4_A to $block4_B

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

    next

    next

    next

    next

    [/autoit]


    In den Schleifen wird dann das Array befüllt davor muss man abfragen ob "Block_A < Block_B" und entsprechend reagieren.