Vorschläge zur Rechtschreibung im PureBoard

[ts-soft]

Vorschläge zur Rechtschreibung im PureBoard

Erster Schritt:

Wegfall der Großschreibung

- einer sofortigen einführung steht nichts mehr im weg, zumal schon viele
grafiker und werbeleute zur kleinschreibung übergegangen sind.

zweiter schritt:

wegfall der dehnungen & schärfungen

- dise masname eliminirt schon di gröste felerursache in der grundschule,
den sin oder unsin unserer konsonantenverdopelung hat onehin nimand
kapirt.

driter schrit:

v, ph ersetzt durch f
z ersetzt durch s
sch verkürzt auf s

- das alfabet wird um swei buchstaben redusirt, sreibmasinen und
setsmasinen fereinfachen sich, wertfole arbeitskräfte könen der wirtsaft
sugefürt werden.

firter srit:

g, c, ch ersetst durch k
j, y ersetst durch i

- ietst sind son seks bukstaben auskesaltet, di sulseit kan sofort fon neun
auf swei iare ferkürtst werden, anstat aktsik prosent rektsreibunterikt
könen nütslikere fäker wi fisik, kemi oder auk reknen mer kepflekt
werden.

fünfter srit:

wekfal fon ä, ö, ü-seiken

- ales uberflusike ist ietst auskemertst, di ortokrafi wider slikt und einfak.
naturlik benotikt es einike seit, bis dise fereinfakung uberal riktik ferdaut
ist, fileikt ein bis swei iare. anslisend durfte als nekstes sil di fereinfakung
der nok swirikeren und unsinikeren kramatik anfisirt werden.

[Creature]

LoooooooL

[DW]

Dann code mal nen Übersetzer. Verstehe ja kaum was.

[winduff]

sehr schön

[AND51]

Wat'n Käse...

[DarkDragon]

Ich finde das hat eine verblüffende Ähnlichkeit mit den Sprachen aus skandinavischen Ländern.

[Kaeru Gaman]

ser kut!
und es wird bestimt di erkebnise der naksten
PISA-studie um lanken beser ausfalen lasen.

[NicTheQuick]

ikh find die ide tol!!1!!!1!!1!!!!1 wer sreibt das prokram mit dem man wieder ales surukkubersetsen kan?????!!?!!!!!1

Code: Alles auswählen

Procedure.s _LCase(String.s)
  Static first.l = 0, Dim Chars.c(255)
  Protected *c.Character, a.l
  
  If first = 0
    For a = 0 To 255
      Select a
        Case 65 To 90
          Chars(a) = a + 32
        Case 138, 140, 142
          Chars(a) = a + 16
        Case 159
          Chars(a) = 255
        Case 192 To 214
          Chars(a) = a + 32
        Case 216 To 222
          Chars(a) = a + 32
        Default
          Chars(a) = a
      EndSelect
    Next
    first = 1
  EndIf
  
  *c = @String
  While *c\c
    If *c\c <= 255
      *c\c = Chars(*c\c)
    EndIf
    *c + SizeOf(Character)
  Wend
  
  ProcedureReturn String
EndProcedure
Procedure.s NotDehnung(String.s)
  Protected result.s, *c.Character = @String, vokal.l = 0
  
  While *c\c
    If vokal = 0 Or Chr(*c\c) <> "h" : result + Chr(*c\c) : EndIf
    If FindString("aeiouäáàâéèêíìîöóòôüúùû", Chr(*c\c), 1) : vokal = 1 : Else : vokal = 0 : EndIf
    *c + SizeOf(Character)
  Wend
  
  ProcedureReturn result
EndProcedure
Procedure.s NotVerdopplung(String.s)
  Protected result.s, *c.Character = @String, lc.c
  
  lc = 0
  While *c\c
    If lc <> *c\c : result + Chr(*c\c) : EndIf
    lc = *c\c
    *c + SizeOf(Character)
  Wend
  
  ProcedureReturn result
EndProcedure

Procedure NotUmlaut(*String)
  Protected *c.Character = *String
  
  While *c\c
    If FindString("áàâä", Chr(*c\c), 1) : *c\c = 'a' : EndIf
    If FindString("éèê", Chr(*c\c), 1) : *c\c = 'e' : EndIf
    If FindString("íìî", Chr(*c\c), 1) : *c\c = 'i' : EndIf
    If FindString("óòôö", Chr(*c\c), 1) : *c\c = 'o' : EndIf
    If FindString("úùûü", Chr(*c\c), 1) : *c\c = 'u' : EndIf
    *c + SizeOf(Character)
  Wend
EndProcedure
Procedure.s TranslateNormal2Board(Text.s)
  ;Erster Schritt
  Text = _LCase(Text)
  
  ;Zweiter Schritt
  Text = ReplaceString(Text, "ss", "s")
  Text = ReplaceString(Text, "ß", "s")
  Text = NotDehnung(Text)
  Text = NotVerdopplung(Text)
  
  ;Dritter Schritt
  Text = ReplaceString(Text, "v", "f")
  Text = ReplaceString(Text, "ph", "f")
  Text = ReplaceString(Text, "z", "s")
  Text = ReplaceString(Text, "sch", "s")
  
  ;Vierter Schritt
  Text = ReplaceString(Text, "g", "k")
  Text = ReplaceString(Text, "c", "k")
  Text = ReplaceString(Text, "ch", "k")
  Text = ReplaceString(Text, "j", "i")
  Text = ReplaceString(Text, "y", "i")

  ;Fünfter Schritt
  NotUmlaut(@Text)
  
  ;Sechster Schritt
  Text = ReplaceString(Text, "!", "!!1!!!1!!1!!!!1")
  Text = RemoveString(Text, ",")
  Text = ReplaceString(Text, ".", "!!!1!!!!1!")
  Text = RemoveString(Text, ":")
  Text = ReplaceString(Text, ";", "!!!!!1!!")
  Text = RemoveString(Text, "-")
  Text = RemoveString(Text, "_")
  Text = ReplaceString(Text, "?", "?????!!?!!!!!1")
   
  ProcedureReturn Text
EndProcedure

Debug TranslateNormal2Board("Ich find die Idee toll! Wer schreibt das Programm, mit dem man wieder alles zurückübersetzen kann?")

[Franky]

Sag doch gleich, das du Niederländisch einführen willst

[#NULL]

ik habe sinfolerweise sonmal ankefanken niksekwiks kot su konfertiren, aba erst di erste proketur

Code: Alles auswählen

proketur.s _lkes(strink.s)
  statik first.l = 0, dim kars.c(255)
  protektet *c.karakter, a.l
 
  if first = 0
    for a = 0 tu 255
      selekt a
        kes 65 tu 90
          kars(a) = a + 32
        kes 138, 140, 142
          kars(a) = a + 16
        kes 159
          kars(a) = 255
        kes 192 tu 214
          kars(a) = a + 32
        kes 216 Tu 222
          kars(a) = a + 32
        difolt
          kars(a) = a
      endselekt
    nekst
    first = 1
  entif
 
  *c = @strink
  weil *c\c
    if *c\c <= 255
      *c\c = kars(*c\c)
    entif
    *c + seisof(karakter)
  went
 
  proketureturn string
entproketur