Zum Inhalt springen

Benutzer:Sk-Bot und Gary Becker: Unterschied zwischen den Seiten

aus Wikipedia, der freien Enzyklopädie
(Unterschied zwischen Seiten)
Inhalt gelöscht Inhalt hinzugefügt
VisuellWikitext
 
K -kat
 
Zeile 1: Zeile 1:
'''Gary Stanley Becker''' (* [[2. Dezember]] [[1930]] in [[Pottsville (Pennsylvania)|Pottsville]], [[Pennsylvania]]) ist ein [[Ökonom]] und [[Nobelpreis]]träger für Wirtschaft.
'''Sk-Bot''' ist ein halbautomatischer [[Bot]] der einfache Aufgaben übernimmt und vom [[Benutzer:Stefan Kühn]] betrieben wird.


Er hat zwei Schwestern, Wendy und Naralie, und einen Bruder, Marvin.
Er ist eigentlich ein [[AutoIt]]-Script ([http://www.hiddensoft.com/ www.hiddensoft.com]). Mit Autoit kann man ziemlich fix Skripte für Windows schreiben.


Mit vier oder fünf jahren zog er von Pottsyville nach [[Brooklyn]]. Dort hatte er in der Schule mehr Interesse an Sport als an sonstigem Unterricht. Mit 16 änderte sich die und er entdeckte sein Interesse für die Mathematik. Da er seinem Vater stets die neusten Wirtschaftsnachrichten vorlesen musste erlangte er auch Wissen über diesen Bereich, auch wenn er davon eher gelangweilt war.
Da der Sk-Bot auf Mediawiki als Bot angemeldet wurde, werden jetzt seine Änderungen nicht mehr auf der Seite "Letzte Änderungen" angezeigt.


In der [[Princeton University]] belegte er eher zufällig ein Kurs in Ökonomie; er war begeistert davon, vor allem von den mathematischen Zusammenhängen. Bald empfand er aber, dass die mathematischen Gleichungen die Probleme der Gesellschaft nicht wirklich darstellen oder gar zu lösen vermochten.
== Aufgaben ==
* Personenartikel einsortieren in [[:Kategorie:Mann]] oder [[:Kategorie:Frau]]
* häufige Tippfehler und [[Plenk]]s korrigieren
* Überschrift "Webseiten", "Externe Verweise" etc. in das übliche "Weblinks" umwandeln
* überflüssige Leerzeichen entfernen bei <nowiki>[[Kategorie: XYZ]]</nowiki>
* Berufskategorien und Nationalitäten einfügen; Falls möglich wird so eine Kategorie gesetzt, falls nicht möglich werden die Personen in die [[:Kategorie:Person]] einsortiert, und müssen dann von Hand feiner kategorisiert werden.
* erstellt eine Protokoll mit verdächtigen Artikeln bezüglich Datumsformatierung und HTML-Befehlen etc.


In seinem dritten Studienjahr wechselte er an die [[University of Chicago]]. Dort traf er 1951 zum ersten mal [[Milton Friedman]], in einem [[Mikroökonomie]]kurs. Dies weckte sein Interesse für die [[Volkswirtschaftslehre]] erneut. Nach seiner eigenen Aussage prägte Friedman seine weitere Laufbahn.
== Funktionsweise ==
Der Sk-Bot arbeitet eine Artikelliste der Reihe nach ab, indem er die Artikel ansurft und diese ergänzt bzw. korrigiert. Bei komplexen Aufgabestellungen hält er an und fragt über Dialogboxen nach der richtigen Vorgehensweise. So kann er z.B. bei sehr kurzen Artikeln mit wenig Text nicht automatisch daraus schließen ob es sich um eine Mann oder Frau handelt. Durch diese Halbautomatik ist der Sk-Bot sehr robust und bekommt auch schwierige Fälle ganz gut hin.


1957 wurde er Assistenzprofessor in [[Chicago]]. Sieben Jahre später heiratete er seine erste Frau mit welcher er zwei Töchter hatte; Judy und Catherine. 1970 starb seine Frau. 1980 heiratete er erneut; seine zweite Frau wurde Guity Nashat. 1985 beginnt er seine monatliche Kolumne in der ''[[Business Week]].
Grundsätzlich könnten so viele Probleme gelöst werden, aber derzeit werden nur Personenartikel bearbeitet.


Becker wies in seinen Arbeiten auf den ökonomischen Nutzen von [[Kind]]ern für ihre [[Eltern]] hin.
{{Navigationsleiste Wikipedia-Bots}}


Am [[13. Oktober]] [[1992]] erhielt er den [[Nobelpreis für Wirtschaftswissenschaften]].
== Quelltext ==
Hier ist der Quelltext (Stand 6. Januar 2005 ) falls jemand da was draus weiter entwickeln möchte. Oder selber eine Aufgabe erledigen möchte.


==Werke==
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.


*''The Economics of Discrimination'' (1971)
Ausschnitt aus der Datei Namensliste.txt
*''The Economic Approach to Human Behavior'' (1976)
Dániel_Berzsenyi
*''Human Capital: A Theoretical and Empirical Analysis, with Special Reference to Education'' (1993)
E._P._Sanders
*''The Economics of Life'' (deutsch ''Die Ökonomie des Alltags'') (1996)
Earl_Granville
*''Social Economics: Market Behavior in a Social Environment'' (2001)
Earl_Grey
Earl_Hooker


==Weblinks==
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) -- [[Benutzer:Stefan Kühn|sk]] 15:35, 2. Nov 2004 (CET)
<pre>
<nowiki>
;Diese Skript ergänzt die Kategorie Mann und Frau und durchsucht gleichzeitig noch nach Rechtschreib- und Tippfehlern.


*[http://home.uchicago.edu/~gbecker/ Beckers Webpräsenz an der University of Chicago]


[[Kategorie:Mann|Becker, Gary]]
;GLOBALE VARIABLEN
[[Kategorie:US-Amerikaner|Becker, Gary]]
Dim $Abarbeitungsliste ;Liste die abgearbeitet wird
[[Kategorie:Ökonom (20. Jh.)|Becker, Gary]]
Dim $Handarbeitsliste ;Liste der Artikel die nicht automatisch korrigiert werden konnten
[[Kategorie:Ökonom (21. Jh.)|Becker, Gary]]
Dim $Artikel ;Name des Artikels
[[Kategorie:Nobelpreisträger für Wirtschaftswissenschaften|Becker, Gary]]
Dim $Fenster ;Name des aktuellen Fensters
[[en:Gary Becker]]
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 ;


<!-- Bitte nicht loeschen!
Zur Erklaerung siehe [[Wikipedia:Personendaten]]-->


{{Personendaten|
;SCHALTER
NAME=Becker, Gary
Dim $Automatik ;Sollen nur Artikel automatisch korregiert werden? Ja=1 Nein=0
|ALTERNATIVNAMEN=
Dim $LangsamesInternet ;Lan=0 Modem=1
|KURZBESCHREIBUNG=US-amerikanischer [[Ökonom]] und [[Nobelpreis]]träger
Dim $LangsameWikipedia ;Lan=0 Modem=1
|GEBURTSDATUM=[[2. Dezember]] [[1930]]
Dim $Mann_und_Frau_testen ;Vorschläge=1 Keine Vorschläge=0
|GEBURTSORT=[[Pottsville (Pennsylvania)|Pottsville]], [[Pennsylvania]]
Dim $nur_Protokoll ;Nur Protokoll=1 Einträge in der Wikipedia speichern=0
|STERBEDATUM=
Dim $Kat_Person_rein ;Sollen bei Artikeln ohne Kategorie eine Personenkat rein? ;Ja=1 Nein=0
|STERBEORT=
$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("&auml;", "ä",0 ,1)
ersetze("&Auml;", "Ä",0 ,1)
ersetze("&ouml;", "ö",0 ,1)
ersetze("&Ouml;", "Ö",0 ,1)
ersetze("&uuml;", "ü",0 ,1)
ersetze("&Uml;", "Ü",0 ,1)
ersetze("&szlig;", "ß",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
</nowiki>
</pre>

Version vom 25. März 2005, 16:24 Uhr

Gary Stanley Becker (* 2. Dezember 1930 in Pottsville, Pennsylvania) ist ein Ökonom und Nobelpreisträger für Wirtschaft.

Er hat zwei Schwestern, Wendy und Naralie, und einen Bruder, Marvin.

Mit vier oder fünf jahren zog er von Pottsyville nach Brooklyn. Dort hatte er in der Schule mehr Interesse an Sport als an sonstigem Unterricht. Mit 16 änderte sich die und er entdeckte sein Interesse für die Mathematik. Da er seinem Vater stets die neusten Wirtschaftsnachrichten vorlesen musste erlangte er auch Wissen über diesen Bereich, auch wenn er davon eher gelangweilt war.

In der Princeton University belegte er eher zufällig ein Kurs in Ökonomie; er war begeistert davon, vor allem von den mathematischen Zusammenhängen. Bald empfand er aber, dass die mathematischen Gleichungen die Probleme der Gesellschaft nicht wirklich darstellen oder gar zu lösen vermochten.

In seinem dritten Studienjahr wechselte er an die University of Chicago. Dort traf er 1951 zum ersten mal Milton Friedman, in einem Mikroökonomiekurs. Dies weckte sein Interesse für die Volkswirtschaftslehre erneut. Nach seiner eigenen Aussage prägte Friedman seine weitere Laufbahn.

1957 wurde er Assistenzprofessor in Chicago. Sieben Jahre später heiratete er seine erste Frau mit welcher er zwei Töchter hatte; Judy und Catherine. 1970 starb seine Frau. 1980 heiratete er erneut; seine zweite Frau wurde Guity Nashat. 1985 beginnt er seine monatliche Kolumne in der Business Week.

Becker wies in seinen Arbeiten auf den ökonomischen Nutzen von Kindern für ihre Eltern hin.

Am 13. Oktober 1992 erhielt er den Nobelpreis für Wirtschaftswissenschaften.

Werke

  • The Economics of Discrimination (1971)
  • The Economic Approach to Human Behavior (1976)
  • Human Capital: A Theoretical and Empirical Analysis, with Special Reference to Education (1993)
  • The Economics of Life (deutsch Die Ökonomie des Alltags) (1996)
  • Social Economics: Market Behavior in a Social Environment (2001)


Personendaten
NAME Becker, Gary
KURZBESCHREIBUNG US-amerikanischer Ökonom und Nobelpreisträger
GEBURTSDATUM 2. Dezember 1930
GEBURTSORT Pottsville, Pennsylvania
Abgerufen von „https://de.wikipedia.org/w/index.php?title=Benutzer:Sk-Bot&oldid=5216771“