2 kleine Frage

xShizoidx · 08/30/2011, 18:19

Guten Tag,

ich hätte da mal 2 kleine Fragen.

Frage 1 :

Ich möchte, dass mein Script alle Dateien ( z.B. alle txtdateien ) ausließt und sie mir zuerst als MsgBox wiedergibt. Es soll nur ein Test sein.
Jedoch bekomme ich es nur so hin, dass er es für diesen Ordner wiedergibt, wo sich mein Script befindet. Wie mache ich es, dass er es überall ausließt?

So mein Script aus :

HTML Code:

#include <File.au3>
$aFiles = _FileListToArray([COLOR="Red"]Hier vielt iwas Bestimmtes?[/COLOR],"*.txt",1) ; Txt Dateien in ein Array lesen
For $i = 1 To UBound($aFiles)-1
    MsgBox(64,"Test",$aFiles[$i])
Next

Frage 2 :

Wie kann ich den Text aus einer Txt. Datei als Befehl wiedergeben?

Also wenn z.B. in der Txt Datei ( start cmd.exe ) steht, dass er es dann macht?

Mein Versuch Script ;

HTML Code:

$read = FileRead ("Befehl.txt")

$read

Inhalt der Txt Datei :

HTML Code:

start cmd.exe

Wäre nett, wenn ihr mir weiterhelfen könntet

bollen · 08/30/2011, 18:49

mit der funktion sollte es klappen

Code:

Dim $Datei = "Die zu suchende Datei"
Dim $Ordner = Der Anfangsorder alle Unterordner werden untersucht 
MsgBox(0, '', _RecursiveFileSearch($Datei, $Ordner) );Ausgabe

;--------------------------------------------------------------------------------------------------
; Funktion        _RecursiveFileSearch($FILE, $SEARCHFOLDER)
;
; Beschreibung    Sucht nach vorgegebener Datei in einem Ordner rekursiv
;
; Parameter        $FILE:            zu suchende Datei
;                $SEARCHFOLDER:    Ordner für Suchstart
;
; Rückgabe        Erfolg:            Pfad der gesuchten Datei
;                                @error = 0
;                Fehler:            1-kein Dateiname / 2-kein Ordnername übergeben (3-beides); 4-Datei nicht vorhanden
;                                @error = 1
;
; Autor            BugFix ()
;--------------------------------------------------------------------------------------------------
Func _RecursiveFileSearch($FILE, $SEARCHFOLDER)
Global $PathFound = ""
Dim $Fehler = 0
    If $FILE = "" Then
        SetError(1)
        $Fehler += 1
    EndIf
    If $SEARCHFOLDER = "" Then
        SetError(1)
        $Fehler += 2
    EndIf
    If @error Then Return $Fehler
    $FSO = ObjCreate("Scripting.FileSystemObject")
    ShowSubfolders( $FSO.GetFolder($SEARCHFOLDER), $FILE )
    If $PathFound = "" Then
        SetError(1)
        $Fehler = 4
        Return $Fehler
    Else
        SetError(0)
    EndIf
    Return $PathFound
