Beiträge von Alina

  • METATAG-MAKER

    Moin.

    Wer's braucht kann's haben ;)

    Wie so ein Teil arbeitet findet man wirklich alles im Netz. Nur ob man es braucht, das ist eine andere Frage. War so aus SPASS an der FREUDE ist der "METATAG-MAKER" entstanden, nach dem der "INI-Maker" und "Registry-Maker" ein Anfangsprojekt war um sich mit INI & Registry etwas besser zu vertragen ;)

    So, viel SPASS beim testen und DANKE an das Forum für die geleistete Hilfe !!!

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $Form1_1 = GUICreate("METATAG-MAKER V 1.0", 811, 684, 205, 122)
    GUISetBkColor(0xD8E4F8)
    $Input1 = GUICtrlCreateInput("..:: Hier den Seitentitel eintragen ::..", 128, 72, 673, 21)
    GUICtrlSetLimit(-1, 200)
    $Input2 = GUICtrlCreateInput("Hier die Seitenbeschreibung in Kurzform eintragen", 128, 104, 673, 21)
    GUICtrlSetLimit(-1, 170)
    $Input4 = GUICtrlCreateInput("Hier die ausführliche Seitenbeschreibung.", 128, 136, 673, 21)
    GUICtrlSetLimit(-1, 170)
    $Input3 = GUICtrlCreateInput("Hier die ersten KEYWORDS eintragen.", 128, 168, 673, 21)
    GUICtrlSetLimit(-1, 250)
    $Input5 = GUICtrlCreateInput("Hier die weiteren KEYWORDS eintragen.", 128, 200, 673, 21)
    GUICtrlSetLimit(-1, 200)
    $Input6 = GUICtrlCreateInput("Hier eintragen, wann erneut die Seite angesteuert werden soll.", 128, 232, 673, 21)
    GUICtrlSetLimit(-1, 3)
    $start = GUICtrlCreateButton("In die Zwischenablage und unten ins Feld einfügen", 8, 264, 793, 33, 0)
    $Edit1 = GUICtrlCreateEdit("", 8, 384, 793, 289)
    GUICtrlSetData(-1, StringFormat("<TITLE>..:: Seitentitel ::..</TITLE>\r\n<META HTTP-EQUIV="&Chr(34)&"Content-Type"&Chr(34)&" CONTENT="&Chr(34)&"text/html; charset=iso-8859-1"&Chr(34)&">\r\n\r\n<META NAME="&Chr(34)&"Title"&Chr(34)&" CONTENT="&Chr(34)&"Kurzbeschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Description"&Chr(34)&" CONTENT="&Chr(34)&"Beschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Keywords"&Chr(34)&" CONTENT="&Chr(34)&"1Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Abstract"&Chr(34)&" CONTENT="&Chr(34)&"2Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Revisit-After"&Chr(34)&" CONTENT="&Chr(34)&"Tage days"&Chr(34)&">\r\n\r\n<meta name="&Chr(34)&"distribution"&Chr(34)&" content="&Chr(34)&"global"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Robots"&Chr(34)&" CONTENT="&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Language"&Chr(34)&" CONTENT="&Chr(34)&"deutsch, de"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"pragma"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"cache-control"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-topic"&Chr(34)&" Content="&Chr(34)&"Familie,AutoIt,Forum"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-type"&Chr(34)&" Content="&Chr(34)&"Information,Bild,Foto"&Chr(34)&">\r\n<Meta name = "&Chr(34)&"Robots"&Chr(34)&" content = "&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">"))
    $speichern = GUICtrlCreateButton("Speichern", 8, 304, 249, 33, 0)
    $neustart = GUICtrlCreateButton("Neustart", 280, 304, 249, 33, 0)
    $exit = GUICtrlCreateButton("Exit ", 552, 304, 249, 33, 0)
    $Label6 = GUICtrlCreateLabel("Einfach die folgenden Zeilen Code kopieren und zwischen <HEAD> und </HEAD> in Ihrem HTML-Dokument einfügen.", 32, 360, 745, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0x0000FF)
    $Label4 = GUICtrlCreateLabel(" METATAGS GENERATOR ", 184, 8, 427, 40)
    GUICtrlSetFont(-1, 24, 800, 6, "Arial")
    GUICtrlSetColor(-1, 0x0000FF)
    $Label1 = GUICtrlCreateLabel("Seitentitel", 8, 72, 62, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("Seitenbeschreibung", 8, 104, 118, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("Keywords 1", 8, 168, 72, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label5 = GUICtrlCreateLabel("Seitenbeschreibung", 8, 136, 118, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label7 = GUICtrlCreateLabel("Keywords 2", 8, 200, 72, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label8 = GUICtrlCreateLabel("Tage", 8, 232, 32, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label9 = GUICtrlCreateLabel("Die Eingabefelder sind auf die maximal zulässige Länge begrenzt.", 208, 48, 384, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $exit
    Exit

    Case $start
    ;die Input Felder auslesen
    $text = Guictrlread($input1); & @CRLF & Guictrlread($input2) & @CRLF & Guictrlread($input3)
    $2text = Guictrlread($input2)
    $3text = Guictrlread($input3)
    $4text = Guictrlread($input4)
    $5text = Guictrlread($input5)
    $6text = Guictrlread($input6)

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

    ; die Änderungen in Edit1
    $etext = StringReplace(GUICtrlRead($Edit1), "Seitentitel", $text)

    $etext = StringReplace($etext, "Kurzbeschreibung", $2text)

    $etext = StringReplace($etext, "1. Keywords", $3text)

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

    $etext = StringReplace($etext, "Beschreibung", $4text)

    $etext = StringReplace($etext, "2. Keywords", $5text)

    $etext = StringReplace($etext, "Tage", $6text)

    GuictrlsetData($Edit1,$etext)
    ClipPut($etext)

    ; Hier der Neustart und die Inputfelder wieder zurück setzen
    Case $neustart
    GuiCtrlSetData($Input1, "..:: Hier den Seitentitel eintragen ::..")
    GuiCtrlSetData($Input2, "Hier die Seitenbeschreibung in Kurzform eintragen.")
    GuiCtrlSetData($Input3, "Hier die ersten KEYWORDS eintragen.")
    GuiCtrlSetData($Input4, "Hier die ausführliche Seitenbeschreibung.")
    GuiCtrlSetData($Input5, "Hier die weiteren KEYWORDS eintragen.")
    GuiCtrlSetData($Input6, "Hier eintragen, wann erneut die Seite angesteuert werden soll.")
    GUICtrlSetData($Edit1, StringFormat("<TITLE>..:: Seitentitel ::..</TITLE>\r\n<META HTTP-EQUIV="&Chr(34)&"Content-Type"&Chr(34)&" CONTENT="&Chr(34)&"text/html; charset=iso-8859-1"&Chr(34)&">\r\n\r\n<META NAME="&Chr(34)&"Title"&Chr(34)&" CONTENT="&Chr(34)&"Kurzbeschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Description"&Chr(34)&" CONTENT="&Chr(34)&"Beschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Keywords"&Chr(34)&" CONTENT="&Chr(34)&"1Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Abstract"&Chr(34)&" CONTENT="&Chr(34)&"2Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Revisit-After"&Chr(34)&" CONTENT="&Chr(34)&"Tage days"&Chr(34)&">\r\n\r\n<meta name="&Chr(34)&"distribution"&Chr(34)&" content="&Chr(34)&"global"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Robots"&Chr(34)&" CONTENT="&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Language"&Chr(34)&" CONTENT="&Chr(34)&"deutsch, de"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"pragma"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"cache-control"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-topic"&Chr(34)&" Content="&Chr(34)&"Familie,AutoIt,Forum"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-type"&Chr(34)&" Content="&Chr(34)&"Information,Bild,Foto"&Chr(34)&">\r\n<Meta name = "&Chr(34)&"Robots"&Chr(34)&" content = "&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">"))

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

    ; Daten speichern aus dem großen Feld (Edit1)
    Case $speichern
    $szSaveFile = FileSaveDialog( "Bitte Dateiname und Speicherort eingeben.", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Textdatei (*.txt)", 2)
    If Not @error Then
    If StringRight($szSaveFile,4) <> ".txt" Then $szSaveFile &= ".txt"
    $hFile = FileOpen($szSaveFile,2)
    FileWrite($hFile, Guictrlread($Edit1))
    FileClose($hFile)
    EndIf

    EndSwitch
    WEnd

    [/autoit]

  • Konica Minolta Dimage A200

    Moin zusammen.

    Habe mir damals (Dez. 2005) die "Dimage A200" gekauft und habe ein Problem.

    Ich habe eine Auflösung von 3.264 x 2.448 Pixel eingestellt, aber das umstellen via Softwaremenue auf kleinere Auflösungen geht nicht mehr. Garantie ist abgelaufen und so weiß ich nicht, wo ich die "Dimage A200" zur Reparatur geben kann. Hat jemand eine Idee? In Flensburg wollen die 450,- für die Reparatur haben, aber das ist es mir nicht wert. Nur die Fotos sind so groß, das ich sie nicht verwenden kann, außer ich bringe jedes mal die "Dimage A200 Microdrive-Card" zum Fotographen, der entwickelt die Bidler und dann müßte ich sie einscannen, so das ich mir einen Scanner holen muss. Die USB-Übertragung verkleinert die Bidler ja auch nicht automatisch und bei der Auflösung, ist schnell mal eine CD/DVD voll.

    Wäre dankbar für jede Hilfe.

    L I N A

  • Vierter Geburtstag

    Moin Moin zusammen.

    Erst möchte ich sagen "ALLES GUTE ZU DEN ERSTEN 4 JAHREN" !!!!

    Sicherlich folgen weitere 4 x 4 Jahre und viele davon mehr.

    Ich fühle mich, wie bereits andere geschrieben haben hier echt wohl. Derzeitig bin ich zwar privat etwas eingeschränkt, aber hier ist eine liebevolle und sehr nette Gemeinschaft.

    Wie ich zu AutoIt gekommen bin? Nun, da gab es mal "Batch", aber das hat mich nicht an mein erhofftes Ziel gebracht. Also "Google" genutzt und nach lesen zahlreicher Beiträge und Seiten bin ich dann hier gelandet und ein Abflug ist nicht in Sicht.

    Also ich wünsche mir, das alles so bleibt und das die "Bot-Kid's" hier nie ein Zuhause finden werden.

    LG, Lina.

  • ... - Es muss alles ganz klar kommuniziert werden!

    Christmas Managing
    --------------------------------------------------------------------------------
    ... - Es muss alles ganz klar kommuniziert werden!
    CEO (Christmas-Event-Organizer): Dr. J. Christus v. Bethlehem

    Status: Wie Weihnachten 2008 im Internet gezeigt hat, heißt Weihnachten nicht mehr Weihnachten, sondern X-mas, also muss der Weihnachtsmann auch X-man sein!
    Da X-mas 2009 quasi schon vor der Tür steht, ist es spätestens ab November höchste Zeit mit der Weihnachtsvorbereitung zu beginnen; Verzeihung- das diesjährige Weihnachts-Roll-Out zu starten und die Christmas-Mailing-Aktion just in Time vorzubereiten.

    Hinweis: Die Kick-Off-Veranstaltung (früher 1. Advent) für die diesjährige
    SANCROS (SANta Claus Road Show) findet bereits am 01.Dezember 2009 statt. Daher wurde das offizielle Come-Together des Organizing Committees unter Vorsitz des
    CIO (Christmas Illumination Officer) schon am 6. Januar 2009 abgehalten.

    Erstmals haben wir ein Projektstatus-Meeting vorgeschaltet, bei dem eine in Workshops entwickelte To-Do-Liste und einheitliche Job-Descriptions erstellt wurden. Dadurch sollen klare Verantwortungsbereiche, eine powervolle Performance des Kundenevents und optimierte Geschenk Allocations geschaffen werden, was wiederum den Service Level erhöht und außerdem hilft, X-mas als Brandname global zu implementieren.

    Dieses Meeting diente zugleich dazu, mit dem Co-Head Global Christmas Markets
    (Knecht Ruprecht) die Ablauf-Organisation abzustimmen, die Geschenk-Distribution an die zuständigen PrivateSchenking Centers sicherzustellen und die Zielgruppen klar zu definieren. Erstmals sollen auch so genannte Geschenk-Units über das Internet angeboten werden. Die
    Service-Provider (Engel, Elfen und Rentiere) wurden bereits via Conference Call virtuell informiert und die Core-Competences vergeben. Ein Bündel von Incentives und ein separater Team-Building-Event an geeigneter Location sollen den Motivationslevel erhöhen und gleichzeitig helfen, eine einheitliche Corporate Culture samt Identity zu entwickeln.

    Der Vorschlag, jedem Engel einen Coach zur Seite zu stellen, wurde aus Budgetgründen zunächst gecancelt. Statt dessen wurde auf einer zusätzlichen Client Management Conference beschlossen, in einem Testmarkt als Pilotprojekt eine Hotline (0,69 EUR/Minute Region) für kurzfristige
    Weihnachtswünsche einzurichten, um den Added Value für die Beschenkten zu erhöhen.

    Durch ein ausgeklügeltes Management Information System (MIST) ist auch Benchmark-orientiertes Controlling für jedes Private-Schenking-Center möglich. Nachdem ein neues Literatur-Konzept und das Layout-Format von externen Consultants
    (Osterhasen Associates) definiert wurde, konnte auch schon das diesjährige Goldene Buch (Golden Bock Release 2009.1) erstellt werden. Es erscheint als Flyer, ergänzt um ein Leaflet und einen Newsletter für das laufende Updating.

    Hochauflagige Lowcost-Giveaways dienen zudem als Teaser und flankierende
    Marketingmaßnahme. Ferner wurde durch intensives Brain Storming ein Konsens über das Mission-Statement gefunden. Es lautet "Let's keep the candles burning" und ersetzt das bisherige. "Frohe Weihnachten". X-man (formerly known as Santa Claus) hatte zwar anfangs Bedenken angesichts des Corporate-Redesigns, akzeptierte aber letztlich den progressiven Consulting-Ansatz und würdigte das Know-how seiner Investor-Relation-Manager.

  • Datum vergleichen

    Hallo zusammen.

    Also wenn ich Datum ./. Datum habe, dann arbeite ich immer mit folgendem Script bzw. mit deren Funktionen.
    Der Entwickler nennt es liebevoll "alinadatum", wie im Script zu lesen.

    Das Script macht aus 01.01.2010 dann 021001 (021 ist das Jahr ; 001 der erste Tag in dem Jahr). So bekommt der letzte Tag in diesem Jahr die Nummer 020365 und der darauffolgende Tag (Neujahr 2010) hat ja die 021001.

    Also wenn die Zahl größer ist als die aktuelle, ist es die Zukunft, ist sie gleich ist es der gleiche Tag und sonst die Vergangenheit.

    Verrückte Art ein Datum zu schreiben, aber sinnvoll.

    Wer das Script geschrieben hat, kann ich beim besten "Willen" gar nicht mehr sagen. Oute Dich, wenn Du es warst. ;)

    Spoiler anzeigen
    [autoit]


    #include<Date.au3>
    #include<ButtonConstants.au3>
    #include<GUIConstantsEx.au3>
    Dim $pathINI = @ScriptDir & "\daten.INI"
    GUICreate("Datum Eingabe", 200, 120, 100, 45, -1, 0x00000018)
    $lastRealDate = GUICtrlCreateLabel('', 90, 7, 80, 17)
    $lastNr = GUICtrlCreateLabel('', 10, 30, 60, 17)
    $lastDate = GUICtrlCreateLabel('', 90, 30, 60, 17)
    $aktNr = GUICtrlCreateLabel('', 10, 63, 60, 17)
    $file = GUICtrlCreateInput ( "", 90, 60, 80, 20)
    $ok = GUICtrlCreateButton ("OK", 70, 90, 60, 21);, $BS_DEFPUSHBUTTON)

    If FileExists($pathINI) Then
    $val = IniReadSection($pathINI, "dat")
    $lfdnr = $val[$val[0][0]][0]
    GUICtrlSetData($lastRealDate, _REalinaDatum($val[$val[0][0]][1]))
    GUICtrlSetData($lastNr, $lfdnr)
    GUICtrlSetData($lastDate, $val[$val[0][0]][1])
    GUICtrlSetData($aktNr, StringRight('0000' & $lfdnr+1,5))
    Else
    $lfdnr = 0
    GUICtrlSetData($aktNr, '00001')
    EndIf
    GUISetState ()

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    Select
    Case $msg = $ok
    $date = GUICtrlRead($file)
    If $date <> '' Then
    $lfdnr += 1
    $val = StringSplit($date, '.')
    $d = StringRight('0' & $val[1],2)
    $m = StringRight('0' & $val[2],2)
    If $val[3] > 30 Then
    $y = StringRight(19 & $val[3], 4)
    Else
    $y = StringRight(20 & $val[3], 4)
    EndIf
    $date2write = StringRight('00000' & _alinaDatum($y, $m, $d),6)
    If IniWrite($pathINI, "dat" , _
    StringRight('0000' & $lfdnr,5), $date2write) <> 1 Then
    GUICtrlSetData($file, 'FEHLER')
    Else
    GUICtrlSetData($file, '')
    GUICtrlSetData($lastRealDate, _REalinaDatum($date2write))
    GUICtrlSetData($lastNr, StringRight('0000' & $lfdnr,5))
    GUICtrlSetData($lastDate, $date2write)
    GUICtrlSetData($aktNr, StringRight('0000' & $lfdnr+1,5))
    EndIf
    EndIf
    EndSelect
    Wend

    Func _alinaDatum($year, $month, $day)
    Return StringFormat('%0.3d', $year - 1989) & StringFormat('%0.3d', _dayOfyear($year, $month, $day)) ; (1989 statt 1950 startet dann bei 01.01.1989)
    EndFunc ;==>_alinaDatum

    Func _dayOfyear($year, $month, $day)
    Return _DateDiff('d', $year & '/01/01', $year & '/' & $month & '/' & $day) + 1
    EndFunc ;==>_dayOfyear

    Func _REalinaDatum($DATUM)
    Local $yyyy = StringLeft($DATUM, 3) + 1989 ; (1989 statt 1950 startet dann bei 01.01.1989)
    Local $date = _DateAdd('d', Number(StringRight($DATUM, 3))-1, $yyyy & '/01/01')
    Return StringRight($date,2) & '.' & StringMid($date,6,2) & '.' & StringLeft($date,4)
    EndFunc

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

  • µit Light zur WM 2010

    Hallo.

    Die Aufgabe in der "µit Light zur WM 2010" ist folgendes:

    Erstelle eine Programm, mit dem man die Ergebnisse der Spiele der WM 2010 dokumentieren kann und lokal Spielwetten (nicht gewerblich sondern aus SPASS) eingeben und auswerten kann.

    Den Spielplan, wie ich ihn gefunden habe folgt gleich auf Bidlern.

    Wer mehr rein bringen möchte, zum Beispiel die Zeiter der Übertragung oder wann das Spiel anfängt, ist jedem User selber überlassen.

    Zu bedenken gibt es besonders auch "Verlängerung" und evtl. mal das eine oder andere "11-Meter-Ende".

    Ich bin gespannt, wer mit macht und wer in der Jury sitzen möchte.

    Jury-Anfragen via PN.

    Scripte hier posten und die Passwörter via PN bitte an mich.

    EINSENDESCHLUSS: 31.03.2010 (einschließlich)

    MÖGE DIE/DER BESTE/R GEWINNEN !!!

    LG, Lina.

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Geburtstag von peethebee und funkey

    [color=#ff0000]Herzlichen Glückwunsch und Euch jeweils ein gesundes und erfolgreiches neues Lebensjahr.

    Hoffe mal das Ihr beide neue Schuhe bekommen habt, denn die sollen ja in der Nacht zum 6. Dezember bekanntlich irgendwie gefüllt werden. LOL

    L I N A & P I A color]

  • Ausgabe in eine TXT

    Moin-Moin.

    Ich habe folgenden Script:

    Spoiler anzeigen
    [autoit]


    $x = FileOpenDialog("Select a file.", @DesktopDir, "Text Files (*.txt)", 3)
    $String = "Deutschland"

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

    $Var = _FileFindString($x, $String)
    For $xx = 0 To 2
    MsgBox(0, "", $Var[$xx])
    Next

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

    Func _FileFindString($sPath, $sString)
    Local $_Found
    Local $_LineNumber
    Local $_TimesFound = 0
    Local $_Return[3]

    $_FileOpen = FileOpen($sPath, 0)
    $_FileRead = FileRead($_FileOpen)
    $_Split = StringSplit($_FileRead, Chr(10))

    For $_i = 1 To $_Split[0]
    $_FileReadLine = FileReadLine($_FileOpen, $_i)
    If StringInStr($_FileReadLine, $sString) Then
    $_Found &= $_FileReadLine & @CRLF
    $_LineNumber &= $_i & @CRLF
    $_TimesFound += 1
    EndIf
    Next

    If $_Found <> "" Then
    $_Return[0] = $_LineNumber
    $_Return[1] = $_TimesFound
    $_Return[2] = $_Found
    FileClose($_FileOpen)
    Return $_Return
    Else
    FileClose($_FileOpen)
    Return 0
    EndIf
    EndFunc

    [/autoit]

    Wie bekomme ich den $_Return[2] (letzte angezeigte MsgBox) in eine Textdatei gespeichert.

    Das Problem wird wohl auch werden, das die Textdatei selber, in der gesucht und die Daten rausgeschrieben werden sollen, schon 3,8 MB groß ist. Aber da werde ich ggf. viele kleine Dateien draus machen.

    Danke für die lieben AW's und eine ruhige Nacht.

    LG, Lina.