Benutzer:Sk-Bot
aus Wikipedia, der freien Enzyklopädie
Sk-Bot ist ein halbautomatischer Bot der einfache Aufgaben übernimmt und vom Benutzer:Stefan Kühn betrieben wird.
Er ist eigentlich ein AutoIt-Script (www.hiddensoft.com). Mit Autoit kann man ziemlich fix Skripte für Windows schreiben.
Da der Sk-Bot auf Mediawiki als Bot angemeldet wurde, werden jetzt seine Änderungen nicht mehr auf der Seite "Letzte Änderungen" angezeigt.
Inhaltsverzeichnis |
[Bearbeiten] Aufgaben
[Bearbeiten] Primäre Aufgaben
- vollautomatisch Personenartikel in Kategorie:Mann oder Kategorie:Frau einsortieren
- Unterstützung der manuellen Kategorisierung von Personenartikeln
- in Kategorie:Mann oder Kategorie:Frau wenn Artikeltext zu wenig Hinweise gibt
- in die passenden Nationalitäten-Kategorien (z.B. Kategorie:Pole oder Kategorie:Finne) einsortieren
- in die passenden Tätigkeits-Kategorien (z.B. Kategorie:Botaniker oder Kategorie:Schachspieler)
- vollautomatisch in die Kategorien:Geboren bzw. Gestorben einsortieren
- vollautomatisch in die Kategorie:Person einsortiert, falls keine Nationalitäten- oder Tätigkeits-Kategorie gesetzt sind (Diese Artikel müssen dann von Hand feiner kategorisiert werden.)
- vollautomatische Ergänzung der korrekten Namenssortierung bei den Kategorien, falls notwendig und möglich (Kat:Frau --> Kat:Frau|Mustermann, Erika)
[Bearbeiten] Sekundäre Aufgaben
Nur wenn ein Artikel wegen der Abarbeitung einer primären Aufgabe bearbeitet wird, dann werden auch gleich einige Kleinigkeiten bereinigt. Zu diesen sekundären Aufgaben gehören:
- die Korrektur der Syntax
- die Korrektur häufiger Tippfehler und Plenks
- das Anheben des Überschriftenlevel falls die höchste Level nicht "==" ist
- das Umwandeln der Überschrift "Webseiten", "Externe Verweise" etc. in das übliche "Weblinks"
- das Entfernen überflüssige Leerzeichen z.B. bei [[Kategorie: XYZ]]
[Bearbeiten] Protokoll
Weiterhin erstellt der Sk-Bot ein Abarbeitungsprotokoll des aktuellen Durchgangs und gibt Hinweise für manuelles Nacharbeiten oder neue Bot-Durchläufe. Dazu werden Artikel vermerkt, die eines der folgende Probleme beinhalten:
- verdächtige Datumsformatierung (09.09.2003 statt 9. September 2003)
- HTML-Befehlen
- Eigenlinks
- Überschrift Weblinks fehlt, obwohl ein "http" im Text
- Überschrift Literatur nach der Überschrift Weblinks
- Sortierung der Kategorien, Personendaten und Interwikilinks nicht korrekt
- keinen Einleitungsatz (Start mit einer Überschrift)
- kein Wort fett gedruckt
- falsche Überschriftschreibweise durch Fettdruck z.B. '''Weblinks'''
[Bearbeiten] Funktionsweise
Der Sk-Bot arbeitet eine Artikelliste der Reihe nach ab, indem er die Artikel ansurft und diese ergänzt bzw. korrigiert. Bei komplexen Aufgabestellungen hält er an und fragt über Dialogboxen nach der richtigen Vorgehensweise. So kann er z.B. bei sehr kurzen Artikeln mit wenig Text nicht automatisch daraus schließen, ob es sich um eine Mann oder Frau handelt. Durch diese Halbautomatik ist der Sk-Bot sehr robust und bekommt auch schwierige Fälle ganz gut hin.
Grundsätzlich könnten so viele Probleme gelöst werden, aber derzeit werden nur Personenartikel bearbeitet.
08-15-Bot | ABFbot | ArchivBot | BierBot | Bilderbot | BLUbot | Forrester-Bot | Harrobot | HDBot | KatBot | LinkFA-Bot | LugPaj-Bot | PixelBot | QS-Bot | RevoBot | RKBot | Sebbot | SpBot | Zwobot
Bots, die nur oder überwiegend Interwiki-Links bearbeiten:
.anacondabot | Alexbot | AlleborgoBot | AlnoktaBOT | BetBot | BotMultichill | Chlewbot | Chobot | DorganBot | Escarbot | Eskimbot | FANSTARbot | FlaBot | Gerakibot | Gpvosbot | Harrobot | JAnDbot | KocjoBot | Kyle the bot | Loveless | LeonardoRob0t | Purbo T |Rei-bot | Robbot | RoboServien | RobotQuistnix | SashatoBot | SieBot | Slobot | .snoopybot. | Superzerocool | Synthebot | Thijs!bot | VolkovBot
[Bearbeiten] Quellcode
[Bearbeiten] Neuer Quellcode
Das Skript ist inzwischen sehr groß geworden und ich habe einige Bestandteile ausgelagert. Deshalb veröffentliche ich es nicht mehr hier. Aber jeder der es haben möchte kann sich bei mir per Mail melden, dann schicke ich es ihm gerne zu.
[Bearbeiten] Alter Quellcode
Hier ist der Quellcode (Stand 6. Januar 2005 ) falls jemand da was draus weiter entwickeln möchte. Oder selber eine Aufgabe erledigen möchte.
Funktioniert mit Mozilla Firefox 0.9, da dort die Suche in Editfenster besser genutzt werden kann, als bei späteren Versionen mit neuerer Suchfunktion. Pfadangaben müssen evt. angepasst werden, die Größe und Position der Fenster von Notepad und Firefox sind auf meinen Laptop angepasst. Neben dem Skript braucht man noch die "Namensliste.txt" mit den Artikelnamen die bearbeitet werden sollen.
Ausschnitt aus der Datei Namensliste.txt
Dániel_Berzsenyi E._P._Sanders Earl_Granville Earl_Grey Earl_Hooker
Achtung! Wer das Skript kopieren möchte sollte in den Bearbeitungsmodus umschalten und sich den Quellcode dort herauskopieren. Die Software Mediawiki interpretiert einige Passagen des Quelltext und stellt sie nicht 100% korrekt dar (HTML-Entities)
;Diese Skript ergänzt die Kategorie Mann und Frau und durchsucht gleichzeitig noch nach Rechtschreib- und Tippfehlern. ;GLOBALE VARIABLEN Dim $Abarbeitungsliste ;Liste die abgearbeitet wird Dim $Handarbeitsliste ;Liste der Artikel die nicht automatisch korrigiert werden konnten Dim $Artikel ;Name des Artikels Dim $Fenster ;Name des aktuellen Fensters Dim $text ;Inhalt des Artikels Dim $eingabe ;Inhalt der Eingabe Dim $Veraenderung ;Merker für Veränderungen Dim $Veraenderungstext ;Text für die Zusammenfassungszeile Dim $Namenssortierung ;Enthält die korrekte Namenssortierung Dim $Kat_plus ; ;SCHALTER Dim $Automatik ;Sollen nur Artikel automatisch korregiert werden? Ja=1 Nein=0 Dim $LangsamesInternet ;Lan=0 Modem=1 Dim $LangsameWikipedia ;Lan=0 Modem=1 Dim $Mann_und_Frau_testen ;Vorschläge=1 Keine Vorschläge=0 Dim $nur_Protokoll ;Nur Protokoll=1 Einträge in der Wikipedia speichern=0 Dim $Kat_Person_rein ;Sollen bei Artikeln ohne Kategorie eine Personenkat rein? ;Ja=1 Nein=0 $Automatik = 0 $LangsamesInternet = 1 $LangsameWikipedia = 1 $Mann_und_Frau_testen = 1 $nur_Protokoll = 0 $Kat_Person_rein = 1 $Mann_Frau_Kriterium = 5 ;DATEIEN UND ORDNER $Dateienpfad ="D:\Wikipedia\Autoit\" $Abarbeitungsliste ="Namensliste.txt" $Handarbeitsliste ="Namensliste_Handarbeit.txt" $Mozilla ="C:\Programme\Mozilla Firefox\firefox.exe" $Seitebearbeiten=" bearbeiten - Wikipedia - Mozilla Firefox" ;$Seitebearbeiten=" - Seite bearbeiten - Wikipedia - Mozilla Firefox" ;FENSTERMODUS AutoItSetOption("WinTitleMatchMode", 2) ;BROWSERFENSTER ÖFFNEN Run($Mozilla &" " &"http://www.wikipedia.de/wiki/Hauptseite") $Fenster=" - Wikipedia - Mozilla Firefox" WinWaitActive($Fenster) WinMove($Fenster,"", 0, 0,1100,1000 ) ;ABARBEITUNGSLISTE ÖFFNEN Run("Notepad.exe "& $Dateienpfad & $Abarbeitungsliste) WinWaitActive("Editor") WinWaitActive($Abarbeitungsliste & " - Editor") WinMove($Abarbeitungsliste & " - Editor", "", 1100, 0, 300, 500) ;PROTOKOLLLISTE ÖFFNEN Run("Notepad.exe "$Dateienpfad & & $Handarbeitsliste) WinWaitActive("Editor") WinWaitActive($Handarbeitsliste & " - Editor") WinMove($Handarbeitsliste & " - Editor", "", 1100, 500, 300, 400) ;ABARBEITUNGSSCHLEIFE BEGINNT $Artikel = "" Artikelname_holen() Do Artikel_aufrufen() Artikeltext_holen() if $text="" then Protokoll("Kein Inhalt " & $Artikel) else Redirectpruefen() Rechtschreibkorrektur() Kategorie_Mann_oder_Frau() ;Kategorie_untereinander() Hinweis_auf_HTML_Code() Hinweis_auf_schlechte_Ueberschriften() Datumskorrektur() Speichern() endif ;ABGEARBEITETEN ARTIKEL AUS DER LISTE ENTFERNEN $Artikel = "" $Fenster=$Abarbeitungsliste & " - Editor" WinActivate ($Fenster) WinWaitActive ($Fenster) Send("{DEL}{DEL}") $Artikel = "" Artikelname_holen() Until $Artikel = "" MsgBox(0,"Fertig!","Der Bot ist mir Abarbeitungsliste durch oder hat wegen einer Leerzeile gestoppt!") Exit Func Artikelname_holen() ;HOLT DEN ARTIKELNAME AUS DEM NOTEPAD-FENSTER DER ABARBEITUNGSLISTE $Fenster=$Abarbeitungsliste & " - Editor" WinActivate ($Fenster) WinWaitActive($Fenster) Send("+{END}") WinWaitActive($Fenster) ClipPut ("") Send("^c") WinWaitActive($Fenster) $Artikel = ClipGet() $Artikel = StringReplace($Artikel, " ", "_") WinWaitActive($Fenster) $Veraenderung=0 $Veraenderungstext="" $Namenssortierung="" EndFunc Func Artikel_aufrufen() ;RUFT DEN ARTIKEL IM MOZILLA AUF, PROBLEM DER SONDERZEICHEN (NICHT ALLE) DURCH KURZES WARTEN BEHOBEN $Fenster= " - Wikipedia - Mozilla Firefox" WinActivate($Fenster) WinWaitActive($Fenster) Send("^l") $sonderzeichen=1 $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "(") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, ")") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "á") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "Á") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "à") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ä") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "Ä") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ã") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "å") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "æ") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ç") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "é") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "É") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "è") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ê") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ë") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "í") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ñ") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ó") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ò") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ô") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ö") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "Ö") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "õ") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ø") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ß") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ú") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "ü") $sonderzeichen= $sonderzeichen + StringInStr($Artikel, "Ü") if $sonderzeichen=0 then ClipPut ( "http://www.wikipedia.de/w/wiki.phtml?title=" & $Artikel &"&action=edit" ) Send("^v") Send("{ENTER}") $Artikel = StringReplace($Artikel, "_", " ") ;$Fenster=$Artikel & $Seitebearbeiten $Fenster= $Seitebearbeiten WinWaitActive($Fenster) else ClipPut ("http://www.wikipedia.de/wiki/" & $Artikel ) Send("^v") Send("{ENTER}") $Artikel = StringReplace($Artikel, "_", " ") $Fenster=$Artikel &" - Wikipedia - Mozilla Firefox" if $LangsameWikipedia=1 then sleep(30000) WinWaitActive($Fenster) WinActivate($Fenster) WinWaitActive($Fenster) sleep(2000) if $LangsameWikipedia=1 then sleep(30000) WinActivate($Fenster) WinWaitActive($Fenster) Send("!e") $Artikel = StringReplace($Artikel, " ", "_") endif EndFunc Func Artikeltext_holen() ;HOLT IM EDITIERFENSTER VON WIKIPEDIA DEN QUELLTEXT $Fenster=$Seitebearbeiten WinWaitActive($Fenster) MouseMove(640, 560) WinWaitActive($Fenster) ;NUR BEI LANGSAMEN INTERNETVERBINDUNGEN if $LangsamesInternet=1 then sleep(2000) MouseClick("left") WinWaitActive($Fenster) Send("^a") WinWaitActive($Fenster) ClipPut ("") Send("^c") WinWaitActive($Fenster) $text=ClipGet() WinWaitActive($Fenster) EndFunc Func Redirectpruefen() ;ÜBERPRÜFEN OB REDIRECT UND WEITERLEITEN ZUM NEUEN ARTIKELNAMEN ;DA ES IN DER WIKIPEDIA KEINE DOPPELTEN REDIRECTS GEBEN SOLL; $redirect =0 $redirect = StringInStr($text, "#redirect") $redirect = StringInStr($text, "#REDIRECT") $redirect = StringInStr($text, "#Redirect") if $redirect > 0 then $redirect = StringInStr ( $text, "[[") $redirect2= StringInStr ( $text, "]]") $redirect2=$redirect2-$redirect-2 $Artikel=StringMid ( $text, $redirect+2,$redirect2) $Artikel = StringReplace($Artikel, " ", "_") Artikel_aufrufen() Artikeltext_holen() endif EndFunc Func Kategorie_Mann_oder_Frau() ;ÜBERPRÜFEN OB KATEGORIE:MANN ODER KATEGORIE:FRAU SCHON VORHANDEN, GEGEBENENFALLS VERSUCHEN ZU SETZEN $result=0 $result= $result + StringInStr ( $text, "Kategorie:Adelsgeschlecht") $result= $result + StringInStr ( $text, "Kategorie:Adelstitel") $result= $result + StringInStr ( $text, "Kategorie:Band") $result= $result + StringInStr ( $text, "Kategorie:Beruf") $result= $result + StringInStr ( $text, "Kategorie:Biblische Person altes Testament") $result= $result + StringInStr ( $text, "Kategorie:Biblische Person neues Testament") $result= $result + StringInStr ( $text, "Kategorie:Biblische Person") $result= $result + StringInStr ( $text, "Kategorie:Comicfigur") $result= $result + StringInStr ( $text, "Kategorie:Computerspiel-Charaktere") $result= $result + StringInStr ( $text, "Kategorie:Familie") $result= $result + StringInStr ( $text, "Kategorie:Fiktive Person") $result= $result + StringInStr ( $text, "Kategorie:Frau") $result= $result + StringInStr ( $text, "Kategorie:Gottheit") $result= $result + StringInStr ( $text, "Kategorie:Griechische Mythologie") $result= $result + StringInStr ( $text, "Kategorie:Intersexueller") $result= $result + StringInStr ( $text, "Kategorie:Liste") $result= $result + StringInStr ( $text, "Kategorie:Literarische Figur") $result= $result + StringInStr ( $text, "Kategorie:Literarisches Werk") $result= $result + StringInStr ( $text, "Kategorie:Mann") $result= $result + StringInStr ( $text, "Kategorie:Männlicher Vorname") $result= $result + StringInStr ( $text, "Kategorie:Peerage") $result= $result + StringInStr ( $text, "Kategorie:Personengruppe") $result= $result + StringInStr ( $text, "Kategorie:Römische Mythologie") $result= $result + StringInStr ( $text, "Kategorie:Unternehmen") $result= $result + StringInStr ( $text, "Kategorie:Weiblicher Vorname") $result= $result + StringInStr ( $text, "Kategorie:Oper") $result= $result + StringInStr ( $text, "{{Begriffsklärung}}") if StringInStr ( $text, "{{Begriffsklärung}}")>0 then Protokoll("Begriffsklärung: " & $Artikel) if $result=0 then ;WENN ES EINE PERSON AUS FLEISCH UND BLUT IST DANN Kategorie_Mann_oder_Frau_setzen() Personen_Feinkategorisierung() Personensortierung() endif EndFunc Func Kategorie_Mann_oder_Frau_setzen() ;IST ES EIN MANN ODER EINE FRAU? $Manntest=0 $Manntest=$Manntest + Wortanzahl(" ihm ") $Manntest=$Manntest + Wortanzahl(" er ") $Manntest=$Manntest + Wortanzahl(" sein ") $Manntest=$Manntest + Wortanzahl(" seine ") $Manntest=$Manntest + Wortanzahl(" seiner ") $Manntest=$Manntest + Wortanzahl(" seinem ") $Manntest=$Manntest + Wortanzahl(" seinen ") $Frautest=0 $Frautest=$Frautest + Wortanzahl(" ihr ") $Frautest=$Frautest + Wortanzahl(" sie ") $Frautest=$Frautest + Wortanzahl(" ihre ") $Frautest=$Frautest + Wortanzahl(" ihrer ") $Frautest=$Frautest + Wortanzahl(" ihrem ") $Frautest=$Frautest + Wortanzahl(" ihren ") $hinweis="Mann " & $Manntest & " : " & $Frautest & " Frau" if $Manntest-$Mann_Frau_Kriterium>$Frautest then $hinweis="Mann" if $Frautest-$Mann_Frau_Kriterium>$Manntest then $hinweis="Frau" ;SUCHEN NACH DER ERSTE KATEGORIE IM ARTIKELTEXT $erste_kat_position =0 $erste_kat_position = StringInStr($text, "[[Kategorie:") if $erste_kat_position = 0 then $result = StringInStr($text, "[[Kategorie ") if $erste_kat_position = 0 then if $Kat_Person_rein= 0 then Protokoll("Keine Kategorie gefunden in: " & $Artikel) Return else ;KEINE KATEGORIE DA --> KATEGORIE:PERSON EINSETZEN $erste_kat="[[Kategorie:Person]]" endif else ;NAME DER ERSTEN VORHANDENEN KATEGORIE ERMITTELN $i=$erste_kat_position Do $i = $i + 1 $resultat2 = StringMid ( $text,$i, 2 ) Until $resultat2 = "]]" $i=$i+2-$erste_kat_position $erste_kat=StringMid ( $text, $erste_kat_position,$i+2 ) endif ;KATEGORIE:MANN ODER KATEGORIE:FRAU SETZEN if $hinweis="Mann" or $hinweis="Frau" then if $hinweis="Mann" then $Mann=6 if $hinweis="Frau" then $Mann=7 else if $Automatik=0 then $hinweis = $hinweis & " " & $erste_kat $Mann=MsgBox(3,"Ist es ein Mann?" , $hinweis ) else Protokoll($hinweis & " " & $Artikel) $Mann=0 endif endif if $Mann=2 then Protokoll("Abbruch in der Abfragebox: " & $Artikel) if $Mann=6 or $Mann=7 then ;NEUE KATEGORIE ERARBEITEN $Veraenderung=$Veraenderung+1 if $nur_Protokoll=1 then Protokoll($hinweis & " " & $Artikel) if $Mann=6 then $Veraenderungstext=$Veraenderungstext & "Kategorie:Mann" if $Mann=7 then $Veraenderungstext=$Veraenderungstext & "Kategorie:Frau" $i=13 Do $i = $i + 1 $resultat4 = StringMid ( $erste_kat,$i, 1 ) Until $resultat4 = "]" or $resultat4 = "|" If $resultat4 = "]" and $Mann=6 Then $eingabe="[[Kategorie:Mann]]" Protokoll("Kategorie:Mann eingefügt: " & $Artikel) Endif If $resultat4 = "]" and $Mann=7 Then $eingabe="[[Kategorie:Frau]]" Protokoll("Kategorie:Frau eingefügt: " & $Artikel) Endif $anhang="" If $resultat4 = "|" then $i=$i+1 $len=StringLen ( $erste_kat ) $i2=$len-$i-1 $anhang=StringMid ($erste_kat, $i, $i2) EndIf $resultat5 = 0 $resultat5 = StringInStr($anhang, "!") If $resultat5 >0 then Protokoll("Evtuell keine Person: " & $Artikel) Send("!c") else If $resultat4 = "|" and $Mann=6 Then $eingabe="[[Kategorie:Mann|" & $anhang Protokoll("Kategorie:Mann eingefügt: " & $Artikel) EndIf If $resultat4 = "|" and $Mann=7 Then $eingabe="[[Kategorie:Frau|" & $anhang Protokoll("Kategorie:Frau eingefügt: " & $Artikel) EndIf if $erste_kat="[[Kategorie:Person]]" then MouseMove(640, 560) WinWaitActive($Fenster) MouseClick("left") WinWaitActive($Fenster) Send("{PGDN 30}") WinWaitActive($Fenster) Send("{HOME}") WinWaitActive($Fenster) Send("[[Kategorie:Person]]") WinWaitActive($Fenster) endif ;TEXT MIT NEUER KATEGORIE EINFÜGEN Send("^f") WinWaitActive("Seite durchsuchen") WinMove("Seite durchsuchen", "", 0, 850 ) WinWait("Seite durchsuchen") Send("[[Kategorie") Send("{ENTER}") WinWaitActive("Seite durchsuchen") WinClose("Seite durchsuchen") Send("{HOME}") ClipPut ($eingabe) WinWaitActive($Fenster) Send("^v") ;If $resultat4 = "]" then Send("{ENTER}") Send("{ENTER}") Endif WinWaitActive($Fenster) Send("{PGDN}") WinWaitActive($Fenster) endif EndFunc Func Personen_Feinkategorisierung() ;SUCHT NACH HINWEISTEXTEN FÜR DIE VERFEINERTE PERSONENKATEGORIESIERUNG Artikeltext_holen() $kat_pos= 0 $kat_pos= StringInStr($text, "[[Kategorie:Person") if $kat_pos>0 then $Kat_plus=0 Kategorie_einfuegen("deutsch", "[[Kategorie:Deutscher]]",1) if $Kat_plus=0 then Kategorie_einfuegen("französisch", "[[Kategorie:Franzose]]",1) if $Kat_plus=0 then Kategorie_einfuegen("italienisch", "[[Kategorie:Italiener]]",1) if $Kat_plus=0 then Kategorie_einfuegen("österreich", "[[Kategorie:Österreicher]]",1) if $Kat_plus=0 then Kategorie_einfuegen("polnisch", "[[Kategorie:Pole]]",1) if $Kat_plus=0 then Kategorie_einfuegen("Schweizer", "[[Kategorie:Schweizer]]",1) if $Kat_plus=0 then Kategorie_einfuegen("US-Amerikanisch", "[[Kategorie:US-Amerikaner]]",1) if $Kat_plus=0 then Kategorie_einfuegen("belgischer", "[[Kategorie:Belgier]]",1) if $Kat_plus=0 then Kategorie_einfuegen("ungarisch", "[[Kategorie:Ungar]]",1) if $Kat_plus=0 then Kategorie_einfuegen("englischer", "[[Kategorie:Brite]]",1) if $Kat_plus=0 then Kategorie_einfuegen("russische", "[[Kategorie:Russe]]",1) if $Kat_plus=0 then Kategorie_einfuegen("britisch", "[[Kategorie:Brite]]",1) if $Kat_plus=0 then Kategorie_einfuegen("spanisch", "[[Kategorie:Spanier]]",1) if $Kat_plus=0 then Kategorie_einfuegen("portugisisch", "[[Kategorie:Portugiese]]",1) if $Kat_plus=0 then Kategorie_einfuegen("niederländisch", "[[Kategorie:Niederländer]]",1) if $Kat_plus=0 then Kategorie_einfuegen("irischer", "[[Kategorie:Ire]]",1) if $Kat_plus=0 then Kategorie_einfuegen("australisch", "[[Kategorie:Australier]]",1) if $Kat_plus=0 then Kategorie_einfuegen("rumänisch", "[[Kategorie:Rumäne]]",1) if $Kat_plus=0 then Kategorie_einfuegen("kanadisch", "[[Kategorie:Kanadier]]",1) $Kat_plus=0 Kategorie_einfuegen("Anthropologe", "[[Kategorie:Anthropologe]]",1) Kategorie_einfuegen("Astronom", "[[Kategorie:Astronom]]",1) Kategorie_einfuegen("Autor", "[[Kategorie:Autor]]",1) Kategorie_einfuegen("Bildhauer", "[[Kategorie:Bildhauer]]",1) Kategorie_einfuegen("Biologe", "[[Kategorie:Biologe]]",1) Kategorie_einfuegen("Botaniker", "[[Kategorie:Botaniker]]",1) Kategorie_einfuegen("Bundestag", "[[Kategorie:Bundestagsabgeordneter]]",1) Kategorie_einfuegen("Dirigent", "[[Kategorie:Dirigent]]",1) Kategorie_einfuegen("Fußballer", "[[Kategorie:Fußballspieler]]",1) Kategorie_einfuegen("Fußballspieler", "[[Kategorie:Fußballspieler]]",1) Kategorie_einfuegen("Historiker", "[[Kategorie:Historiker]]",1) Kategorie_einfuegen("Journalist", "[[Kategorie:Journalist]]",1) Kategorie_einfuegen("Jurist", "[[Kategorie:Jurist]]",1) Kategorie_einfuegen("Kabarettist", "[[Kategorie:Kabarettist]]",1) Kategorie_einfuegen("Komponist", "[[Kategorie:Komponist]]",1) Kategorie_einfuegen("Maler", "[[Kategorie:Maler]]",1) Kategorie_einfuegen("Mathematiker", "[[Kategorie:Mathematiker]]",1) Kategorie_einfuegen("Moderator", "[[Kategorie:Moderator]]",1) Kategorie_einfuegen("Musiker", "[[Kategorie:Musiker]]",1) Kategorie_einfuegen("Ökonom", "[[Kategorie:Ökonom]]",1) Kategorie_einfuegen("Pädagoge", "[[Kategorie:Pädagoge]]",1) Kategorie_einfuegen("Philosoph", "[[Kategorie:Philosoph]]",1) Kategorie_einfuegen("Physiologe", "[[Kategorie:Physiologe]]",1) Kategorie_einfuegen("Pilot", "[[Kategorie:Pilot]]",1) Kategorie_einfuegen("Politiker", "[[Kategorie:Politiker]]",1) Kategorie_einfuegen("Psychiater", "[[Kategorie:Psychiater]]",1) Kategorie_einfuegen("Psychologe", "[[Kategorie:Psychologe]]",1) Kategorie_einfuegen("Publizist", "[[Kategorie:Publizist]]",1) Kategorie_einfuegen("Regisseur", "[[Kategorie:Regisseur]]",1) Kategorie_einfuegen("Richter", "[[Kategorie:Richter]]",1) Kategorie_einfuegen("Sänger", "[[Kategorie:Sänger]]",1) Kategorie_einfuegen("Schauspieler", "[[Kategorie:Schauspieler]]",1) Kategorie_einfuegen("Schriftsteller", "[[Kategorie:Autor]]",1) Kategorie_einfuegen("Soziologe", "[[Kategorie:Soziologe]]",1) Kategorie_einfuegen("Theologe", "[[Kategorie:Theologe]]",1) Kategorie_einfuegen("Unternehmer", "[[Kategorie:Unternehmer]]",1) Kategorie_einfuegen("Architekt", "[[Kategorie:Architekt]]",1) Kategorie_einfuegen("Dichter", "[[Kategorie:Autor]]",1) Kategorie_einfuegen("Ingenieur", "[[Kategorie:Ingenieur, Erfinder, Konstrukteur]]",1) Kategorie_einfuegen("Erfinder", "[[Kategorie:Ingenieur, Erfinder, Konstrukteur]]",1) Kategorie_einfuegen("Konstrukteur", "[[Kategorie:Ingenieur, Erfinder, Konstrukteur]]",1) Kategorie_einfuegen("Bürgermeister", "[[Kategorie:Bürgermeister]]",1) Kategorie_einfuegen("Chemiker", "[[Kategorie:Chemiker]]",1) Kategorie_einfuegen("Sportler", "[[Kategorie:Sportler]]",1) Kategorie_einfuegen("Mediziner", "[[Kategorie:Mediziner]]",1) Kategorie_einfuegen("Bischof", "[[Kategorie:Bischof]]",1) Kategorie_einfuegen("Philologe", "[[Kategorie:Philologe]]",1) Kategorie_einfuegen("Physiker", "[[Kategorie:Physiker]]",1) Kategorie_einfuegen("Meteorologe", "[[Kategorie:Meteorologe]]",1) Kategorie_einfuegen("CDU","[[Kategorie:CDU-Mitglied]]",1) Kategorie_einfuegen("CSU","[[Kategorie:CSU-Mitglied]]",1) Kategorie_einfuegen("SPD","[[Kategorie:SPD-Mitglied]]",1) Kategorie_einfuegen("FDP","[[Kategorie:FDP-Mitglied]]",1) Kategorie_einfuegen("SED","[[Kategorie:SED-Mitglied]]",1) Kategorie_einfuegen("NSDAP","[[Kategorie:NSDAP-Mitglied]]",1) Kategorie_einfuegen("NPD","[[Kategorie:NPD-Mitglied]]",1) Kategorie_einfuegen("DKP","[[Kategorie:DKP-Mitglied]]",1) Kategorie_einfuegen("KPD","[[Kategorie:KPD-Mitglied]]",1) if $Kat_plus>0 then loeschen("[[Kategorie:Person]]") endif endif Artikeltext_holen() EndFunc Func Kategorie_einfuegen($a, $b, $c ) ;FÜGT VERFEINERTE PERSONENKATEGORIEN EIN WENN IRGENDEIN HINWEISTEXT GEFUNDEN WURDE $kat_pos= 0 $kat_pos= StringInStr($text, $a) $d = StringMid ( $text,1, $kat_pos-1 ) if $kat_pos>0 and MsgBox(3, $b & " hinzufügen?", $d & " " & $a )=6 then $Kat_plus=$Kat_plus+$c ;TEXT MIT NEUER KATEGORIE EINFÜGEN Send("^f") WinWaitActive("Seite durchsuchen") WinMove("Seite durchsuchen", "", 0, 850 ) WinWait("Seite durchsuchen") Send("[[Kategorie:") Send("{ENTER}") WinWaitActive("Seite durchsuchen") WinClose("Seite durchsuchen") WinWaitActive($Fenster) Send("{HOME}{DOWN}") WinWaitActive($Fenster) ClipPut ($b) WinWaitActive($Fenster) Send("^v") WinWaitActive($Fenster) Send("{ENTER}{UP}") WinWaitActive($Fenster) $Veraenderungstext=$Veraenderungstext & ";" & $b endif EndFunc Func Loeschen($a) ;LÖSCHT EIN TEXTSCHNIPPSEL AUS DEM ARTIKEL $kat_pos= 0 $kat_pos= StringInStr($text, $a) if $kat_pos>0 then $Kat_plus=$Kat_plus+1 ;TEXT MIT NEUER KATEGORIE EINFÜGEN Send("^f") WinWaitActive("Seite durchsuchen") WinMove("Seite durchsuchen", "", 0, 850 ) WinWait("Seite durchsuchen") Send($a) Send("{ENTER}") WinWaitActive("Seite durchsuchen") WinClose("Seite durchsuchen") WinWaitActive($Fenster) Send("{DEL}") WinWaitActive($Fenster) endif EndFunc Func Personensortierung() ;WENN MÖGLICH BEI PERSONEN DIE NAMEN IN DEN KATEGORIEN FÜR SORTIERUNG UMSTELLEN $sort_name="" if StringInStr($Artikel, "_")>0 then if StringInStr($text, "[[Kategorie:Mann")>0 or StringInStr($text, "[[Kategorie:Frau")>0 then Artikeltext_holen() $old_kat_pos=0 $kat_pos= StringInStr($text, "[[Kategorie:") if $kat_pos >0 then Do ;ERSTE KATEGORIE SUCHEN $Textlen=StringLen ( $text ) $kat_pos= StringInStr($text, "[[Kategorie:") $i=$kat_pos ;MsgBox(0,"Neue Parameter" , $kat_pos & " " & $Textlen ) Do $i = $i + 1 $resultat2 = StringMid ( $text,$i, 2 ) Until $resultat2 = "]]" $i=$i+2-$kat_pos $kat = StringMid ( $text, $kat_pos,$i ) ;MsgBox(0,"Gefundene Kat" , $kat_pos & "#" & $kat & "#") ;TRENNSTRICH IN ERSTER KATEGORIE SUCHEN $i=0 $i=StringInStr($kat, "|") $kat_Len=StringLen ( $kat ) ;MsgBox(0,"Erstetzung1" , $kat_Len & $kat ) ;if $i>0 then ;$sort_name=StringMid ( $kat, $i,$kat_Len-2 ) ;endif if $i=0 then if StringLen ($sort_name) = 0 then ;SORTIERNAMEN-VORSCHLAG $Teiler=0 $i=StringLen ( $Artikel ) Do $i = $i - 1 $Teiler = StringMid ( $Artikel,$i, 1 ) Until $Teiler = "_" or $i = 0 $NS_Len_A=StringLen ( $Artikel ) $a=StringMid ($Artikel, 1, $i-1) $b=StringMid ($Artikel, $i+1, $NS_Len_A-$i+1) $sort_name =$b & ", " & $a $sort_name = StringReplace($sort_name, "_", " ") $Drehung=MsgBox(3,"Namenssortierung, so ok?" , $sort_name ) if $Drehung <>6 then Protokoll("Namenssortierung abbruch: " & $Artikel) return endif endif $kat_Len=StringLen ( $kat ) $kat_Neu=StringMid ( $kat, 1, $kat_Len-2 ) ;MsgBox(0,"Erstetzung2" , $kat_Len & "#" & $kat & "#" & $kat_Neu & "#" & $sort_name ) $kat_Neu=$kat_Neu & "|" & $sort_name & "]]" ersetze( $kat, $kat_Neu ,1 ,0) endif ;AKTUELLEN ARTIKELTEXT HOLEN $Textlen=StringLen ( $text ) $text=StringMid ( $text, $kat_pos+1, $Textlen-$kat_pos+1 ) $kat_pos = 0 $kat_pos = StringInStr($text, "[[Kategorie:") ;MsgBox(0,"Noch zu durchsuschender Text" , $kat_pos & "#" & $sort_name & "#" & $text ) until $kat_pos=0 or $kat_pos>$Textlen ;MsgBox(0,"Raus aus Namenssortierung" , " ") Artikeltext_holen() else Protokoll("Keine Kategorie gefunden in: " & $Artikel) return endif endif endif EndFunc Func Hinweis_auf_HTML_Code() $result=0 $result= $result + StringInStr ( $text, "<br>") $result= $result + StringInStr ( $text, "<div>") $result= $result + StringInStr ( $text, "<hr>") $result= $result + StringInStr ( $text, "<table>") $result= $result + StringInStr ( $text, "<p>") if $result>0 then Protokoll("Hinweis auf HTML-Code: " & $Artikel) EndFunc Func Hinweis_auf_schlechte_Ueberschriften() $result=0 $result= $result + StringInStr ( $text, "'''Links'''") $result= $result + StringInStr ( $text, "''' Links '''") $result= $result + StringInStr ( $text, "'''Leben'''") $result= $result + StringInStr ( $text, "''' Leben '''") $result= $result + StringInStr ( $text, "'''Werke'''") $result= $result + StringInStr ( $text, "''' Werke '''") $result= $result + StringInStr ( $text, "'''Literatur'''") $result= $result + StringInStr ( $text, "'''Literatur'''") $result= $result + StringInStr ( $text, "''' Literatur '''") $result= $result + StringInStr ( $text, "'''Weblinks'''") $result= $result + StringInStr ( $text, "''' Weblinks '''") if $result>0 then Protokoll("Hinweis auf schlechte Überschriften: " & $Artikel) EndFunc Func Datumskorrektur() $result=0 $result= $result + StringInStr ( $text, ".01.") $result= $result + StringInStr ( $text, ".02.") $result= $result + StringInStr ( $text, ".03.") $result= $result + StringInStr ( $text, ".04.") $result= $result + StringInStr ( $text, ".05.") $result= $result + StringInStr ( $text, ".06.") $result= $result + StringInStr ( $text, ".07.") $result= $result + StringInStr ( $text, ".08.") $result= $result + StringInStr ( $text, ".09.") $result= $result + StringInStr ( $text, ".10.") $result= $result + StringInStr ( $text, ".11.") $result= $result + StringInStr ( $text, ".12.") if $result>0 then Protokoll("Hinweis auf evt. falsche Datumsschreibweise: " & $Artikel) EndFunc Func Speichern() ;SPEICHERN DES ARTIKELS ;$result=MsgBox(4,"Speichern?","Soll gespeichert werden?") if $Veraenderung>0 and $nur_Protokoll=0 then Send("{TAB}") WinWaitActive($Fenster) Send($Veraenderungstext) MouseMove(640, 560) WinWaitActive($Fenster) Send("!s") $Artikel = StringReplace($Artikel, "_", " ") $Fenster=$Artikel & " - Wikipedia - Mozilla Firefox" WinWait($Fenster) else Send("!c") endif $Veraenderung=0 $Veraenderungstext="" EndFunc Func Protokoll($Protokolltext) ;EINTRÄGE IN DIE PROTOKOLLLISTE SCHREIBEN $Fenster=$Handarbeitsliste & " - Editor" WinActivate($Fenster) WinWaitActive($Fenster) Send($Protokolltext) Send("{ENTER}") $Fenster= " - Wikipedia - Mozilla Firefox" WinActivate($Fenster) WinWaitActive($Fenster) EndFunc Func Wortanzahl($hwort1) ;PRÜFT WIE OFT EIN ZEICHENKETTE IM TEXT VORKOMMT $hi=0 $hanzahl=0 if $Mann_und_Frau_testen =1 then $hlen = StringLen ( $text ) if $hlen > 4000 then $hlen=4000 $hlen2 = StringLen ( $hwort1 ) For $hi = 1 to $hlen $hresultat = 0 $hresultat = StringMid ( $text,$hi, $hlen2 ) if $hresultat=$hwort1 then $hanzahl=$hanzahl+1 Next endif return $hanzahl EndFunc Func Rechtschreibkorrektur() ersetze("[[Kategorie: ","[[Kategorie:",1 ,0) ersetze("[[Kategorie :","[[Kategorie:",1 ,0) ersetze("[[Category: ","[[Kategorie:",1 ,1) ersetze("[[image:","[[Bild:",1 ,1) ersetze("msg:Meyers", "Meyers",1 ,1) ersetze("[[ ", "[[",1 ,0) ersetze(" ]]", "]]",1 ,0) ersetze(" . ", ". ",1 ,0) ersetze(" , ", ", ",1 ,0) ersetze(" ; ", "; ",1 ,0) ersetze("==Weblinks==", "== Weblinks ==",1 ,0) ersetze("==Weblinks:==", "== Weblinks ==",1 ,1) ersetze("== Weblinks: ==", "== Weblinks ==",1 ,1) ersetze("==Web-Links==", "== Weblinks ==",1 ,1) ersetze("== Web-Links ==", "== Weblinks ==",1 ,1) ersetze("==Web-Links:==", "== Weblinks ==",1 ,1) ersetze("== Web-Links: ==", "== Weblinks ==",1 ,1) ersetze("==Weblink==", "== Weblinks ==",1 ,1) ersetze("== Weblink ==", "== Weblinks ==",1 ,1) ersetze("==external links==", "== Weblinks ==",1 ,1) ersetze("== external links ==", "== Weblinks ==",1 ,1) ersetze("==Externe Verweise==", "== Weblinks ==",1 ,1) ersetze("== Externe Verweise ==", "== Weblinks ==",1 ,1) ersetze("==Externer Verweis==", "== Weblinks ==",1 ,1) ersetze("== Externer Verweis ==", "== Weblinks ==",1 ,1) ersetze("==Externe Links==", "== Weblinks ==",1 ,1) ersetze("== Externe Links ==", "== Weblinks ==",1 ,1) ersetze("==Externer Link==", "== Weblinks ==",1 ,1) ersetze("== Externer Link ==", "== Weblinks ==",1 ,1) ersetze("==Externer Links==", "== Weblinks ==",1 ,1) ersetze("== Externer Links ==", "== Weblinks ==",1 ,1) ersetze("==External Link==", "== Weblinks ==",1 ,1) ersetze("== External Link ==", "== Weblinks ==",1 ,1) ersetze("==Webseite==", "== Weblinks ==",1 ,1) ersetze("== Webseite ==", "== Weblinks ==",1 ,1) ersetze("==Webseiten==", "== Weblinks ==",1 ,1) ersetze("== Webseiten ==", "== Weblinks ==",1 ,1) ersetze("==Website==", "== Weblinks ==",1 ,1) ersetze("== Website ==", "== Weblinks ==",1 ,1) ersetze("==Websites==", "== Weblinks ==",1 ,1) ersetze("== Websites ==", "== Weblinks ==",1 ,1) if $Automatik =0 then ersetze("==Verweis==", "== Weblinks ==",0 ,1) ersetze("== Verweis ==", "== Weblinks ==",0 ,1) ersetze("==Link==", "== Weblinks ==",0 ,1) ersetze("== Link ==", "== Weblinks ==",0 ,1) ersetze("==Links==", "== Weblinks ==",0 ,1) ersetze("== Links ==", "== Weblinks ==",0 ,1) ersetze("ä", "ä",0 ,1) ersetze("Ä", "Ä",0 ,1) ersetze("ö", "ö",0 ,1) ersetze("Ö", "Ö",0 ,1) ersetze("ü", "ü",0 ,1) ersetze("&Uml;", "Ü",0 ,1) ersetze("ß", "ß",0 ,1) ersetze( " aba ", " aber " ,0 ,1) ersetze( " Abhängikeit", " Abhängigkeit" ,0 ,1) ersetze( " abschliessen", " abschließen" ,0 ,1) ersetze( " abschliessend", " abschließend" ,0 ,1) ersetze( " abschliessende", " abschließende" ,0 ,1) ersetze( " abschliessenden", " abschließenden" ,0 ,1) ersetze( " abschliessender", " abschließender" ,0 ,1) ersetze( " abschliesst", " abschließt" ,0 ,1) ;ersetze( " Abschluß", " Abschluss" ,0 ,1) ersetze( " Addresse", " Adresse" ,0 ,1) ;ersetze( " Adelige", " Adlige" ,0 ,1) ersetze( " afrz", " altfranzösisch" ,0 ,1) ersetze( " Aeropag", " Areopag" ,0 ,1) ersetze( " Aeropagos", " Areopag" ,0 ,1) ersetze( " Agendas", " Agenden" ,0 ,1) ersetze( " agressiv", " aggressiv" ,0 ,1) ersetze( " Aktzeptanz", " Akzeptanz" ,0 ,1) ersetze( " allierte", " alliierte" ,0 ,1) ersetze( " allierten", " alliierten" ,0 ,1) ersetze( " Algoritmus", " Algorithmus" ,0 ,1) ersetze( " Amtsprache", " Amtssprache" ,0 ,1) ersetze( " Amtsprachen", " Amtssprachen" ,0 ,1) ersetze( " Anaesthesie", " Anästhesie" ,0 ,1) ersetze( " andern", " anderen" ,0 ,1) ersetze( " angelsächsiche", " angelsächsische" ,0 ,1) ersetze( " angelsächsichen", " angelsächsischen" ,0 ,1) ;ersetze( " angepaßt", " angepasst" ,0 ,1) ersetze( " Anordung", " Anordnung" ,0 ,1) ersetze( " Annerkennung", " Anerkennung" ,0 ,1) ;ersetze( " Anlaß", " Anlass" ,0 ,1) ;ersetze( " anläßlich", " anlässlich" ,0 ,1) ersetze( " Anschaung", " Anschauung" ,0 ,1) ersetze( " anschliessend", " anschließend" ,0 ,1) ersetze( " anschliessende", " anschließende" ,0 ,1) ersetze( " anschliessenden", " anschließenden" ,0 ,1) ersetze( " anschliessender", " anschließender" ,0 ,1) ersetze( " anschliessendes", " anschließendes" ,0 ,1) ;ersetze( " anschloß", " anschloss" ,0 ,1) ;ersetze( " Anschluß", " Anschluss" ,0 ,1) ersetze( " assozial", " asozial" ,0 ,1) ersetze( " Athmosphäre", " Atmosphäre" ,0 ,1) ;ersetze( " aufgefaßt", " aufgefasst" ,0 ,1) ;ersetze( " Aufriß", " Aufriss" ,0 ,1) ersetze( " auftretenen", " auftretenden" ,0 ,1) ersetze( " aufwendig", " aufwändig" ,0 ,1) ersetze( " auschließlich", " ausschließlich" ,0 ,1) ersetze( " auschliesslich", " ausschließlich" ,0 ,1) ersetze( " auserdem", " außerdem" ,0 ,1) ersetze( " auserhalb", " außerhalb" ,0 ,1) ersetze( " Ausmass", " Ausmaß" ,0 ,1) ersetze( " Ausprache", " Aussprache" ,0 ,1) ersetze( " Auspruch", " Ausspruch" ,0 ,1) ersetze( " ausschliesslich", " ausschließlich" ,0 ,1) ersetze( " aussen", " außen" ,0 ,1) ersetze( " Aussenminister", " Außenminister" ,0 ,1) ersetze( " ausser", " außer" ,0 ,1) ersetze( " ausserdem", " außerdem" ,0 ,1) ersetze( " aussergewöhnlich", " außergewöhnlich" ,0 ,1) ersetze( " aussergewöhnlichen", " außergewöhnlichen" ,0 ,1) ersetze( " ausserhalb", " außerhalb" ,0 ,1) ersetze( " ausserordentlich", " außerordentlich" ,0 ,1) ersetze( " äussere", " äußere" ,0 ,1) ersetze( " äusseres", " äußeres" ,0 ,1) ersetze( " äusserst", " äußerst" ,0 ,1) ersetze( " äusserste", " äußerste" ,0 ,1) ersetze( " äussern", " äußern" ,0 ,1) ersetze( " Austattung", " Ausstattung" ,0 ,1) ersetze( " Austellung", " Ausstellung" ,0 ,1) ersetze( " Austellungen", " Ausstellungen" ,0 ,1) ersetze( " Austerben", " Aussterben" ,0 ,1) ersetze( " Auszeichung", " Auszeichnung" ,0 ,1) ersetze( " Auszeichungen", " Auszeichnungen" ,0 ,1) ersetze( " Author", " Autor" ,0 ,1) ersetze( " authorisieren", " autorisieren" ,0 ,1) ersetze( " Baß", " Bass" ,0 ,1) ;ersetze( " Beeinflußbarkeit", " Beeinflussbarkeit" ,0 ,1) ersetze( " Beipiele", " Beispiele" ,0 ,1) ersetze( " Beispeil", " Beispiel" ,0 ,1) ersetze( " Berechnug", " Berechnung" ,0 ,1) ersetze( " Berechung", " Berechnung" ,0 ,1) ;ersetze( " Beschluß", " Beschluss" ,0 ,1) ;ersetze( " Beschuß", " Beschuss" ,0 ,1) ersetze( " Betriebsystem", " Betriebssystem" ,0 ,1) ersetze( " Betriebsysteme", " Betriebssysteme" ,0 ,1) ersetze( " Betriebsystemen", " Betriebssystemen" ,0 ,1) ;ersetze( " Bewußtsein", " Bewusstsein" ,0 ,1) ersetze( " Bezeichnug", " Bezeichnung" ,0 ,1) ersetze( " Bezeichung", " Bezeichnung" ,0 ,1) ersetze( " Billiard", " Billard" ,0 ,1) ;ersetze( " Biß", " Biss" ,0 ,1) ersetze( " Bundestaat", " Bundesstaat" ,0 ,1) ersetze( " Bundestaaten", " Bundesstaaten" ,0 ,1) ersetze( " Bundestaates", " Bundesstaates" ,0 ,1) ersetze( " Bundestraße", " Bundesstraße" ,0 ,1) ersetze( " Busineß", " Business" ,0 ,1) ersetze( " Defintion", " Definition" ,0 ,1) ersetze( " Diphtong", " Diphthong" ,0 ,1) ersetze( " Diskusion", " Diskussion" ,0 ,1) ersetze( " Dreick", " Dreieck" ,0 ,1) ;ersetze( " Einfluß", " Einfluss" ,0 ,1) ;ersetze( " Einflußbereich", " Einflussbereich" ,0 ,1) ;ersetze( " Einflußnahme", " Einflussnahme" ,0 ,1) ;ersetze( " Einflüße", " Einflüsse" ,0 ,1) ersetze( " Einordung", " Einordnung" ,0 ,1) ersetze( " Endeckung", " Entdeckung" ,0 ,1) ersetze( " Enfernung", " Entfernung" ,0 ,1) ersetze( " Enfernungen", " Entfernungen" ,0 ,1) ersetze( " Enscheidung", " Entscheidung" ,0 ,1) ersetze( " Enstehung", " Entstehung" ,0 ,1) ;ersetze( " Entschluß", " Entschluss" ,0 ,1) ersetze( " Enwicklung", " Entwicklung" ,0 ,1) ersetze( " Enwicklungen", " Entwicklungen" ,0 ,1) ersetze( " Ereigniss ", " Ereignis " ,0 ,1) ersetze( " Ergebniss ", " Ergebnis " ,0 ,1) ersetze( " Erkenntniss ", " Erkenntnis " ,0 ,1) ersetze( " Famile", " Familie" ,0 ,1) ;ersetze( " Fluß", " Fluss" ,0 ,1) ersetze( " Gallerie", " Galerie" ,0 ,1) ersetze( " Gallerien", " Galerien" ,0 ,1) ersetze( " Gedult", " Geduld" ,0 ,1) ;ersetze( " Gefaßtheit", " Gefasstheit" ,0 ,1) ersetze( " Grossaufgebot", " Großaufgebot" ,0 ,1) ersetze( " Grossbritanien", " Großbritannien" ,0 ,1) ersetze( " Grossbritannien", " Großbritannien" ,0 ,1) ersetze( " Großbritanien", " Großbritannien" ,0 ,1) ;ersetze( " Grundriß", " Grundriss" ,0 ,1) ersetze( " Guiseppe", " Giuseppe" ,0 ,1) ersetze( " Herschaft", " Herrschaft" ,0 ,1) ersetze( " Herscher", " Herrscher" ,0 ,1) ersetze( " Jahrundert", " Jahrhundert" ,0 ,1) ersetze( " Jahrunderte", " Jahrhunderte" ,0 ,1) ersetze( " Jahrunderts", " Jahrhunderts" ,0 ,1) ersetze( " Jahrzent", " Jahrzehnt" ,0 ,1) ersetze( " Jahrzente", " Jahrzehnte" ,0 ,1) ersetze( " Kennzeichnug", " Kennzeichnung" ,0 ,1) ersetze( " Komission", " Kommission" ,0 ,1) ersetze( " Kommitee", " Komitee" ,0 ,1) ersetze( " Kommittee", " Komitee" ,0 ,1) ersetze( " Konkurenz", " Konkurrenz" ,0 ,1) ersetze( " Landesprache", " Landessprache" ,0 ,1) ersetze( " Lexikas", " Lexika" ,0 ,1) ersetze( " Lizensieren", " lizenzieren" ,0 ,1) ersetze( " Lizensiert", " lizenziert" ,0 ,1) ersetze( " Lizensierte", " lizenzierte" ,0 ,1) ersetze( " Lizensiertem", " lizenziertem" ,0 ,1) ersetze( " Lizensierten", " lizenzierten" ,0 ,1) ersetze( " Lizensierter", " lizenzierter" ,0 ,1) ersetze( " Lizensiertes", " lizenziertes" ,0 ,1) ersetze( " Lizensierung", " Lizenzierung" ,0 ,1) ersetze( " Maschiene", " Maschine" ,0 ,1) ersetze( " Maschienen", " Maschinen" ,0 ,1) ersetze( " Matarze", " Matraze" ,0 ,1) ersetze( " Matrze", " Matraze" ,0 ,1) ersetze( " Menscheit", " Menschheit" ,0 ,1) ersetze( " Micheal", " Michael" ,0 ,1) ersetze( " Millarde", " Milliarde" ,0 ,1) ersetze( " Millarden", " Milliarden" ,0 ,1) ersetze( " Millenium", " Millennium" ,0 ,1) ersetze( " Millon", " Million" ,0 ,1) ersetze( " Millonen", " Millionen" ,0 ,1) ;ersetze( " Nebenfluß", " Nebenfluss" ,0 ,1) ersetze( " Niesche", " Nische" ,0 ,1) ;ersetze( " Nuß", " Nuss" ,0 ,1) ersetze( " Ordung", " Ordnung" ,0 ,1) ersetze( " Packet", " Paket" ,0 ,1) ersetze( " Pavillion", " Pavillon" ,0 ,1) ersetze( " Perönlichkeiten", " Persönlichkeiten" ,0 ,1) ersetze( " Politk", " Politik" ,0 ,1) ersetze( " Politker", " Politiker" ,0 ,1) ersetze( " Poltiker", " Politiker" ,0 ,1) ersetze( " Prinzipen", " Prinzipien" ,0 ,1) ;ersetze( " Prozeß", " Prozess" ,0 ,1) ;ersetze( " Prozeße", " Prozesse" ,0 ,1) ersetze( " Rechtssprechung", " Rechtsprechung" ,0 ,1) ersetze( " Reflektion", " Reflexion" ,0 ,1) ersetze( " Religon", " Religion" ,0 ,1) ersetze( " Religonen", " Religionen" ,0 ,1) ersetze( " Reperatur", " Reparatur" ,0 ,1) ersetze( " Rhytmus", " Rhythmus" ,0 ,1) ;ersetze( " Riß", " Riss" ,0 ,1) ;ersetze( " Rußland", " Russland" ,0 ,1) ersetze( " Rythmus", " Rhythmus" ,0 ,1) ersetze( " Umgangsprache", " Umgangssprache" ,0 ,1) ersetze( " Unabhängikeit", " Unabhängigkeit" ,0 ,1) ersetze( " Unabhänigkeit", " Unabhängigkeit" ,0 ,1) ersetze( " Unterstüzung", " Unterstützung" ,0 ,1) ersetze( " Ursupator", " Usurpator" ,0 ,1) ;ersetze( " Zusammenfluß", " Zusammenfluss" ,0 ,1) ;ersetze( " Zusammenschluß", " Zusammenschluss" ,0 ,1) ;ersetze( " Zuschuß", " Zuschuss" ,0 ,1) ersetze( " bahr ", " bar " ,0 ,1) ersetze( " bedeutenste", " bedeutendste" ,0 ,1) ersetze( " bedeutensten", " bedeutendsten" ,0 ,1) ersetze( " bedeutenster", " bedeutendster" ,0 ,1) ersetze( " bedeutenstes", " bedeutendstes" ,0 ,1) ersetze( " bedeutesten", " bedeutendsten" ,0 ,1) ;ersetze( " beeinflußbar", " beeinflussbar" ,0 ,1) ;ersetze( " beeinflußen", " beeinflussen" ,0 ,1) ;ersetze( " befaßt", " befasst" ,0 ,1) ersetze( " beherschen", " beherrschen" ,0 ,1) ersetze( " beherscht", " beherrscht" ,0 ,1) ersetze( " beherschte", " beherrschte" ,0 ,1) ersetze( " beinflussen", " beeinflussen" ,0 ,1) ersetze( " beinflusst", " beeinflusst" ,0 ,1) ersetze( " beinflusste", " beeinflusste" ,0 ,1) ersetze( " beinflussten", " beeinflussten" ,0 ,1) ersetze( " beispeilsweise", " beispielsweise" ,0 ,1) ;ersetze( " beschloß", " beschloss" ,0 ,1) ;ersetze( " bewußt", " bewusst" ,0 ,1) ;ersetze( " bewußtlos", " bewusstlos" ,0 ,1) ersetze( " bischen", " bisschen" ,0 ,1) ;ersetze( " blaß", " blass" ,0 ,1) ersetze( " blos", " bloß" ,0 ,1) ersetze( " brilliant", " brillant" ,0 ,1) ersetze( " bspw", " bspw." ,0 ,1) ersetze( " dannach", " danach" ,0 ,1) ersetze( " daselbe", " dasselbe" ,0 ,1) ;ersetze( " daß", " dass" ,0 ,1) ersetze( " def ", " Definition " ,0 ,1) ersetze( " deligieren", " delegieren" ,0 ,1) ersetze( " detailiert", " detailliert" ,0 ,1) ersetze( " detailierte", " detaillierte" ,0 ,1) ersetze( " detailiertem", " detailliertem" ,0 ,1) ersetze( " detailierten", " detaillierten" ,0 ,1) ersetze( " detailierter", " detaillierter" ,0 ,1) ersetze( " dilletantisch", " dilettantisch" ,0 ,1) ersetze( " dim ", " Dimension " ,0 ,1) ersetze( " dise", " diese" ,0 ,1) ersetze( " diskreminieren", " diskriminieren" ,0 ,1) ersetze( " draussen", " draußen" ,0 ,1) ersetze( " dreissig", " dreißig" ,0 ,1) ersetze( " dreissiger", " dreißiger" ,0 ,1) ersetze( " durchstossen", " durchstoßen" ,0 ,1) ersetze( " ebenfals", " ebenfalls" ,0 ,1) ;ersetze( " einflußreich", " einflussreich" ,0 ,1) ;ersetze( " einflußreiche", " einflussreiche" ,0 ,1) ;ersetze( " einflußreichem", " einflussreichem" ,0 ,1) ;ersetze( " einflußreichen", " einflussreichen" ,0 ,1) ;ersetze( " einflußreicher", " einflussreicher" ,0 ,1) ;ersetze( " einflußreiches", " einflussreiches" ,0 ,1) ersetze( " einge ", " einige " ,0 ,1) ersetze( " eingen ", " einigen " ,0 ,1) ersetze( " einges ", " einiges " ,0 ,1) ersetze( " einigemal", " einige Mal" ,0 ,1) ersetze( " einklich", " eigentlich" ,0 ,1) ersetze( " einschliesslich", " einschließlich" ,0 ,1) ersetze( " einzigste", " einzige" ,0 ,1) ersetze( " einzigster", " einziger" ,0 ,1) ersetze( " einzigstes", " einziges" ,0 ,1) ersetze( " eleminieren", " eliminieren" ,0 ,1) ersetze( " eleminiert", " eliminiert" ,0 ,1) ersetze( " endeckt", " entdeckt" ,0 ,1) ersetze( " endeckte", " entdeckte" ,0 ,1) ersetze( " enfernt", " entfernt" ,0 ,1) ersetze( " enfernte", " entfernte" ,0 ,1) ersetze( " engültig", " endgültig" ,0 ,1) ersetze( " enhalten", " enthalten" ,0 ,1) ersetze( " enhält", " enthält" ,0 ,1) ersetze( " enstand", " entstand" ,0 ,1) ersetze( " enstanden", " entstanden" ,0 ,1) ersetze( " enstehen", " entstehen" ,0 ,1) ersetze( " ensteht", " entsteht" ,0 ,1) ersetze( " entgültig", " endgültig" ,0 ,1) ersetze( " entgültige", " endgültige" ,0 ,1) ersetze( " entgültigen", " endgültigen" ,0 ,1) ersetze( " entscheidene", " entscheidende" ,0 ,1) ersetze( " entscheidener", " entscheidender" ,0 ,1) ;ersetze( " entschloß", " entschloss" ,0 ,1) ersetze( " entspechen", " entsprechende" ,0 ,1) ersetze( " entspechend", " entsprechende" ,0 ,1) ersetze( " entspechende", " entsprechende" ,0 ,1) ersetze( " entsprechene", " entsprechende" ,0 ,1) ersetze( " entsprechenen", " entsprechenden" ,0 ,1) ersetze( " enwickelt", " entwickelt" ,0 ,1) ersetze( " enwickelte", " entwickelte" ,0 ,1) ersetze( " enwickelten", " entwickelten" ,0 ,1) ersetze( " enwickelter", " entwickelter" ,0 ,1) ersetze( " enwickeltes", " entwickeltes" ,0 ,1) ersetze( " ereichen", " erreichen" ,0 ,1) ersetze( " ereicht", " erreicht" ,0 ,1) ersetze( " ereichte", " erreichte" ,0 ,1) ;ersetze( " erfaßbar", " erfassbar" ,0 ,1) ;ersetze( " erfaßt", " erfasst" ,0 ,1) ;ersetze( " erfaßte", " erfasste" ,0 ,1) ersetze( " erklährt", " erklärt" ,0 ,1) ersetze( " erzeilt", " erzielt" ,0 ,1) ersetze( " erzeilte", " erzielte" ,0 ,1) ersetze( " erziehlen", " erzielen" ,0 ,1) ersetze( " erziehlt", " erzielt" ,0 ,1) ersetze( " eventuel ", " eventuell " ,0 ,1) ersetze( " fiden", " finden" ,0 ,1) ersetze( " fidet", " findet" ,0 ,1) ersetze( " fliessen", " fließen" ,0 ,1) ersetze( " fliesst", " fließt" ,0 ,1) ersetze( " französich", " französisch" ,0 ,1) ersetze( " französiche", " französische" ,0 ,1) ersetze( " französichen", " französischen" ,0 ,1) ersetze( " französicher", " französischer" ,0 ,1) ersetze( " frima", " firma" ,0 ,1) ersetze( " fuer", " für" ,0 ,1) ersetze( " funzen", " funktionieren" ,0 ,1) ersetze( " fuss", " Fuß" ,0 ,1) ersetze( " füsse", " Füße" ,0 ,1) ersetze( " garnicht", " gar nicht" ,0 ,1) ersetze( " gebornen", " geborenen" ,0 ,1) ersetze( " gegebenfalls", " gegebenenfalls" ,0 ,1) ersetze( " gehöhren", " gehören" ,0 ,1) ersetze( " gehöhrt", " gehört" ,0 ,1) ersetze( " gehöhrte", " gehörte" ,0 ,1) ersetze( " gehöhrten", " gehörten" ,0 ,1) ersetze( " gennant", " genannt" ,0 ,1) ersetze( " gennanten", " genannten" ,0 ,1) ersetze( " gennanter", " genannter" ,0 ,1) ersetze( " gesammt", " gesamt" ,0 ,1) ersetze( " gesammte", " gesamte" ,0 ,1) ersetze( " gesammten", " gesamten" ,0 ,1) ersetze( " gewissermassen", " gewissermaßen" ,0 ,1) ersetze( " groesse", " größe" ,0 ,1) ersetze( " groeße", " größe" ,0 ,1) ersetze( " gross", " groß" ,0 ,1) ersetze( " haette", " hätte" ,0 ,1) ersetze( " haetten", " hätten" ,0 ,1) ersetze( " haupstadt", " Hauptstadt" ,0 ,1) ersetze( " haupstädte", " Hauptstädte" ,0 ,1) ersetze( " heiss", " heiß" ,0 ,1) ersetze( " heissen", " heißen" ,0 ,1) ersetze( " heisser", " heißer" ,0 ,1) ersetze( " heisst", " heißt" ,0 ,1) ersetze( " herraus", " heraus" ,0 ,1) ersetze( " hinterliess", " hinterließ" ,0 ,1) ersetze( " hinterliessen", " hinterließen" ,0 ,1) ersetze( " hälst", " du hältst" ,0 ,1) ersetze( " höhren", " hören" ,0 ,1) ersetze( " höhrt", " hört" ,0 ,1) ersetze( " jeweil ", " jeweils " ,0 ,1) ersetze( " kenntniss ", " Kenntnis " ,0 ,1) ersetze( " km2", " km²" ,0 ,1) ersetze( " konkurieren", " konkurrieren" ,0 ,1) ersetze( " konkuriert", " konkurriert" ,0 ,1) ersetze( " konte ", " konnte " ,0 ,1) ersetze( " konventionnell", " konventionell" ,0 ,1) ersetze( " korregieren", " korrigieren" ,0 ,1) ersetze( " korregiert", " korrigiert" ,0 ,1) ersetze( " kurzeitig", " kurzzeitig" ,0 ,1) ersetze( " letze", " letzte" ,0 ,1) ersetze( " letzen", " letzten" ,0 ,1) ersetze( " letzendlich", " letztendlich" ,0 ,1) ersetze( " letzer", " letzter" ,0 ,1) ersetze( " letzere", " letztere" ,0 ,1) ersetze( " letzlich", " letztlich" ,0 ,1) ersetze( " liess ", " ließ " ,0 ,1) ersetze( " liesse", " ließe" ,0 ,1) ersetze( " liessen", " ließen" ,0 ,1) ersetze( " läd ", " lädt " ,0 ,1) ersetze( " läst ", " lässt " ,0 ,1) ;ersetze( " läßt ", " lässt " ,0 ,1) ersetze( " m2", " m²" ,0 ,1) ersetze( " m3", " m³" ,0 ,1) ersetze( " massgebend", " maßgebend" ,0 ,1) ersetze( " massgeblich", " maßgeblich" ,0 ,1) ersetze( " meißt", " meist" ,0 ,1) ersetze( " meißten", " meisten" ,0 ,1) ersetze( " meißtens", " meistens" ,0 ,1) ersetze( " mhd", " mittelhochdeutsch" ,0 ,1) ;ersetze( " mißt ", " misst " ,0 ,1) ersetze( " moeglich", " möglich" ,0 ,1) ersetze( " moegliche", " mögliche" ,0 ,1) ersetze( " moeglichen", " möglichen" ,0 ,1) ersetze( " moeglicher", " möglicher" ,0 ,1) ersetze( " moegliches", " mögliches" ,0 ,1) ersetze( " muesste", " müsste" ,0 ,1) ersetze( " muessten", " müssten" ,0 ,1) ;ersetze( " muß", " muss" ,0 ,1) ;ersetze( " mußte", " musste" ,0 ,1) ;ersetze( " mußten", " mussten" ,0 ,1) ;ersetze( " müßte", " müsste" ,0 ,1) ;ersetze( " müßten", " müssten" ,0 ,1) ersetze( " naheste ", " nächste " ,0 ,1) ersetze( " nahesten ", " nächsten " ,0 ,1) ersetze( " net ", " nicht " ,0 ,1) ersetze( " nich ", " nicht " ,0 ,1) ersetze( " niedersächsiche", " niedersächsische" ,0 ,1) ersetze( " niedersächsichen", " niedersächsischen" ,0 ,1) ersetze( " nix ", " nichts " ,0 ,1) ersetze( " numehr", " nunmehr" ,0 ,1) ersetze( " numeriert", " nummeriert" ,0 ,1) ersetze( " numerierte", " nummerierte" ,0 ,1) ersetze( " numerierten", " nummerierten" ,0 ,1) ersetze( " nähmlich", " nämlich" ,0 ,1) ersetze( " obrige", " obige" ,0 ,1) ersetze( " obrigen", " obigen" ,0 ,1) ersetze( " obriger", " obiger" ,0 ,1) ersetze( " offizell", " offiziell" ,0 ,1) ersetze( " offizelle", " offizielle" ,0 ,1) ersetze( " offizellem", " offiziellem" ,0 ,1) ersetze( " offizellen", " offiziellen" ,0 ,1) ersetze( " offizeller", " offizieller" ,0 ,1) ersetze( " offizelles", " offizielles" ,0 ,1) ersetze( " offiziel ", " offiziell " ,0 ,1) ersetze( " offiziele", " offizielle" ,0 ,1) ersetze( " offizielem", " offiziellem" ,0 ,1) ersetze( " offizielen", " offiziellen" ,0 ,1) ersetze( " offizieler", " offizieller" ,0 ,1) ersetze( " offizieles", " offizielles" ,0 ,1) ersetze( " optimalste", " optimale" ,0 ,1) ersetze( " optimalster", " optimaler" ,0 ,1) ersetze( " optimalstes", " optimales" ,0 ,1) ersetze( " orginal", " original" ,0 ,1) ersetze( " orginale", " originale" ,0 ,1) ersetze( " orginalen", " originalen" ,0 ,1) ersetze( " paralell", " parallel" ,0 ,1) ;ersetze( " paßt", " passt" ,0 ,1) ersetze( " politsch", " politisch" ,0 ,1) ersetze( " politsche", " politische" ,0 ,1) ersetze( " politschen", " politischen" ,0 ,1) ersetze( " politscher", " politischer" ,0 ,1) ersetze( " politsches", " politisches" ,0 ,1) ersetze( " poltische", " politische" ,0 ,1) ersetze( " poltischen", " politischen" ,0 ,1) ersetze( " portugiesich", " portugiesisch" ,0 ,1) ersetze( " portugiesiche", " portugiesische" ,0 ,1) ersetze( " portugiesichen", " portugiesischen" ,0 ,1) ersetze( " projeziert", " projiziert" ,0 ,1) ersetze( " regelmässig", " regelmäßig" ,0 ,1) ersetze( " regelmässige", " regelmäßige" ,0 ,1) ersetze( " regelmässigen", " regelmäßigen" ,0 ,1) ersetze( " regelmässiger", " regelmäßiger" ,0 ,1) ersetze( " regelmässiges", " regelmäßiges" ,0 ,1) ersetze( " religös", " religiös" ,0 ,1) ersetze( " religösen", " religiösen" ,0 ,1) ersetze( " repäsentieren", " repräsentieren" ,0 ,1) ersetze( " repäsentiert", " repräsentiert" ,0 ,1) ersetze( " resourcen", " ressourcen" ,0 ,1) ersetze( " rhytmisch", " rhythmisch" ,0 ,1) ersetze( " rhytmische", " rhythmische" ,0 ,1) ersetze( " russich", " russisch" ,0 ,1) ersetze( " russiche", " russische" ,0 ,1) ersetze( " russichen", " russischen" ,0 ,1) ersetze( " russicher", " russischer" ,0 ,1) ersetze( " rythmisch", " rhythmisch" ,0 ,1) ersetze( " rythmische", " rhythmische" ,0 ,1) ersetze( " ueber", " über" ,0 ,1) ;ersetze( " umfaßt", " umfasst" ,0 ,1) ;ersetze( " umfaßte", " umfasste" ,0 ,1) ersetze( " umgangsprachlich", " umgangssprachlich" ,0 ,1) ersetze( " umgangsprachliche", " umgangssprachliche" ,0 ,1) ersetze( " umgangsprachlicher", " umgangssprachlicher" ,0 ,1) ersetze( " unabhänig", " unabhängig" ,0 ,1) ;ersetze( " unbeeinflußbar", " unbeeinflussbar" ,0 ,1) ;ersetze( " unbeeinflußt", " unbeeinflusst" ,0 ,1) ;ersetze( " unbewußt", " unbewusst" ,0 ,1) ersetze( " unterstütze ", " unterstützte " ,0 ,1) ersetze( " urspünglich", " ursprünglich" ,0 ,1) ersetze( " urspüngliche", " ursprüngliche" ,0 ,1) ersetze( " urspünglichen", " ursprünglichen" ,0 ,1) ersetze( " zumindestens", " zumindest" ,0 ,1) ;ersetze( " zusammengefaßt", " zusammengefasst" ,0 ,1) ersetze( " zusehens", " zusehends" ,0 ,1) ersetze( " Östereich", " Österreich" ,0 ,1) ersetze( " östereichisch", " österreichisch" ,0 ,1) ersetze( " östereichische", " österreichische" ,0 ,1) ersetze( " östereichischem", " österreichischem" ,0 ,1) ersetze( " östereichischen", " österreichischen" ,0 ,1) ersetze( " östereichischer", " österreichischer" ,0 ,1) ersetze( " östereichisches", " österreichisches" ,0 ,1) ersetze( " ürsprünglich", " ursprünglich" ,0 ,1) ersetze( " ürsprüngliche", " ursprüngliche" ,0 ,1) ersetze( " ürsprünglichen", " ursprünglichen" ,0 ,1) ersetze( " Industie", " Industrie" ,0 ,1) ersetze( " Interresse", " Interesse" ,0 ,1) ersetze( " Sattelit", " Satellit" ,0 ,1) ;ersetze( " chloß", " chloss" ,0 ,1) ;Schloss ;ersetze( " Schluß", " Schluss" ,0 ,1) ersetze( " Schrifsteller", " Schriftsteller" ,0 ,1) ersetze( " Schrifstellerin", " Schriftstellerin" ,0 ,1) ersetze( " Schrifstellers", " Schriftstellers" ,0 ,1) ersetze( " Schriftseller", " Schriftsteller" ,0 ,1) ersetze( " Schriftsellerin", " Schriftstellerin" ,0 ,1) ;ersetze( " Schuß", " Schuss" ,0 ,1) ersetze( " Stadteil", " Stadtteil" ,0 ,1) ersetze( " Stadteile", " Stadtteile" ,0 ,1) ersetze( " Stadteilen", " Stadtteilen" ,0 ,1) ersetze( " Stadteils", " Stadtteils" ,0 ,1) ersetze( " Standarts", " Standards" ,0 ,1) ersetze( " Stehgreif", " Stegreif" ,0 ,1) ersetze( " Stellverteter", " Stellvertreter" ,0 ,1) ersetze( " Strasse", " Straße" ,0 ,1) ersetze( " Strukur", " Struktur" ,0 ,1) ersetze( " Sytem", " System" ,0 ,1) ersetze( " Syteme", " Systeme" ,0 ,1) ersetze( " Temparatur", " Temperatur" ,0 ,1) ersetze( " Tip ", " Tipp " ,0 ,1) ersetze( " Triologie", " Trilogie" ,0 ,1) ersetze( " Tryptichon", " Triptychon" ,0 ,1) ;ersetze( " Verlaß", " Verlass" ,0 ,1) ersetze( " Verläßlichkeit", " Verlässlichkeit" ,0 ,1) ;ersetze( " Verriß", " Verriss" ,0 ,1) ersetze( " Verschleiss", " Verschleiß" ,0 ,1) ;ersetze( " Verschluß", " Verschluss" ,0 ,1) ersetze( " Verständis", " Verständnis" ,0 ,1) ersetze( " Verteter", " Vertreter" ,0 ,1) ersetze( " Verwandschaft", " Verwandtschaft" ,0 ,1) ersetze( " Vormachtsstellung", " Vormachtstellung" ,0 ,1) ersetze( " Vorraussetzung", " Voraussetzung" ,0 ,1) ersetze( " Vorraussetzungen", " Voraussetzungen" ,0 ,1) ersetze( " Weisswein", " Weißwein" ,0 ,1) ersetze( " Wiederspruch", " Widerspruch" ,0 ,1) ersetze( " Wiedersprüche", " Widersprüche" ,0 ,1) ersetze( " Wiederstand", " Widerstand" ,0 ,1) ersetze( " Wilhem", " Wilhelm" ,0 ,1) ersetze( " Willhelm", " Wilhelm" ,0 ,1) ersetze( " Würtemberg", " Württemberg" ,0 ,1) ersetze( " i.d.R.", " i. d. R." ,0 ,1) ersetze( " idR", " i. d. R." ,0 ,1) ersetze( " in Englisch, in englisch", " auf Englisch" ,0 ,1) ersetze( " inbesondere", " insbesondere" ,0 ,1) ersetze( " inerhalb", " innerhalb" ,0 ,1) ersetze( " infiszieren", " infizieren" ,0 ,1) ersetze( " ingesamt", " insgesamt" ,0 ,1) ersetze( " insgesammt", " insgesamt" ,0 ,1) ersetze( " interresiert", " interessiert" ,0 ,1) ersetze( " interressiert", " interessiert" ,0 ,1) ersetze( " intressiert", " interessiert" ,0 ,1) ersetze( " s.a.", " siehe auch" ,0 ,1) ersetze( " schliessen", " schließen" ,0 ,1) ersetze( " schliesslich", " schließlich" ,0 ,1) ersetze( " schliesst", " schließt" ,0 ,1) ersetze( " seperat", " separat" ,0 ,1) ersetze( " seperate", " separate" ,0 ,1) ersetze( " seperaten", " separaten" ,0 ,1) ersetze( " slavisch", " slawisch" ,0 ,1) ersetze( " slavische", " slawische" ,0 ,1) ersetze( " slavischen", " slawischen" ,0 ,1) ersetze( " so genanten", " so genannten" ,0 ,1) ;ersetze( " sodaß", " sodass" ,0 ,1) ;ersetze( " sogenannt", " so genannt" ,0 ,1) ;ersetze( " sogenannte", " so genannte" ,0 ,1) ;ersetze( " sogenannten", " so genannten" ,0 ,1) ;ersetze( " sogenannter", " so genannter" ,0 ,1) ;ersetze( " sogenanntes", " so genanntes" ,0 ,1) ;ersetze( " sogenanten", " sogenannten" ,0 ,1) ersetze( " sonder ", " sondern " ,0 ,1) ersetze( " speziel ", " speziell " ,0 ,1) ersetze( " spühren", " spüren" ,0 ,1) ersetze( " spührt", " spürt" ,0 ,1) ersetze( " stossen", " stoßen" ,0 ,1) ersetze( " strukuriert", " strukturiert" ,0 ,1) ersetze( " strukurierte", " strukturierte" ,0 ,1) ersetze( " stösst", " stößt" ,0 ,1) ersetze( " svw", " soviel wie" ,0 ,1) ersetze( " sächsich", " sächsisch" ,0 ,1) ersetze( " sächsiche", " sächsische" ,0 ,1) ersetze( " sächsichen", " sächsischen" ,0 ,1) ;ersetze( " verfaßt", " verfasst" ,0 ,1) ;ersetze( " verfaßte", " verfasste" ,0 ,1) ;ersetze( " verfaßten", " verfassten" ,0 ,1) ersetze( " verhaeltnismaessig", " verhältnismäßig" ,0 ,1) ersetze( " verhältnismässig", " verhältnismäßig" ,0 ,1) ersetze( " verliess", " verließ" ,0 ,1) ;ersetze( " verläßlich", " verlässlich" ,0 ,1) ;ersetze( " verläßt", " verlässt" ,0 ,1) ;ersetze( " verpaßt", " verpasst" ,0 ,1) ersetze( " verspühren", " verspüren" ,0 ,1) ersetze( " verspührt", " verspürt" ,0 ,1) ersetze( " verwand ", " verwandt " ,0 ,1) ersetze( " vetrag", " vertrag" ,0 ,1) ersetze( " vieleicht", " vielleicht" ,0 ,1) ersetze( " vorallem", " vor allem" ,0 ,1) ersetze( " vorkommene", " vorkommende" ,0 ,1) ersetze( " vorraus", " voraus" ,0 ,1) ersetze( " vorrausgesetzt", " vorausgesetzt" ,0 ,1) ersetze( " vorraussetzen", " voraussetzen" ,0 ,1) ersetze( " vorraussetzt", " voraussetzt" ,0 ,1) ersetze( " vorrübergehend", " vorübergehend" ,0 ,1) ersetze( " vorrübergehende", " vorübergehende" ,0 ,1) ersetze( " vorrübergehenden", " vorübergehenden" ,0 ,1) ersetze( " warscheinlich", " wahrscheinlich" ,0 ,1) ersetze( " weiss ", " weiß " ,0 ,1) ersetze( " weisse ", " weiße " ,0 ,1) ersetze( " weissem", " weißem" ,0 ,1) ersetze( " weissen", " weißen" ,0 ,1) ersetze( " weisser", " weißer" ,0 ,1) ersetze( " weisses", " weißes" ,0 ,1) ersetze( " wiedersprechen", " widersprechen" ,0 ,1) ersetze( " wiedersprechend", " widersprechend" ,0 ,1) ersetze( " wiedersprechende", " widersprechende" ,0 ,1) ersetze( " wiedersprüchlich", " widersprüchlich" ,0 ,1) ersetze( " wiedersprüchliche", " widersprüchliche" ,0 ,1) ersetze( " wiedersprüchlichen", " widersprüchlichen" ,0 ,1) ersetze( " wolen", " wollen" ,0 ,1) ersetze( " wolte", " wollte" ,0 ,1) ersetze( " währe ", " wäre " ,0 ,1) ersetze( " während dem", " während des" ,0 ,1) ersetze( " wärend", " während" ,0 ,1) ersetze( " würtembergische", " württembergische" ,0 ,1) endif ;SoundPlay("C:\Windows\media\ding.wav") EndFunc Func ersetze($wort1, $wort2, $sofort, $kommentar) Dim $resultat $resultat=0 $i=0 Do $i=$i+1 $test = 0 $test = StringInStr($text, $wort1) ;MsgBox(4, "Rechtschreibung", $wort1) if $test>0 then ;MsgBox(4, "Rechtschreibung", $wort1) Send("^f") WinWaitActive("Seite durchsuchen") WinMove("Seite durchsuchen", "", 0, 850 ) WinWait("Seite durchsuchen") Send($wort1) Send("{ENTER}") WinWaitActive("Seite durchsuchen") WinClose("Seite durchsuchen") if $sofort=0 then $resultat= MsgBox(4, "Rechtschreibung", "Soll der " & $wort1 & " umgewandelt werden in " & $wort2 & "?") else $resultat=6 endif if $resultat=6 then $Veraenderung=$Veraenderung+1 $a=34 $trenner =chr($a) if $i=1 and $kommentar=1 then $Veraenderungstext=$Veraenderungstext & Chr(34) & $wort1 & Chr(34) &"->" & Chr(34) & $wort2 & Chr(34) & ", " ClipPut ($wort2) WinWaitActive($Fenster) Send("^v") WinWaitActive($Fenster) Send("^a") WinWaitActive($Fenster) Send("^c") WinWaitActive($Fenster) $text=ClipGet() endif endif until $resultat=7 or $test=0 EndFunc