Hello Joe
well my code for convert the text in hex is this
dim cnt As Integer
dim Total As Integer
dim strHex As String
strHex = ""
Total = Len(Texto)
for cnt = 1 to Total
strHex = strHex + Hex(asc(Mid(texto, cnt, 1)))
next
return strHex
But I have problems with the code in the last email, because the extended
characters like áéíóúñ don't show well.
Thanks for your help.
Atte. Ing. José Andrés Morey
-------------------------------------------
[EMAIL PROTECTED]
[EMAIL PROTECTED]
www.auyantepui.com
At 06:03 p.m. 17/04/2006, you wrote:
At 3:51 PM -0400 4/17/06, José Andrés wrote:
When I try to convert the hex information in the File to string and later
to a folderitem with getrelative function, this folderitem is nil
I would guess that your string-to-hex and/or hex-to-string functions are
buggy.
Dim i, j As Integer
Dim Text As String
Dim TextConvert As string
j = Len(Hexadecimal)
For i = 1 To j Step 2
Text = Mid(Hexadecimal,i,2)
TextConvert = TextConvert + ChrB(Val("&h" + Text))
Next
Return TextConvert
This is reasonable. How are you converting the other direction?
Have you considered using EncodeBase64/DecodeBase65 instead?
Best,
- Joe
--
Joseph J. Strout
[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
