Author Topic: String to Number... ONE Number. (Read 8954 times)

bfr · « **Reply #15 on:** November 07, 2009, 02:23:41 pm »

You could do something like this:

Before you encode/decode:

"ABCDEFGHIJKLMNOPQRSTUVWXYZ ->Str2

To encode (input string in Str1, ouput number in Ans):

Code: [Select]

0
For(A,1,length(Str1
Ans+28^AinString(Str2,sub(Str1,A,1
End

To decode (input number in B, output string in Str3):

Code: [Select]

" ->Str3
For(A,2,12
int(28fPart(B/28^A
If Ans
Str3+sub(Str2,Ans,1->Str3
End

Then you could do sub(Str3,2,length(Str3)-1->Str3 to get rid of the space at the beginning.

In For(A,2,12 ,12 would be the maximum length of the string you'd expect. I don't imagine these strings would be very long, or else accuracy would be lost fairly quickly (and then you'd get overflow errors too if they were over 69 characters or so). You could also do a While loop or have a condition that exits the loop if int(28fPart(B/28^(A equals 0 too. It could be rewritten many ways, such as even (I think this would work):

Code: [Select]

" ->Str3
1
For(A,2,99
Str3+sub(Str2,Ans,1->Str3
int(28fPart(B/28^A
If Ans
End

This would make the loop exit as soon as the number is finished being converted, while still using a For loop and not a While loop. In this case you'd do sub(Str3,3,length(Str3)-2->Str3 to eliminate the stuff at the beginning.

Again, the main problem with this method would be possible loss of accuracy when calculating these really large numbers (the root of this problem would exist for pretty much any other string <-> number encoder/decoder because of the limit of how many digits the calculator stores - there are other more complicated methods such as using complex numbers to increase the limit, but not extremely significantly). You could use base 27 instead of base 28 if you want by subtracting 1 from inString(Str2,sub(Str1,A,1 before multiplying it by 27^A, but I don't think it would matter much.

jsj795 · « **Reply #16 on:** November 07, 2009, 02:43:13 pm »

I got Data Type error in encoding... can't try out decoding if i can't encode

bfr · « **Reply #17 on:** November 07, 2009, 02:46:44 pm »

Oh, sorry, I forgot to include the first line of my code. The encoding one should be:

Code: [Select]

0
For(A,1,length(Str1
Ans+28^AinString(Str2,sub(Str1,A,1
End

I'm going to update my previous post too.

jsj795 · « **Reply #18 on:** November 07, 2009, 03:42:34 pm »

I am uploading my program.
I think it's bug-free, but if you find one, tell me~
Oh, and when the string length goes over 10, it loses its accuracy

Raylin · « **Reply #19 on:** November 08, 2009, 09:52:56 pm »

Mine's is a bit larger.
But, it keeps its accuracy after 10 characters and it can be as large as memory allows.
And it supports lower-case letters.

Hopefully, bug-free.
Might be slow.

Credit to me if you use please.

You may use the alternate name Raylin if you need to.

jsj795 · « **Reply #20 on:** November 09, 2009, 10:02:31 am »

My decoding is slow too, especially if you have Z in the string.
I am not at home right now, so can't download, will do it later~
For TLM, I at first decided to not use name, but through my program, will include naming once more, now with encoding and decoding haha
Thanks to you Prophets!

Raylin · « **Reply #21 on:** November 09, 2009, 03:24:30 pm »

Off-hand, what is TLM?
I've seen in in your signature multiple times.

DJ Omnimaga · « **Reply #22 on:** November 09, 2009, 10:53:28 pm »

The Lost Map (some RPG he is working on ATM)

jsj795 · « **Reply #23 on:** November 10, 2009, 06:38:38 pm »

the Tale of the Lost Map to be exact, the RPG I'm making...

Author Topic: String to Number... ONE Number. (Read 8954 times)

bfr

Re: String to Number... ONE Number.

jsj795

Re: String to Number... ONE Number.

bfr

Re: String to Number... ONE Number.

jsj795

Re: String to Number... ONE Number.

Raylin

Re: String to Number... ONE Number.

jsj795

Re: String to Number... ONE Number.

Raylin

Re: String to Number... ONE Number.

DJ Omnimaga

Re: String to Number... ONE Number.

jsj795

Re: String to Number... ONE Number.