EndFunc
Func ShowSubFolders($Folder, $FILE)
    For $Subfolder in $Folder.SubFolders
        If FileExists($Subfolder.Path & "\" & $FILE) Then
            $PathFound = $Subfolder.Path & "\" & $FILE
            ExitLoop
        EndIf
        ShowSubFolders( $Subfolder, $FILE )
    Next
EndFunc
; ==>_RecursiveFileSearch

Diese Funktion ist nicht von mir sondern von BugFix

€: Um einen Befehl auszuführen gibt es viele methoden die einfachste währe warscheinlich die txt Datei in eine .bat umzunennen und sie dan auszuführen

BlackHybrid · 08/30/2011, 18:59

Frage 1:

PHP Code:


			
#include <File.au3>
#include <Array.au3>
$Array = _FileListToArray(@ScriptDir, "*")
_ArrayDisplay($Array)

Frage 2: Das ist meines Wissens nicht machbar.

bollen · 08/30/2011, 19:21

Quote:

Frage 1:

PHP-Code:
#include <File.au3>
#include <Array.au3>
$Array = _FileListToArray(@ScriptDir, "*")
_ArrayDisplay($Array)

Dabei werden Leider keine Unterordner durchsucht

Quote:

Frage 2: Das ist meines Wissens nicht machbar.

Quote:

Derjenige, der sagt: "Es geht nicht", soll den nicht stören, der's gerade tut

Es ist relativ einfach befehle aus einer .txt datei auszuführen solange man weis in welcher Sprache sie sind.
Wenn es Befehle sind wie diese "start cmd.exe"
kann man diese relativ leicht ausführen indem man sie in eine Batch Datei schreibt und diese dann ausführt oder sofort mit ShellExecute ausführt

Code:

$File=FileRead("TextFile.txt")
ShellExecute(@ComSpec ,$File  ,"")

€

ieses Beispiel ist natürlich nur bei einer linie in dem .txt file funktionsfähig

uragan · 08/30/2011, 19:33

wieso schreibt ihr im titel immer komische sachen rein, und nicht das was ihr wollt,
du tust nur die suche erschweren für leute die das selbe problem haben

ist zwar nicht zum thema passend, aber musste gesagt werden

BlackHybrid · 08/30/2011, 19:36

Achso ich dachte, dass AutoIt befehle gemeint, die in der txt stehen.

V8II · 08/30/2011, 21:35

Wenn es ein Autoit Befehl ist der in der Datei steht kannst du den ganz einfach mit execute ausführen.

BlackHybrid · 08/30/2011, 21:57

Lol

Eben als ichs getestet hab gings nicht

Ok geht doch :P

bollen · 08/30/2011, 22:20

autoit befehle müsste man erst einmal Compilen bevor man diese dan ausführen könnte was aber auch ohne große Probleme Geht solang man AutoIt installiert hat

BlackHybrid · 08/30/2011, 22:30

Nein stimmt nicht.
Schreib in eine .txt msgbox(1,"","") und ein script mit Execute(Fileread(*.*)) und du wirst eine msgbox sehen.

xShizoidx · 08/30/2011, 22:49

Erstmal danke für die schnellen Antworten.

Das mit Execute klappt , aber es klappt nur bei bestimmten Sachen. Ich möchte, dass wenn ich z.B. in eine Textdatei eine GUI erstelle und sie dann auslese, dass dann eine GUI angezeigt wird. Muss doch irgendwie realisierbar sein. ;/

Naja ich könnte :

Textdatei auslesen > ausgelesen wird als au3 Datei gespeichert > au3 Datei wird ausgeführt oder funzt das auch nur, wenn der Andere dann Autoit hat?

BlackHybrid · 08/30/2011, 23:11

Wüsste ich nicht, dass das geht und ja er müsste dann AutoIt haben.
Ber du könntest die Coordinaten etc ineiner txt speichern und beim Start die Sachen einsetzten.

xShizoidx · 08/30/2011, 23:18

Ja, aber ich hätte es gerne so, dass er es wie ein Autoit Script behandelt und es einfach ausführt > GUI erstellt oder was dort auch immer steht.

Ist es sonst irgendwie möglich , diesen Befehl auszulesen und den Befehl dann halbwegs zu ignorieren? Naja, kann ich nun blöd erklären , also so stelle ich mir dies vor :

1. Zeile wird ausgelesen ( $read ) > wenn z.B. MsgBox("Test","DiesisteinTest") , dann
2. MsgBox($read,$read) und ignorieren von MsgBox("","") , also dass er dann nur die Werte ausließt?

Ist sowas möglich, falls du verstehst, was ich meine? Das könnte ich dann niemlich so mit allen Befehlen machen.

Ansonsten könnte ich es ja auch so machen, dass er die erste Zeile ausließt und wenn dort eine 1 drinne steht, dann geht er in die 2 te Zeile und führt eine MsgBox mit den dort angegeben Werten aus. Das funktioniert schon mal, aber das ist irgendwie blöd :/

omer36 · 08/31/2011, 00:51

Quote:

Originally Posted by netterwurm8

Ja, aber ich hätte es gerne so, dass er es wie ein Autoit Script behandelt und es einfach ausführt > GUI erstellt oder was dort auch immer steht.

Ist es sonst irgendwie möglich , diesen Befehl auszulesen und den Befehl dann halbwegs zu ignorieren? Naja, kann ich nun blöd erklären , also so stelle ich mir dies vor :

1. Zeile wird ausgelesen ( $read ) > wenn z.B. MsgBox("Test","DiesisteinTest") , dann
2. MsgBox($read,$read) und ignorieren von MsgBox("","") , also dass er dann nur die Werte ausließt?

Ist sowas möglich, falls du verstehst, was ich meine? Das könnte ich dann niemlich so mit allen Befehlen machen.

Ansonsten könnte ich es ja auch so machen, dass er die erste Zeile ausließt und wenn dort eine 1 drinne steht, dann geht er in die 2 te Zeile und führt eine MsgBox mit den dort angegeben Werten aus. Das funktioniert schon mal, aber das ist irgendwie blöd :/

hat noch wer lauter "fragezichen" im kopf, nach lesen dieses textes?

Benhero · 08/31/2011, 20:16

Code:

#include <string.au3>

$read = "msgbox(0, 'Test 01', '''Test 02')"
$bw_1 = _StringBetween($read, "'", "',")
$bw_2 = _StringBetween($read, "'''", "')")

MsgBox(0, "", "Text1:" & $bw_1[0] & @CRLF & "Text2:" & $bw_2[0])

Besser habe ich es nicht hinbekommen

aber er meint es vermutlich so...

Mfg. Benhero