John, do you have a function to change the  pairs back to text?

Clive Beaton
Clive Beaton used Ask the Experts™
on
I had this question after viewing I need to convert a string into a string of decimals.
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Senior developer, analyst and customer assistance
Commented:
If you have used his TextToPair function it could by done as follows:
Public Function PairToText(InputString As String) As String
Dim tmpOutput As String
Dim strLen As Integer
Dim counter As Integer
strLen = Len(InputString)
For counter = 1 To strLen Step 2
tmpOutput = tmpOutput & CHR(CInt(Mid(InputString, counter, 2)) + 50)
Next
Debug.Print tmpOutput
PairToText = tmpOutput
End Function

Open in new window


Note that I've used 50 as value to add but if you used 30 as suggested in that q. you must change the value here too
tmpOutput = tmpOutput & CHR(CInt(Mid(InputString, counter, 2)) + 30)<---
John TsioumprisSoftware & Systems Engineer
Commented:
Just follow the code above...but i would insist on the custom mappings...more secure and better to handle...
Clive BeatonAccess Developer

Author

Commented:
Thank you both, very much.

Clive

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial