VbScript Replace Function [SOLVED]

[cpkspikyhair]

Hey people! I'm working on an text-ASCII converter, and I have figured out most of the code on my own, but I am having some problems. For example, whenever I use the Len, Chr, and Mid functions to search for two-character clumps in the string and convert them, it is including ALL of the clumps, even the ones in the middle.

For example, let's say I need to convert this ASCII string into characters:

678075

In character form, it means "CPK". However, when I use my converter, it translates to:

CNP?K|

After toying with the converter, I realized something. The converter read the string differently than I wanted it to. Instead of reading "67,80,75", it read "67,78,80,07,75,5". I thought I could use the replace function to get rid of every other character in the string. Can someone help me achieve this?

Thanks in advance!

[3dgamer]

Hi there cpkspikyhair,

I don't know much about ASCII conversion, but I went to another site that had an ASCII converter and tested your "678075" number without using spaces and it came back with a null result. But when I added the spaces in between the numbers, it converted fine. It also seemed to convert it fine when I used "CPK", converting it back into the "678075" number.

So it seems like if numbers are used, spaces have to be honored.

But that is purely my guess.

Well, hope you get your problem resolved soon.

P.S. - This the online converter I used for testing your number - http://www.cs.carleton.edu/faculty/adalal/teaching/f05/107/applets/ascii.html

[ShadowHunter]

Hi,

Quickly wrote a snipped for you, didn't test it though but it should get you started

Code: Select all

Sub Decode(ASCII)
Dim Lenght, TextString, Counter

Lenght = Len(ASCII)

   For k = 1 to Lenght Step 2
      TextString = TextString & Chr(Mid(ASCII,k,2))
   Next

MsgBox "The decoded text is: " & TextString

End Sub


With best regards,

ShAdOwHuNtEr

[cpkspikyhair]

Thanks, ShAdOwHuNtEr. I'll test it tomorrow .

EDIT: Thank you so much! It worked!!

Also, I'd just like to point out that I used your trial & registration code as a reference for my converter, so thank you for your help!

[ShadowHunter]

Glad I could help