以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  rtf文件和word文档读出来是乱码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43275)
--  作者：jsq96jg
--  发布时间：2013/12/3 15:52:00
--  rtf文件和word文档读出来是乱码

我想把一堆rtf文件和word文档读到数据列备注字段中，只能读出乱码？帮助文件里的各种编码都试过，还是不行，请教请教！

For Each wj As Row In Tables("文件").Rows
    If wj("发文字号")<>Nothing Then
    For Each File As String In FileSys.GetFiles("i:\\vb\\文件\\")
        If file.contains(wj("发文字号"))=True Then
output.show(wj("发文字号") & "  " & file)
            Dim s As String = FileSys.ReadAllText(file)
            wj("文件内容")=s
        End If
    Next   
End If
Next
--  作者：Bin
--  发布时间：2013/12/3 15:58:00
--  
呵呵,WORD 和 RTF 文档是不能这样读取的.
--  作者：有点甜
--  发布时间：2013/12/3 20:52:00
--  
 word的读取，可参考下
--  作者：jsq96jg
--  发布时间：2013/12/4 9:05:00
--  

谢谢！那rtf怎么办呢？
--  作者：Bin
--  发布时间：2013/12/4 9:08:00
--  
尝试使用相同的方法看看.