Foxtable(狐表)用户栏目专家坐堂 → 求助!ReadAllText方法读取word内容,乱码?


  共有2412人关注过本帖树形打印复制链接

主题:求助!ReadAllText方法读取word内容,乱码?

帅哥哟,离线,有人找我吗?
superman430
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1872 威望:0 精华:0 注册:2012/4/9 1:21:00
求助!ReadAllText方法读取word内容,乱码?  发帖心情 Post By:2018/3/9 20:51:00 [只看该作者]

如题,用ReadAllText方法读取word内容,不论设置什么Encoding类型,都是乱码!怎么办?

另外,求组高亮代码的意思,没学过VBA看不太懂

Dim app As New MSWord.Application
    try
        Dim doc = app.Documents.Open(dlg.fileName)
        Dim count = Doc.Characters.Count
        Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
        msgbox(rng.Text)
        Dim str As String = rng.text
        Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=裁定如下).*?(?=审  判  长)")
        If mc.count >= 1 Then
            msgbox("裁定")
            For i As Integer = 0 To mc.count-1
                msgbox(mc(i).value)
            Next
        Else
            mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=判决如下).*?(?=审  判  长)")
            If mc.count >= 0 Then
                msgbox("判决")
                For i As Integer = 0 To mc.count-1
                    msgbox(mc(i).value)
                Next
            Else
                msgbox("无法识别")
            End If
        End If
        app.Quit
    catch ex As exception
        msgbox(ex.message)
        app.Quit
    End try
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/9 21:00:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
superman430
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1872 威望:0 精华:0 注册:2012/4/9 1:21:00
  发帖心情 Post By:2018/3/9 21:06:00 [只看该作者]

谢谢,一目了然。不过word是不是不能用ReadAllText读取?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/9 21:20:00 [只看该作者]

肯定不能

 回到顶部