Private Function AscToChar(ByVal sAsc As String) As String Dim iLen As Integer Dim i As Integer On Error GoTo err_Trans AscToChar = "" iLen = CInt(Len(sAsc) / 2) For i = 0 To iLen - 1 If CInt("&H" & Mid(sAsc, i * 2 + 1, 2)) < &H20 Then AscToChar = "" Exit Function Else AscToChar = AscToChar & Chr(CInt("&H" & Mid(sAsc, i * 2 + 1, 2))) End If Next iexit_Trans: Exit Functionerr_Trans: AscToChar = "" Resume exit_Trans End Function
- 2 回答
- 0 关注
- 642 浏览
添加回答
举报
0/150
提交
取消