Jump to content
Sign in to follow this  
Radsam

String to Ascii

Recommended Posts

I think I figured it out...

Func _StringToAscii($strChar)
    Local $aryChar, $i, $iDec, $strAsc
    
    $aryChar = StringSplit($strChar, "")
    
    For $i = 1 To $aryChar[0]
        $iDec = Asc($aryChar[$i])
        $strAsc = $strAsc & $iDec
    Next
    
    If $strAsc = "" Then
        SetError(1)
        Return -1
    Else
        Return $strAsc
    EndIf
EndFunc

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...