主题：怎样在一段文档中找到固定内容生成表

 这个用正则表达式轻松解决，楼主，你说明一下，哪些单词或者字符是不会变的。这个需要确定。

 嗯嗯，可以取出你想要的，但你得告诉大家你这段文字，哪些字母是固定不变的。

 比如这段，到命令窗口执行，截取大写的数字。

Dim data As String = "福建阿里上看到附件sdkfj零壹贰叁肆伍陆柒捌玖/吨控件"
Dim catchs As New System.Text.RegularExpressions.Regex("[\u96f6\u58f9\u8d30\u53c1\u8086\u4f0d\u9646\u67d2\u634c\u7396]+(/\u5428){1}")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
If mc.Count <> 0 Then
    msgbox(mc(0).Value.SubString(0, mc(0).Value.IndexOf("/")))
End If