Benutzer:Sk-Bot

aus Wikipedia, der freien Enzyklopädie
Zur Navigation springen Zur Suche springen
Dieser Benutzer ist ein Bot mit gültigem Bot-Flag. Er wird von Stefan Kühn betrieben.
  • Der Bot ist zurzeit außer Betrieb.
  • Sperre den Bot, falls er nicht korrekt funktioniert.
  • Kontrolliere die Arbeit des Bots.
  • Kontaktiere den Betreiber bei Fehlern.


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.

Primäre Aufgaben

[Bearbeiten | Quelltext bearbeiten]
  • 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)

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]]

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'''

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.


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