PureBoard

Code: Alles auswählen

;{- Information :: Für PB V4.x und PB 3.94
; Autor : Folker Linstedt
; Inhalt: Wort-Analyse
; Beginn: 17.05.2006
; Stand : 17.05.2006
;}/

;{- Deklaration
Eingabe.s ; Text-Eingabe

Ausnahme.b; Boolean für Ausnahmen

; Modale Verben, können mit Zusatzwerben benutzt werden:
; Ausnahmen: Verben mit Umlauten: dürfen, können, müssen
;             weitere : sollen, wollen

; Andere Ausnahmen: Laufen, saufen, ... (Die dummen Umlaute!) Aber ebm nicht kaufen

; Ausnahmen ohne Regel: sein, haben

Dim Worte.s(8) ; Stamm, Ich, Du, Er, Sie, Es, Wir, Ihr, Sie
Dim PersPron.s(8); PersonalPronomen

PersPron(0)="Stamm"
PersPron(1)="ich"
PersPron(2)="du "
PersPron(3)="er "
PersPron(4)="sie"
PersPron(5)="es "
PersPron(6)="wir"
PersPron(7)="ihr"
PersPron(8)="sie"

;}/

OpenConsole()
PrintN(":: WortDingli Simple V.0.1, (c) 2006 by Folker Linstedt")
PrintN("::")
PrintN(":: Bitte geben Sie ein Tu(n)-Wort in seiner Grundform in der Gegenwartsform ... ::")
PrintN(":: ... bzw. ein Verb im Infinitiv im PrAesens ein                               ::")
PrintN("")
Print("Eingabe: "): Eingabe=Input() ; Keine weitere Überprüfung
;PrintN(""); für PB 3.94 notwendig, da Input nicht allein in die Nächste Zeile springt
PrintN("")

Ausnahme=0; Ausnahmen müssten in einer Datenbank aufgenommen werden


If Eingabe="sein"
  Worte(1)="bin"
  Worte(2)="bist"
  Worte(3)="ist"
  Worte(6)="sind"
  Worte(7)="seit"
  Ausnahme=1
EndIf

; Folgenden 3 Zeilen sollen aus Umgangssprache Hochdeutsch mach'n
If Mid(Eingabe,Len(Eingabe)-1,1)<>"e"
  Eingabe=Left(Eingabe,Len(Eingabe)-1)+"en"
EndIf

If Eingabe="haben"
  Worte(1)="habe"
  Worte(2)="hast"; Statt "habst"
  Worte(3)="hat"; Statt "habt"
  Worte(6)="haben"
  Worte(7)="habt"
  Ausnahme=1
EndIf

If Eingabe="sollen" ; Ausnahmen mit Umlauten sind irgendwie umständlicher in der Console
  Worte(0)=Left(Eingabe,Len(Eingabe)-2); Stamm für Mehrzahl
  Worte(1)="soll"; Stamm ... bei dürfen -> darf, bei müssen -> muss, bei wollen -> will
  Worte(2)=Worte(1)+"st"
  ; -> bei musst fällt ein "s" weg, weil drei auf einander folgen, und es kein
  ;  zusammengesetztes Substantiv ist wie bei Schlosssickergrube, Schifffahrt
  Worte(3)=Worte(1); Wie "ich"
  Worte(6)=Eingabe
  Worte(7)=Worte(0)+"t" ; diesmal nicht wie "Er"
  Ausnahme=1
EndIf
  

If Ausnahme=0  
  Worte(0)=Left(Eingabe,Len(Eingabe)-2); Macht aus "gehen" -> "geh"
  
  Worte(1)=Worte(0)+"e"
  Worte(2)=Worte(0)+"st"
  Worte(3)=Worte(0)+"t"
  
  Worte(6)=Worte(0)+"en"
  Worte(7)=Worte(0)+"t" ; meist wie er, aber ebm nicht immer >> Ausnahmen
EndIf

Worte(4)=Worte(3) ; "Sie" ist wie "Er"
Worte(5)=Worte(3) ; "Es"  ist wie "Er"
Worte(8)=Worte(6) ; "Sie" ist wie "wir"

For i=1 To 8 ; Auch wenn Wir/Sie und Er/Sie/Es gleich sind, ist es für die Ausgabe einfacher
  PrintN("  "+PersPron(i)+" "+Worte(i))
