I added the code below and it works great. Now I need to reverse the code to get the original string, and I am stumped. Maybe someone smarter than me, can give me a clue or head start on the code to get the original string back after it runs thru this code, Thanks, Kent
> Hey Kent, > > Here's the code segment that does it: > > lcReturn = [] > For I = 1 To Len(tcString) > lnAscii = Asc(Substr(tcString,I,1)) > ln1 = Int((lnAscii-1)/26) + 1 > ln2 = Iif(Mod(lnAscii,26)=0,26,Mod(lnAscii,26)) > lcReturn = lcReturn + Chr(64+ln1) + Chr(64+ln2) > Endfor > > You're basically splitting each char into 2 alpha. It doubles > the length of your string, :-( > > Henry > > Hint: Watch out for lnAscii = 0 > _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
