Function HexLC(s As String) As String Dim m, source As MemoryBlock Dim k, mpos, size, b As Integer Static mHexCode As MemoryBlockIf (mHexCode Is Nil) Then mHexCode = NewMemoryBlock(16) mHexCode.Byte(0) = &h30 mHexCode.Byte(1) = &h31 mHexCode.Byte(2) = &h32 mHexCode.Byte(3) = &h33 mHexCode.Byte(4) = &h34 mHexCode.Byte(5) = &h35 mHexCode.Byte(6) = &h36 mHexCode.Byte(7) = &h37 mHexCode.Byte(8) = &h38 mHexCode.Byte(9) = &h39 mHexCode.Byte(10) = &h61 mHexCode.Byte(11) = &h62 mHexCode.Byte(12) = &h63 mHexCode.Byte(13) = &h64 mHexCode.Byte(14) = &h65 mHexCode.Byte(15) = &h66 End If size = s.LenB - 1 if s.LenB < 1 then return "" source = s m = NewMemoryBlock(source.Size * 2) For k = 0 To size m.Byte(mpos) = mHexCode.Byte(source.Byte(k) \ 16) m.Byte(mpos + 1) = mHexCode.Byte(source.Byte(k) Mod 16) mpos = mpos + 2 Next Return DefineEncoding(m.StringValue(0, m.size), Encodings.ASCII) End Function
Thanks, Phil! That worked perfectly. -- Chris Jett [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>
