PureBasic Forums - English

Posted: **Sun Jul 31, 2005 3:30 am**

I want make a program for transform a letter in other. For Exemple. Transform all the "A" of a string in "I". How in the ZENIT POLAR.
Example. I have a sentence. "My Name is Valter"
Then in zenit polar is "My Limo as Vinrot"

Posted: **Sun Jul 31, 2005 6:32 am**

Are you really from Brazil? (I'm brazilian)

Use this procedure (by me!):

Code: Select all

Procedure.s zenit_polar(mystring.s)
mystring2.s=""
lenght=len(mystring)
for n=1 to lenght
ascii=asc(mid(mystring,n,1))
select ascii
case 90:ascii=80;  "Z" to "P"
case 69:ascii=79;  "E" to "O"
case 78:ascii=76;  "N" to "L"
case 73:ascii=65;  "I" to "A"
case 84:ascii=82;  "T" to "R"
case 122:ascii=112;  "z" to "p"
case 101:ascii=111;  "e" to "o"
case 110:ascii=108;  "n" to "l"
case 105:ascii=97;  "i" to "a"
case 116:ascii=114;  "t" to "r"
case 80:ascii=90;  "P" to "Z"
case 79:ascii=69;  "O" to "E"
case 76:ascii=78;  "L" to "N"
case 65:ascii=73;  "A" to "I"
case 82:ascii=84;  "R" to "T"
case 112:ascii=122;  "p" to "z"
case 111:ascii=101;  "o" to "e"
case 108:ascii=110;  "l" to "n"
case 97:ascii=105;  "a" to "i"
case 114:ascii=116;  "r" to "t"
endselect
mystring2=mystring2+chr(ascii)
next n
procedurereturn mystring2
endprocedure

a.s="Polar Zenit pOLAR zENIT"
debug a
a = zenit_polar(a)
debug a
a="My name is Valter"
debug a
a = zenit_polar(a)
debug a

Good luck!

Posted: **Sun Jul 31, 2005 8:17 pm**

Oh, Thanks Fou-Lu.
Your code work OK
-----
Yes. I'm Brazillian.

Posted: **Mon Aug 01, 2005 4:11 am**

You're welcome.

~*~
Where from Brazil?

Posted: **Tue Aug 02, 2005 10:01 pm**

Hi, Fou-lu.
I'm from Parana.
-----------------
Se você tiver o messenger, me adicione.

Posted: **Wed Aug 03, 2005 2:47 am**

I'm from Rio, I thought we could even know each other.

But Parana is a bit far...
Sorry, i don't have messager

But I'm always at the forums. You can also mail me!