String to Ascii

[Radsam]

Is there a UDF for converting a string to ascii?

[Radsam]

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