Beiträge von funkey

  • Denkfehler oder Logikproblem mit Array

    Hab da einen Denkfehler oder so!? Bin für jeden Rat dankbar.

    Spoiler anzeigen
    [autoit]

    Global $New = 0

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

    Global $a[5] = [0, 0, 0, 0, 0]
    Global $b[5]

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

    For $i = 0 To UBound($a) -1
    If $a[$i] <> $b[$i] Then $New +=1 ;funktioniert nicht ?
    Next
    ConsoleWrite($New & @CR) ;hier kommt 0 raus ?

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

    ;Ich will aber 5 erhalten, also mache ich es so:
    For $i = 0 To UBound($a) -1
    If $a[$i] <> $b[$i] Or $b[$i] = "" Then $New +=1 ;funktioniert (dachte ich zumindest!)
    Next
    ConsoleWrite($New & @CR) ;hier kommt 5 raus

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

    ;aber wenn ich das Array kopiere, dann sollte doch 0 herauskommen
    $b = $a ;kopiere das Array
    $New = 0; setz die Variable wieder auf 0

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

    For $i = 0 To UBound($a) -1
    If $a[$i] <> $b[$i] Or $b[$i] = "" Then $New +=1 ;warum geht das nicht ?
    Next
    ConsoleWrite($New & @CR) ;!!!!! hier kommt 5 raus ?????

    [/autoit]

    Edit: Hab den Denkfehler gefunden. Als String funktioniert es.

    [autoit]

    If 0 = "" Then MsgBox(0,"0","")
    If Int(0) = "" Then MsgBox(0,"Int","")
    If String(0) = "" Then MsgBox(0,"String","")

    [/autoit]

  • String herausfiltern

    So?

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <String.au3>
    #include <INet.au3>

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

    $URL = "http://www.gtainside.com/download.php?do=cat&id=116" ;Cars
    $sText = _INetGetSource($URL)

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

    $a = _StringBetween($sText, '<img src="gfx/dot.gif"> <a href="download.php?do=cat&id=', "</a>")
    For $i = 0 To UBound($a) - 1
    $a[$i] = StringReplace($a[$i], '">', ' - ')
    Next

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

    _ArrayDisplay($a)

    [/autoit]

  • [PHP] Liste von allen Autoitver.

    Ich weiß du willst PHP, aber hier mal was in Autoit, um die Versionen zu bekommen:

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    Local $File = @ScriptDir & "\Autoit_ChangeLog.txt"
    Local $URL = "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt"
    InetGet($URL, $File)
    $a = _ReadFileToArray($File, "3.")
    FileDelete($File)
    _ArrayDisplay($a)
    Func _ReadFileToArray($sFile, $sFilter)
    ;funkey 23.12.2009
    Local $line, $aFile
    Local $cmd = 'type "' & $sFile & '" | findstr /b "' & $sFilter & '"'
    Local $Pid = Run(@ComSpec & " /c " & $cmd, "", @SW_HIDE, 2)
    While 1
    $line &= StdoutRead($Pid, 0, 0)
    If @error Then ExitLoop
    WEnd
    $aFile = StringSplit($line, @CRLF, 3)
    ReDim $aFile[UBound($aFile) - 1]
    Return $aFile
    EndFunc ;==>_ReadFileToArray

    [/autoit]

  • URls bekommen

    Welche anderen alle?

    Hier für K-Meleon

    [autoit]

    $Url = ControlGetText("[Class:KMeleon Browser Window]", "", "Edit2")
    MsgBox(64, "URL", $Url)

    [/autoit]


    Edit: Für Iron-Portable

    [autoit]

    Opt("WinTitleMatchMode", 2)
    $Url = ControlGetText(" - Iron", "", "Chrome_AutocompleteEditView1")
    MsgBox(64, "URL", $Url)

    [/autoit]

  • Input transparent machen

    Das geht nicht wirklich gut. Hatte da mal so eine Bastellösung entworfen:


    Spoiler anzeigen
    [autoit]

    #cs **************************************************************************
    GUICtrlCreateInput - Transparenter Hintergrund / Hintergrundbild
    http://www.autoit.de/index.php?page…79946#post79946
    #ce **************************************************************************
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt('GUIOnEventMode', 1)
    GUICreate("Quasi-Transparentes Input-Control", 300, 300)
    GUISetOnEvent(-3, '_Ende')
    GUIRegisterMsg($WM_COMMAND, 'MY_WM_NOTIFY')
    Global $hInput = GUICtrlCreateInput('', 20, 20, 260, 20, 0x200)
    GUICtrlCreatePic(@DocumentsCommonDir&'\Eigene Bilder\Beispielbilder\Sonnenuntergang.jpg', 0, 0, 300, 300, 0)
    Global $hLabel = GUICtrlCreateLabel('', 20, 20, 260, 20, 0x200, 0x00000008)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    Global $hInput2 = GUICtrlCreateInput('', 20, 80, 260, 20, 0x200)
    GUISetState()
    While 1
    Sleep(10000)
    WEnd
    Func _Copy()
    GUICtrlSetData($hLabel, ' '&GUICtrlRead($hInput))
    EndFunc
    Func _Ende()
    Exit
    EndFunc
    Func MY_WM_NOTIFY($hWnd, $msg, $wParam, $lParam)
    Local $nID = BitAND($wParam, 0x0000FFFF)
    If $nID = $hInput Then _Copy()
    EndFunc

    [/autoit]

  • URls bekommen

    Beim IE gehts auch so, aber nur für das aktuelle Register.


    [autoit]

    Opt("WinTitleMatchMode", 2)
    $Url = ControlGetText("Internet Explorer", "", "Edit1")
    MsgBox(64, "URL", $Url)

    [/autoit]

  • 3 RadioButtons die mich zu weihnachten nerven

    Zum testen mal eine andere URL

    [autoit]

    #include <IE.au3>
    $oIE = _IECreate ("http://www.uwplatt.edu/web/wtc/jsforms/radioform.html?test=10")
    $oForm = _IEFormGetObjByName($oIE, "testForm")
    _IEFormElementRadioSelect($oForm, "10", "test")
    Sleep(1000)
    _IEFormElementRadioSelect($oForm, "20", "test")
    Sleep(1000)
    _IEFormElementRadioSelect($oForm, "30", "test")
    Sleep(1000)
    _IEFormElementRadioSelect($oForm, "40", "test")

    [/autoit]

  • .bin starten

    .bin-Dateien kann man nicht starten. Diese Dateien sind normalerweise nur Resourcen für eine Exe-Datei. Außer du hast irgendeine Anwendung damit verknüpft, dann funktioniert ShellExecute.


    Edit: Zu spät :(

  • DOS-Suchfunktionen

    Hab noch eine Funktion erstellt um schnell Ordner zu finden.

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>

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

    $a = _GetFolders("System")
    _ArrayDisplay($a)

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

    $a = _GetFolders("*32")
    _ArrayDisplay($a)

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

    $a = _GetFolders(@UserName)
    _ArrayDisplay($a)

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

    Func _GetFolders($SearchPath, $sStartPath = @HomeDrive)
    ;funkey 23.12.2009
    Local $line, $aFolder
    Local $cmd = 'dir /ad /b /s "' & $SearchPath & '"'
    Local $Pid = Run(@ComSpec & " /c " & $cmd, $sStartPath & "\", @SW_HIDE, 2)
    While 1
    $line &= StdoutRead($Pid, 0, 0)
    If @error Then ExitLoop
    WEnd
    $aFolder = StringSplit($line, @CRLF, 3)
    If $aFolder[0] = "" Then Return SetError(1, 0, "")
    ReDim $aFolder[UBound($aFolder) - 1]
    For $i = 0 To UBound($aFolder) - 1
    $aFolder[$i] = _OEMToAnsi($aFolder[$i])
    Next
    Return $aFolder
    EndFunc ;==>_GetFolders

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

    Func _OEMToAnsi($sOEM)
    Local $a_AnsiFName = DllCall('user32.dll', 'Int', 'OemToChar', 'str', $sOEM, 'str', '')
    If @error = 0 Then $sAnsi = $a_AnsiFName[2]
    Return $sAnsi
    EndFunc ;==>_OEMToAnsi

    [/autoit]