Ich möchte mal mein kleines Projekt vorstellen, den Vortragsgenerator.
Wie funktionierts?
Man gibt das Thema ein, z.B. "Otto Dix" und klickt auf generieren und schon ist der Vortrag fertig.
Probleme: Die Formatierung des Ausgabetextes ist sehr schlecht, es fehlen noch unzählige Stringreplacements und Absatzkorrekturen um den Text halbwegs lesbar zu machen. Am Design bestht och Verbesserungsbedarf, jedoch sollten keine Controls hinzugefügt werden, außer ein Menü mit dem man Speichern und drucken kann, aber im Vodergrund steht die Textformatierung, und das ist soviel Arbeit dass ich Hilfe brauche, deswegen als Projekt.
Wer mitmachen will, einfach hierhin schreiben!
Das Skript (StringRplace als eigene Funktion):
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <String.au3>
Global $tt[1000]
$oIE = _IECreateEmbedded()
$gui_1 = GUICreate("Vortragsgenerator", 785, 482, 242, 147)
$Input1 = GUICtrlCreateInput("Vortragsthema z.B.: Schwein, Otto Dix ...", 0, 0, 784, 21)
$Button1 = GUICtrlCreateButton("Vortrag generieren", 0, 20, 784, 23, 0)
$Group1 = GUICtrlCreateGroup("Vortrag:", 1, 43, 782, 437)
$Edit1 = GUICtrlCreateEdit("", 3, 59, 777, 419)
GUICtrlSetData(-1, "Edit1")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateObj($oIE, -150, -150, 0, 0)
GUISetState(@SW_SHOW)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
$name = GUICtrlRead($Input1)
_IENavigate($oIE, "http://www.de.wikipedia.org/wiki/"&$name)
_IELoadWait ($oIE)
stringrepl()
EndSelect
WEnd
Func stringrepl()
$sText = _IEBodyReadText ($oIE)
$tt[1] = StringReplace($sText,"aus Wikipedia, der freien Enzyklopädie", " ")
$tt[2] = StringReplace($tt[1],"Inhaltsverzeichnis [Verbergen]", ""&@CRLF)
$tt[3] = StringReplace($tt[2],"Von „http://de.", "")
$tt[4] = StringReplace($tt[3],".org/wiki/", "")
$tt[5] = StringReplace($tt[4],"Meine Werkzeuge", "")
$tt[6] = StringReplace($tt[5],"Anmelden / Benutzerkonto erstellen Namensräume", "")
$tt[7] = StringReplace($tt[6],"Artikel Diskussion VariantenAnsichten", "")
$tt[8] = StringReplace($tt[7],"Lesen Quelltext anzeigen Versionsgeschichte AktionenSuche", "")
$tt[9] = StringReplace($tt[8]," Navigation", "")
$tt[10] = StringReplace($tt[9],"Hauptseite Über Themenportale Von A bis Z Zufälliger Artikel Mitmachen", "")
$tt[11] = StringReplace($tt[10],"Hilfe Autorenportal Letzte Änderungen Kontakt Spenden Drucken/exportieren", "")
$tt[12] = StringReplace($tt[11],"Buch erstellenAls PDF herunterladenDruckversionWerkzeuge", "")
$tt[13] = StringReplace($tt[12],"Links auf diese Seite Änderungen an verlinkten Seiten Spezialseiten Permanenter Link Seite zitieren In anderen Sprachen", "")
$tt[14] = StringReplace($tt[13],"Acèh Afrikaans Aragonés Ænglisc ??????? ???? Asturianu Aymar aru Žemaiteška ?????????? ?????????? (???????????) ????????? ????? ??????? Brezhoneg Bosanski Català Corsu Nehiyawewin / ??????? Cesky Cymraeg Dansk ???????? Emiliàn e rumagnòl English Esperanto Español Eesti Euskara ????? Suomi Français Nordfriisk Gaeilge Gàidhlig Galego Gaelg ?????? Hak-kâ-fa ????? Hrvatski Kreyòl ayisyen Magyar Interlingua Bahasa Indonesia Iñupiak Ido Íslenska Italiano ??? Basa Jawa ??????? ??? Kurdî Latina Lumbaart Lietuviu Latviešu ?????? ????? ???? Bahasa Melayu ?????????? ?????? ???????? Plattdüütsch Nedersaksisch ?????? ????? ???? Nederlands ?Norsk (nynorsk)? ?Norsk (bokmål)? Diné bizaad Occitan Kapampangan Deitsch Pälzisch Polski ?????? Português Româna ??????? ???? ???? Sardu Sicilianu Srpskohrvatski / ?????????????? ????? Simple English Slovencina Slovenšcina Soomaaliga ?????? / Srpski Svenska Kiswahili ????? ?????? ?????? ??? Tagalog Türkçe chiTumbuka ?????????? ???? Vèneto Ti?ng Vi?t West-Vlams Walon Winaray Wolof ?? ??", "")
GUICtrlSetData($Edit1, $tt[14])
EndFunc
Danke im Voraus!
