String To Ascii Codes-ascii Codes To String.docx

  • Uploaded by: Hotland Sitorus
  • 0
  • 0
  • May 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View String To Ascii Codes-ascii Codes To String.docx as PDF for free.

More details

  • Words: 60
  • Pages: 1
Function AscEncode(str) Dim i Dim sAscii sAscii = "" For i = 1 To Len(str) sAscii = sAscii + CStr(Hex(Asc(Mid(str, i, 1)))) Next AscEncode = sAscii End Function

Function ChrEncode(str) Dim i Dim sStr sStr = "" For i = 1 To Len(str) Step 2 sStr = sStr + Chr(CLng("&H" & Mid(str, i, 2))) Next ChrEncode = sStr End Function

Related Documents


More Documents from ""