可以使用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

评论