How to convert a string to character?

[coconParticipant]

How do you convert a string character into an int character?

I tried casting but it does not work.

Also I tried indexing it as an array “a”[0]  also, it works, but it does not seem very good idea.

[codifiesParticipant]

you can only convert *one* character to a value

Monkey

[crayon-5cba84474fea5334468087 inline="true" ] Function Main() Local s:String="Abc" For Local ss:= Eachin s Print ss+","+Int(ss) Next End

1 2 3 4 5 6 7 8

[crayon-5cba84474fea5334468087 inline="true" ] Function Main() Local s:String="Abc" For Local ss:= Eachin s Print ss+","+Int(ss) Next End

[/crayon]

[Mark SiblyKeymaster]

“a”[0] is fine!

[DaniloParticipant]

s[0] is what Asc(s) is in BASIC programming languages.
If you like functions like Asc(), make it a function.

Calling an extra function like Asc() has some overhead,
and we don’t have Macro’s in MX2, but it can be helpful
in the process of learning and converting older codes.

[abakoboParticipant]

Yes it would be nice is thoses good old BASIC functions where included in std or any core module..

[codifiesParticipant]

…yeah macros would be useful…

anyone happen to know how to do the equivalent of chr$(n)

…edit $ ah those were the days…..

[DaniloParticipant]

> anyone happen to know how to do the equivalent of chr$(n)

It is

Monkey

s := String.FromChar(n)

1	s := String.FromChar(n)

If you like to make it a function for compatibility with some old code:

Monkey

Function Asc:Int(input:String, index:Int=0) Return input[index] End Function Chr:String(character:Int) Return String.FromChar(character) End Function Main() Local out:String For Local i := 1 To 255 out += Chr(i) Next Print out For Local i := 0 To 4 Print Asc("Hello",i) + " - " + Chr(Asc("Hello",i)) Next End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function Asc:Int(input:String, index:Int=0) Return input[index] End   Function Chr:String(character:Int)     Return String.FromChar(character) End   Function Main() Local out:String For Local i := 1 To 255 out += Chr(i)     Next          Print out          For Local i := 0 To 4     Print Asc("Hello",i) + " - " + Chr(Asc("Hello",i)) Next End

[codifiesParticipant]

..ah of course, thanks…

although I probably wouldn;t wrap in in an asc function what you’ve made there makes for a nice little example.

[Author]

Posts