使用VB解析ascll.exe的ASCII码

ascll.exe 是一个可执行文件,用于处理 ASCII码。若想用 VB 直接翻译其内容,可按以下方式操作:

  1. 使用 Shell 函数运行 ascll.exe:

    vb

    Shell "C:路径ascll.exe", vbNormalFocus

  2. 若需要读取其输出,可使用 CreateObject("WScript.Shell") 配合 Exec 方法:

    vb

    Dim output As String

    Dim shell As Object

    Set shell = CreateObject("WScript.Shell")

    Dim exec As Object

    Set exec = shell.Exec("C:路径ascll.exe")

    Do While Not exec.StdOut.AtEndOfStream

    output = output & exec.StdOut.ReadLine() & vbCrLf

    Loop

    MsgBox output

  3. 将输出字符串逐字符解析为 ASCII 码:

    vb

    Dim i As Integer

    For i = 1 To Len(output)

    Debug.Print Asc(Mid(output, i, 1))

    Next

exe 文件大小:20KB