Next

Input() ; Warte bis Enter

Code: Alles auswählen

;{- Information :: Für PB V4.x und PB 3.94
; Autor : Folker Linstedt
; Inhalt: Wort-Analyse
; Beginn: 17.05.2006
; Stand : 18.05.2006
;}/

;{- Deklaration
Eingabe.s ; Text-Eingabe

Ausnahme.b; Boolean für Ausnahmen

; Modale Verben, können mit Zusatzwerben benutzt werden:
; Ausnahmen: Verben mit Umlauten: dürfen, können, müssen
;             weitere : sollen, wollen

; Andere Ausnahmen: Laufen, saufen, ... (Die dummen Umlaute!) Aber ebm nicht kaufen

; Ausnahmen ohne Regel: sein, haben


; Das Global muss bei PB 3.94 wieder entfernt werden!!!
Global Dim Worte.s(8) ; Stamm, Ich, Du, Er, Sie, Es, Wir, Ihr, Sie
Global Dim PersPron.s(8); PersonalPronomen
Global Dim Vokale.s(4); Dim Vokale.c(4) wegen der PB 3.94 Kompatibilität, aber ohne Global
; Vokale + Umls
Global Dim Umls.s(2); Umlaute von Vokalen getrennt, weil sie unter der Console anders erkannt werden

PersPron(0)="Stamm"
PersPron(1)="ich"
PersPron(2)="du "
PersPron(3)="er "
PersPron(4)="sie"
PersPron(5)="es "
PersPron(6)="wir"
PersPron(7)="ihr"
PersPron(8)="sie"

Vokale(0)="a" ; Reihenfolge normalerweise: a, e, i, o, u
Vokale(3)="e"
Vokale(4)="i" ; Wegen den Umls, sind jedoch die ersten drei a, o, u
Vokale(1)="o"
Vokale(2)="u"

Umls(0)="ä" ; -> hier müssen die richtigen Codes für die Umlaute eingesetzt werden
Umls(2)="ö"
Umls(2)="ü"; Später müsste es vielleicht noch
; "au"'s, "äu"'s, "eu"'s, "ai"'s, und "ei"'s geben
;>> Enge Verknüpfung mit der Sprachausgabe.
;>> WörterBuch müsste Aussprache, Sinn und visuelle Darstellung
;>> des Wortes, der Gruppe speichern. Sinn -> mit anderen Worten verknüpfen
;}/

Procedure.b VokaKuck(s.s); Schaut, ob ein Vokal oder ein Uml in der Zeichenkette vorkommt
  Dings.b=0
  For o=0 To 4
    If FindString(s,Vokale(o),1)<>0
      Dings+1
    EndIf
  Next
  For o=0 To 2
    If FindString(s,Umls(o),1)<>0
      Dings+1 ; Urml aus dem Ei
    EndIf  
  Next 
  ProcedureReturn Dings 
EndProcedure


OpenConsole()
PrintN(":: WortDingli Simple V.0.1, (c) 2006 by Folker Linstedt")
PrintN("::")
PrintN(":: Bitte geben Sie ein Tu(n)-Wort in seiner Grundform in der Gegenwartsform ... ::")
PrintN(":: ... bzw. ein Verb im Infinitiv im PrAesens ein                               ::")
PrintN("")
Print("Eingabe: "): Eingabe=Input() ; Keine weitere Überprüfung
;PrintN(""); für PB 3.94 notwendig, da Input nicht allein in die Nächste Zeile springt
PrintN("")

Ausnahme=0; Ausnahmen müssten in einer Datenbank aufgenommen werden

Satz.s

Satz=Eingabe+" "; + " " für Wort-Erkennung!

WortZahl=CountString(Satz, " ") 

Dim Wort.s(WortZahl) 
p.l=-1

For i=0 To WortZahl 
  If VokaKuck(StringField(Satz,i," "))<>0
    p+1
    Wort(p) = StringField(Satz,i," ")   
  EndIf 
Next ; Okay, es klappt, aber fragt mich nicht warum


For i=1 To WortZahl ; Auch wenn Wir/Sie und Er/Sie/Es gleich sind, ist es für die Ausgabe einfacher
  PrintN("  "+Wort(i))
Next

Input() ; Warte bis Enter