Benutzer:Sk-Bot
Zur Navigation springen
Zur Suche springen
Dieser Benutzer ist ein Bot mit gültigem Bot-Flag. Er wird von Stefan Kühn betrieben.
|
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.
Aufgaben[Bearbeiten | Quelltext bearbeiten]
Primäre Aufgaben[Bearbeiten | Quelltext bearbeiten]
- 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)
Sekundäre Aufgaben[Bearbeiten | Quelltext bearbeiten]
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]]
Prot[Bearbeiten | Quelltext bearbeiten]
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'''
Funktion[Bearbeiten | Quelltext bearbeiten]
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.
|
APPERbot • BeriBot • CactusBot • CamelBot • CommonsDelinker • CountCountBot • Dateientlinkerbot • EmausBot • ElBe Bot • ErfgoedBot • FNBot • Harrobot • InkoBot • InternetArchiveBot • JogoBot • Krdbot • LarusBot • ListeriaBot • Luke081515Bot • MsynBot • Revert-Statistik • SignaturBot • SpBot • TabellenBot • TaxonBot • TaxonBota • TaxonKatBot • ThornardsBot • UpBot • WartungslistenBot • Wdwdbot • WosretBot • Xqbot • YiFeiBot |
Quellcode[Bearbeiten | Quelltext bearbeiten]
Neuer Quellcode[Bearbeiten | Quelltext bearbeiten]
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.
Alter Quellcode[Bearbeiten | Quelltext bearbeiten]
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