PureBoard

Verfasst: **30.04.2005 20:00**

Hat einer von euch schon mal sowas wie einen Übersetzer gecodet?
Ich möchte ein Prog schreiben, das jedes Zeichen in einem Satz überprüft und wenn eins von mehrerer besonderen Zeichen dabei sind, dieses in ein anderes umwandelt.

Habe mich schon daran versucht, aber bei mir wird nur immer ein Zeichen umgewandelt!

Bin für jede Hilfe dankbar

Verfasst: **30.04.2005 20:46**

Ich habe mal nen 1337 Converter und nen Own 1337 Language Maker gemacht wo man jedes Zeichen nen anderes zuweisen kann welches man dann beim Coder als Sprache nimmt dieser Wandelt z.B.

Hallo --> |-|4770

um.

Falls du sowas meinst?

Verfasst: **30.04.2005 20:59**

Genau sowas meine ich!
Hast du da vielleicht ein Code Schnipsel für mich?

Verfasst: **30.04.2005 21:04**

Schau mal das ist total einfach:

String einlesen aus Gadget lesen und übergeben
String A mit ?? ersetzen
String B mit ?? ersetzen
...
String Z mit ?? ersetzen
String wieder zurück geben
String in Gadget setzen

So wenn du das in PB jetzt umsetzt biste schon fertig

Befehle die du benötigst sind unter anderem
GetGadgetText()
SetGadgetText()
ReplaceString()

Es nützt dir mehr wenn du es selber macht

Verfasst: **30.04.2005 21:59**

Irgendwie krieg ich das nicht gebacken, irgendwas mach ich falsch!

Code: Alles auswählen

str$ = GetGadgetText(#String_0)
          
            ReplaceString(str$, "A", "5", 1)
            ReplaceString(str$, "C", "12", 1)                 
            ReplaceString(str$, "D", "4", 1)          
            
            str$ = nstr$
            
          SetGadgetText(#String_0, nstr$)

Verfasst: **30.04.2005 22:05**

Code: Alles auswählen

str$ = nstr$

Das ganz rauslassen und nur str$ verwenden oder
die Zuweisung richtig rum machen:

Code: Alles auswählen

nstr$ = str$

Verfasst: **30.04.2005 22:35**

Das hilft auch nix!

Wenn ich allerdings

Code: Alles auswählen

nstr$ = ReplaceString(str$, "A", "5", 1)

schreibe, funktioniert die Sache!

Allerdings bloß mit dem einen Buchstaben!

Wie funktioniert das jetzt für alle Buchstaben??

Verfasst: **30.04.2005 22:40**

Code: Alles auswählen

str$ = GetGadgetText(#String_0) 
nstr$ = ReplaceString(str$, "A", "5", 1) 
nstr$ = ReplaceString(nstr$, "C", "12", 1)                  
nstr$ = ReplaceString(nstr$, "D", "4", 1)          
SetGadgetText(#String_0, nstr$)

MFG Lukaso

Verfasst: **30.04.2005 22:45**

Danke Lukaso!

Da hätte ich auch selber drauf kommen können!

Verfasst: **30.04.2005 22:48**

sim0n hat geschrieben:Allerdings bloß mit dem einen Buchstaben!

Wie funktioniert das jetzt für alle Buchstaben??

Code: Alles auswählen

str$ = "ABA Hall0! DAT IS JA COOL"
str$ = ReplaceString(str$, "A", "4" , 1)
str$ = ReplaceString(str$, "B", "8" , 1)
str$ = ReplaceString(str$, "C", "[" , 1)
str$ = ReplaceString(str$, "D", "|>", 1)
str$ = ReplaceString(str$, "E", "3" , 1)
str$ = ReplaceString(str$, "I", "*" , 1)
str$ = ReplaceString(str$, "O", "0" , 1)

MessageRequester("INFO",str$)

Am besten Du machst eine Liste oder ein Array um das dann
einfach in einer Schleife abzuarbeiten.

PureBoard

Übersetzer coden

Übersetzer coden