Beiträge von Joriktos

  • Speichern, Laden in Combobox..

    Ich würde das ganze etwas anders lösen:

    [autoit]


    Local $i = 1
    $aLines = StringSplit(FileRead(@ScriptDir & '\Datei.txt' ), @LF) ; Zeilenanzahl aus Datei ermitteln (Falls @LF nicht funktioniert, kannst du auch einmal @CR und @CRLF probieren, ich kenne den Unterschied leider selber nicht so genau. Kann mir das jemand erklären?)
    For $i = 1 To $aLines[0] ; Hochzählen von 1 bis zur Anzahl der Zeilen
    $sLine = FileReadLine("Datei.txt", $i) ; Aktuelle Zeile auslesen
    $aSplit = StringSplit($sLine, "|") ; Zeile bei jedem "|" splitten
    If IsArray($aSplit) And $aSplit[0] = 3 Then ; Wenn $aSplit ein Array ist und 3 Spalten hat:
    GUICtrlSetData($idCombo, $aSplit[1] & ":" & $aSplit[2], $i) ; Wert in ComboBox schreiben
    EndIf
    Next

    [/autoit]

    Damit hast du eine Zeile weniger und es läuft zuverlässiger (und evtl sogar schneller).
    Ist aber unformatiert und ungetestet, da ich es mit dem Smartphone getippt habe.

    Gruß
    Joriktos

    Edit: Habe es nun mit 4 Leerzeichen für ein Tabulatorzeichen formatiert.

  • Prozesse aus INI in einer MsgBox auflisten

    Sorry, hatte voll vergessen, das ganze fertig zu machen... :/
    Probier es mal so ;)

    [autoit]


    For $i = 1 To $aProcesses[0] ; Blockende Prozesse schließen
    $Instances = ProcessList($aProcesses[$i]) ; Einige Infos zum Prozess mit dem angegebenen Namen
    While $Instances[0][0] <> 0 ; Solange bis alle Instanzen geschlossen sind (Anzahl der Prozesse mit dem Namen <> 0
    ProcessClose($aProcesses[$i])
    $Instances = ProcessList($aProcesses[$i]) ; Neue Anzahl auslesen
    WEnd
    Next

    [/autoit]

    Leider wieder mit dem Handy, was heißt => keine Formatierung, nicht getestet.

    Edit: Habe es nun mit dem PC neu formatiert ;)

  • Unbeaufsichtige Installation der Software Photoshop

    Probiere es mal so:

    [autoit]


    _splash("PhotoShopCS5.1","installiere")
    DirCreate("c:\LDTemp\")

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

    $error = 0
    _splash_next("bitte warten")
    $error = RunWait('SWP_Adobe_PhotoShopCS5.1.exe /s /D "c:\LDTemp\"', "c:\LDTemp", @SW_HIDE)

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

    _splash_next("Installieren")
    $error = RunWait('c:\LDTemp\Setup.exe /UL1031 /V "SERIALNUMBER=xxxx-xxxx-xxxx-xxxx-xxxx-xxxx"', "c:\LDTemp", @SW_HIDE)
    _splash_next("fertig: " & $error)
    sleep(2000)
    DirRemove("c:\LDTemp",1)
    Exit $error

    [/autoit]

    Ich glaube du musst verschiedene Anführungszeichen verwenden, sonst gibt es Fehler mit den Parametern.

  • Zeile aus Array einem anderen Array hinzufügen

    [autoit]


    Local $i = 1
    Local $Array2[1] = [0]
    For $Zaehler = 0 To UBound($Array) -1
    If StringInString($Array[$Zaehler][1], "Test", 1) Then
    ReDim $Array2[$i + 1]
    $Array2[$i] = $Array[$Zaehler][1]
    $Array2[0] += 1
    $i +=1
    EndIf
    Next

    [/autoit]

    Hab's jetzt mit dem Handy getippt, deshalb ist keine Formatierung vorhanden und ich konnte es nicht testen.. aber sollte gehen :)

    So würde ich das lösen. Dann hast du auch noch in $Array2[0] die Anzahl der Übereinstimmungen vorhanden ;)


    P.S. Du kannst deinen Beitrag auch mit dem Bearbeiten-Button bearbeiten, du musst nicht nach 2 Stunden einen neuen Thread erstellen...

  • Random Frage!

    [autoit]


    $x = Random( 0 , 100)
    If $x < 80 Then
    ; case 0
    ElseIf $x >= 80 And $x <= 90 Then
    ; case 1
    ElseIf $x > 90 Then
    ; case 3
    EndIf
    ; case 2 fällt weg, da 0 Prozent

    [/autoit]

    So sollte es laufen. (Kann es nicht testen, bin mit dem Handy on)

  • StringInStr Funktioniert nicht richtig

    Zitat von BugFix

    Deine Überschrift ist Bullshit!

    Richtig wäre:
    Mein Versuch mit StringInStr zu arbeiten schlägt fehl - was mache ich falsch?

    Und um deine Fehler zu sehen, müßtest du uns schon wissen lassen, wie der Inhalt, den du verarbeiten willst, aussieht.

    Btw. - Um nur zu prüfen, ob StringInStr etwas findet bedarf es keinerlei Vergleichselement. Hängt mit der Vergleichsform von If (bool) und der Interpretation von Werten durch AutoIt (0=False, alles andere ist True) zusammen:

    [autoit]

    If StringInstr($string, $InStr) Then ; wahr

    [/autoit]

    Okay, danke, wusste ich noch nicht :) Man lernt jeden Tag was dazu...

  • StringInStr Funktioniert nicht richtig

    Danke, Andy :)
    Leider war ich zu faul um es selber zu testen, sonst hätte ich nicht angefangen an meinen Programmier-Künsten zu zweifeln.. Ich wusste doch, dass der Fehler nicht an meinem Code liegt, sondern daran, wie er ihn anwendet ;)

  • StringInStr Funktioniert nicht richtig

    [autoit]


    While True
    $File = FileOpen($ChatLog, 0)
    $LastLine = FileReadLine($File, -1) ; Ich habe noch ein -1 angehängt, da du ja laut des Variablen-Namens die letzte Zeile auslesen möchtest
    If StringInStr($LastLine, "Hi Stan") <> 0 Then ; Du brauchst hier ein "ungleich 0", da die Funktion die Position der "Fundstelle" zurück gibt, also nicht 0.
    Send("tHallo!")
    ; MsgBox(0, "TestBox", "Test, ob diese If-Abfrage wirklich aufgerufen wird")
    EndIf
    FileClose($File)
    WEnd

    [/autoit]

    Teste es mal so und am besten machst du dazu mal das Semikolon (;) in Zeile 6 weg, damit du siehst ob die If-Abfrage beachtet wird und nur dein Send() vielleicht nicht stimmt.

  • StringInStr Funktioniert nicht richtig

    [autoit]


    While True
    $File = FileOpen($ChatLog,0)
    $LastLine = FileReadLine($File)
    If StringInStr($LastLine,"Hi Stan") <> 0 Then ; Du brauchst hier ein "ungleich 0", da die Funktion die Position der "Fundstelle" zurück gibt, also nicht 0.
    Send("tHallo!")
    EndIf
    FileClose($File)WEnd

    [/autoit]