Beiträge von johny1099

  • CMD Ausgabe einlesen und weiter verarbeiten

    also ich habe folgendes versucht:

    [autoit]

    #include <Constants.au3>
    Local $foo = Run(@ComSpec &" /c bcdedit.exe", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    Local $line
    While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    ;MsgBox(0, "STDOUT gelesen:", $line)
    If StringInStr ($line, "systemroot") Then
    MsgBox (0,"",$line)
    EndIf
    WEnd

    [/autoit]


    Trotdem wird der komplette Inhalt von bcdedit ausgegeben und nicht die einzelne Zeile wo systemroot enthält
    Was mache ich falsch?

  • CMD Ausgabe einlesen und weiter verarbeiten

    doch in der MsgBox wird die gesamte Ausgabe angezeigt.


    [autoit]

    #include <Constants.au3>
    Local $foo = Run(@ComSpec &" /c bcdedit.exe", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    Local $line
    While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    MsgBox(0, "STDOUT gelesen:", $line)
    WEnd

    [/autoit]


    Aber wie kann ich nun die einzelnen Zeilen nach einem bestimmten String abfragen aus der MsgBox?

  • CMD Ausgabe einlesen und weiter verarbeiten

    Guten Morgen

    ich möchte den Befehl bcedit.exe mit folgendem Aufruf starten :

    Run(@ComSpec &" /c bcdedit.exe")


    Danach möchte ich die Ausgabe vom CMD Fenster auswerten können. (jede einzelne Zeile sollte nach einem bestimmten String durchsucht werden können. Ich habe bereits in der Hilfe nachgelesen und schon verschiedenes versucht mit STDOUTRead und STDERRRead. Aber leider funktioniert es nicht so wie ich das gerne hätte.

  • AutoIt Fehlermeldung: Error: Subscript used with non-Array variable

    Hallo zusammen

    ich bekomme folgende Fehlermeldung (MsgBox) wenn ich das Script ausführe:

    Line -1:

    Error: Subscript used with non-Array variable


    #include <file.au3>
    Dim $arr
    _FileReadToArray("C:\AutoIt\Adressen.txt",$arr)

    If $arr[1] <> "" Then ; hier soll geprüft werden ob überhaupt Adressen in der Datei stehen
    ;hier sollen weitere Aktionen ausgeführt werden .....
    EndIf


    In diesem Beispiel ist die Datei leer. Ich vermute deswegen kommt die Fehlermeldung. Kann ich mit einem anderen Befehl prüfen ob die Datei leer ist oder ob Adressen drin stehen?

  • Vierter Geburtstag

    Hallo zusammen

    ich bin zwar noch nicht lange hier im Forum aktiv, aber die Unterstützung ist wirklich genial. Ich bin wirklich begeistert von dieser Community. Bei dieser Gelegenheit möchte ich mich bei allen bedanken die hier tatkräftig die Userfragen im Forum kompetent,schnell und geduldig beantworten.

  • Adress Daten in Array einlesen und formatieren

    Hallo zusammen

    ich stehe vor folgender Herausforderung:

    Ich habe eine Adressdatei die folgendes Format hat:


    1;"müller";"Michael Müller";"Hauptstrasse 49";"80000";"München";
    2;"meier";"Thomas Meier";"Rheinweg 5";"60057";"Frankfurt";
    3;"schmidt";"Sabine Schmidt;"Fortranstrass 28";"10000";"Berlin";


    Nun habe ich mit der Funtion _FileReadtoArray die Daten in ein Array importiert und mit _ArrayDisplay anzeigen lassen.

    Mit welchem Befehl kann ich nun die Daten so formatieren das für jeweils eine Spalte für jeden Wert (Kd-Nr.,suchname,Vorname Name,Strasse,PlZ,Ort im Array Display angezeigt wird?

    Row Col0 (Kd-Nr) Col1 (suchname) Col2 (Vorname u. Name) usw.

    0 3

    1 1 müller Michael Müller

    2 2 meier Thomas Meier

    3 3 schmidt Sabine Schmidt


    Wenn ich momentan die Funktion _FileReadtoArray verwende wird es mit _ArrayDisplay folgendermassen angezeigt:

    [0]|3
    [1]|1;"müller";"Michael Müller";"Hauptstrasse 49";"80000";"München";
    [2]|2;"meier";"Thomas Meier";"Rheinweg 5";"60057";"Frankfurt";
    [3]|3;"schmidt";"Sabine Schmidt;"Fortranstrass 28";"10000";"Berlin";


    Ich hätte gerne für jeden Wert (Nr. suchname, Vorname Nam, Strasse usw) eine eigene Spalte. Ist das möglich?


    #include <array.au3>
    #include <file.au3>

    Dim $path_adressen = "C:\AutoIt\Adressen.txt"
    Dim $arr_adressen

    If not _FileReadToArray($path_adressen,$arr_adressen) Then
    MsgBox(0,"","Error opening specified file")
    EndIf
    _ArrayDisplay($arr_adressen,"Titel von Arraydisplay")

  • Aktion ausführen beim Anklicken von Listeintrag in einem Listfeld

    Hallo zusammen

    ich habe ein Formular erstellt indem ich meine Adressen in einem Listfeld (GUICtrlCreateList) anzeige.

    Ist es möglich wenn ich einen Eintrag in dem Listfeld markiere, dass automatisch eine Aktion ausgeführt wird, ohne dass ich zuerst auf einen Button klicken muss, welcher diese Aktion ausführt.

    Spoiler anzeigen

    #include <GuiListBox.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Dim $array_1,$suche_adressen,$string_logfile
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 625, 543, 350, 50)
    $lbl_top = GUICtrlCreateLabel("",-1,-1,625,100)
    GUICtrlSetBkColor(-1,0x000084)
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\autoit_240x100.jpg", 200, -1, 240, 100, BitOR($SS_NOTIFY,$WS_GROUP))
    $grp_group1 = GUICtrlCreateGroup("Adresse:",5,110,500,50)
    $input_input1 = GUICtrlCreateInput("",10,130,490,20)
    $grp_group2 = GUICtrlCreateGroup("Liste der Adressen",5,160,500,200)
    $list_list1 = GUICtrlCreateList("",10,180,490,175)
    $grp_group3 = GUICtrlCreateGroup("Log Information",5,365,500,150)
    $edit_edit1 = GUICtrlCreateEdit("",10,380,490,130)
    $button_suche = GUICtrlCreateButton("Adresse suchen",520,120,100,30)
    $button_listadressen = GUICtrlCreateButton("Adressen anzeigen",520,170,100,30)

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button_suche
    GUICtrlSetData($list_list1,"")
    GUICtrlSetData($edit_edit1,"")
    $suche_adressen = GUICtrlRead($input_input1)
    _FileReadToArray(@ScriptDir & "\Adressen.txt",$array_1)
    For $i = 1 to UBound($array_1) -1
    If StringInStr($array_1[$i],$suche_adressen) Then
    GUICtrlSetData($list_list1,$array_1[$i])
    $string_logfile &= @HOUR & ":" & @MIN & ":" & @SEC & " " & $array_1[$i] & @CRLF
    GUICtrlSetData($edit_edit1,$string_logfile)
    EndIf
    Next
    Case $button_listadressen
    GUICtrlSetData($list_list1,"")
    _FileReadToArray(@ScriptDir & "\Adressen.txt",$array_1)
    For $i = 1 To UBound ($array_1) - 1
    _GUICtrlListBox_AddString ($list_list1, $array_1 [$i])
    Next
    EndSwitch
    WEnd