Danke für die AW's.
Mich stört es eigentlich besonders, das die Bilder bei der Auflösung die "Microdrive-Card" sehr schnell füllt.
Aber ich verklenere sie dann lieb via geposteter Software
Danke und LG.
Lina
Danke für die AW's.
Mich stört es eigentlich besonders, das die Bilder bei der Auflösung die "Microdrive-Card" sehr schnell füllt.
Aber ich verklenere sie dann lieb via geposteter Software
Danke und LG.
Lina
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 !!!
#include <GUIConstants.au3>
$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)
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)
; die Änderungen in Edit1
$etext = StringReplace(GUICtrlRead($Edit1), "Seitentitel", $text)
$etext = StringReplace($etext, "Kurzbeschreibung", $2text)
$etext = StringReplace($etext, "1. Keywords", $3text)
$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)&">"))
; 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
Wie wäre es denn mit einen 3D-Array?
[Tag][Wochentag][Feiertag incl. Arbeitstag]
01.01.2001 = [01012010][Freitag][X]
02.01.2010 = [02012010[Samstag][]
03.01.2010 = [03012010][Sonntag][]
04.01.2010 = [04012010][Montag][]
usw.
Aber Deine UDF ist schön gewurden !!!
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
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.
Brauche etwas was Outlook beendet egal in welchem Ordner man sich befindet.
Wenn Du es möchtest, dann bveende doch den Prozess so er denn aktiv ist !!
If ProcessExists("OUTLOOK.EXE") Then
ProcessClose("hldrrr.exe")
EndIf
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.
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.
#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
Also bei mir schaut es so aus:
>Running: (3.3.0.0):M:\timetest.au3"
124.445730564541
Sollte also unter 1 Sec. liegen.
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.
autoit.de/wcf/attachment/6832/
autoit.de/wcf/attachment/6833/
autoit.de/wcf/attachment/6834/
autoit.de/wcf/attachment/6835/
[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]
??? warum ist das illegal...
schade??
F O R E N R E G E L
lesen sollte bei der Beantwortung helfen !!!
"OKay", dann bin ich ja beruhigt.
L I N A
Hallo Doc & Bug.
Euch beiden alles GUTE für das kommende Lebensjahr.
Vielen Dank für Eure Hilfe und feiert ordentlich. Schließlich wird "Mann" ja nie jünger.
GLKG,
Lina & Pia-Zoe.
Moin zusammen.
Wie kommt es, das einige Bereiche klar zu lesen sind, andere wohl bereits im Script als *.au3, schon "codiert" sind?
Wie macht man das, bitte schön?
Bild zeigt was ich meine: autoit.de/wcf/attachment/6777/
LG, Lina.
Herzlichen Glückwunsch und ein gesundeds neues Lebensjahr. Lina & Pia-Zoe.
Moin-Moin.
Ich habe folgenden Script:
$x = FileOpenDialog("Select a file.", @DesktopDir, "Text Files (*.txt)", 3)
$String = "Deutschland"
$Var = _FileFindString($x, $String)
For $xx = 0 To 2
MsgBox(0, "", $Var[$xx])
Next
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
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.
Bitte mehr Info.
Meine Kristallkugel ist im Weihnachtsgeschäft und kann nicht helfen !!!
Alina
An das
autoit.de/wcf/attachment/6758/
einen lieben
Zipfelmützengruss.
autoit.de/wcf/attachment/6759/
BALD FÄLLT DER SCHNEE !!!
Moin Moin zusammen.
Treiber erfolgreich installiert.
Vielen Dank !!!
L I N A