主要是文本文件部分的操作，excel部分的操作好象资料还比较丰富，应该能够找到。谢谢。

可以使用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回一个2002年的帖。哎。。。。。。。过得真快