See also ebooksgratis.com: no banners, no cookies, totally FREE.

CLASSICISTRANIERI HOME PAGE - YOUTUBE CHANNEL
Privacy Policy Cookie Policy Terms and Conditions
Benutzer:Sk-Bot – Wikipedia

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
  • 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.


[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


aa - ab - af - ak - als - am - an - ang - ar - arc - as - ast - av - ay - az - ba - bar - bat_smg - bcl - be - be_x_old - bg - bh - bi - bm - bn - bo - bpy - br - bs - bug - bxr - ca - cbk_zam - cdo - ce - ceb - ch - cho - chr - chy - co - cr - crh - cs - csb - cu - cv - cy - da - de - diq - dsb - dv - dz - ee - el - eml - en - eo - es - et - eu - ext - fa - ff - fi - fiu_vro - fj - fo - fr - frp - fur - fy - ga - gan - gd - gl - glk - gn - got - gu - gv - ha - hak - haw - he - hi - hif - ho - hr - hsb - ht - hu - hy - hz - ia - id - ie - ig - ii - ik - ilo - io - is - it - iu - ja - jbo - jv - ka - kaa - kab - kg - ki - kj - kk - kl - km - kn - ko - kr - ks - ksh - ku - kv - kw - ky - la - lad - lb - lbe - lg - li - lij - lmo - ln - lo - lt - lv - map_bms - mdf - mg - mh - mi - mk - ml - mn - mo - mr - mt - mus - my - myv - mzn - na - nah - nap - nds - nds_nl - ne - new - ng - nl - nn - no - nov - nrm - nv - ny - oc - om - or - os - pa - pag - pam - pap - pdc - pi - pih - pl - pms - ps - pt - qu - quality - rm - rmy - rn - ro - roa_rup - roa_tara - ru - rw - sa - sah - sc - scn - sco - sd - se - sg - sh - si - simple - sk - sl - sm - sn - so - sr - srn - ss - st - stq - su - sv - sw - szl - ta - te - tet - tg - th - ti - tk - tl - tlh - tn - to - tpi - tr - ts - tt - tum - tw - ty - udm - ug - uk - ur - uz - ve - vec - vi - vls - vo - wa - war - wo - wuu - xal - xh - yi - yo - za - zea - zh - zh_classical - zh_min_nan - zh_yue - zu -