Übersetzer coden

[sim0n]

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

[Defmaster]

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?

[sim0n]

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

[Defmaster]

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

[sim0n]

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$)

[Andre]

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$ 

[sim0n]

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

[Lukaso]

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

[sim0n]

Danke Lukaso!

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

[Danilo]

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.