异步输入 -- 工作因为vb更精彩-- 编程爱好者博客

可以使用OPEN语句用随机方式打开文本文件，用GET语句将每个字符读入一个BYTE变量，逐个判断BYTE变量的ASCII码值是否为特殊字符，是则连续读入几个字符。
参考程序：
    Dim strFileName As String
    Dim iFileNum As Integer
    Dim strData As Byte

    cmDlg.Filter = "文文本文件（*。TXT）|*.txt|所有文件（*.*）|*.*"
    cmDlg.ShowOpen
    strFileName = cmDlg.FileName
    If Len(strFileName) > 0 Then
        iFileNum = FreeFile
        Open strFileName For Random As #iFileNum Len = 1
        Do While Not EOF(iFileNum)
            Get #iFileNum, , strData
            Debug.Print Chr(strData)
        Loop
    End If

博客介绍

正文

异步输入2005-09-27 13:41:00

评论