正则式求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 正则式求助

共有2463人关注过本帖树形打印复制链接主题：正则式求助

有点蓝

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/1 11:34:00 [只看该作者]

msgbox(MyRange.text) 显示什么内容？

foxtable1

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：2698 威望：0 精华：0 注册：2012/10/17 10:05:00

Post By：2020/4/1 11:59:00 [只看该作者]

msgbox(MyRange.text) 显示的内容是word文档内容，

messagebox.show(rgx.Replace(MyRange.text, ""))也是word文档内容（只有一处匹配到了，被“”替换），说明没有全部匹配

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/1 13:38:00 [只看该作者]

文档发上来测试

foxtable1

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：2698 威望：0 精华：0 注册：2012/10/17 10:05:00

Post By：2020/4/2 8:58:00 [只看该作者]

文档上传

foxtable1

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：2698 威望：0 精华：0 注册：2012/10/17 10:05:00

Post By：2020/4/2 8:59:00 [只看该作者]

文档

foxtable1

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：2698 威望：0 精华：0 注册：2012/10/17 10:05:00

Post By：2020/4/2 9:02:00 [只看该作者]

添加附件，上传附件后，页面没有出现文档。是哪里操作不对吗

[此贴子已经被作者于2020/4/2 9:04:11编辑过]

foxtable1

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：2698 威望：0 精华：0 注册：2012/10/17 10:05:00

Post By：2020/4/2 9:37:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:垃圾分类100道判断题0-4含答案.zip

foxtable1

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：2698 威望：0 精华：0 注册：2012/10/17 10:05:00

Post By：2020/4/2 10:30:00 [只看该作者]

蓝老师，上传了文档，请帮助测试

foxtable1

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：2698 威望：0 精华：0 注册：2012/10/17 10:05:00

Post By：2020/4/2 11:29:00 [只看该作者]

如果在窗口建立一个textbox控件,将word文档内空复制到textbox中，也无法按正则表达式进行匹配替换。在命令窗口，将word中文本字符串dim为string作为代码的一部分，就可以将匹配结果output.show出来。这是什么原因呀：正则表达式是同一个，字符串是同一个，只是位置不同，匹配结果就不一样。

有点蓝

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/2 13:20:00 [只看该作者]

有一大堆莫名其妙的字符

'''

Dim f As String = "d:\问题\垃圾分类100道.doc"

Dim app As New MSWord.Application

Dim Doc = app.Documents.Open(f)

Dim st As String = Doc.content.text

app.quit

st = st.replace(" ","").replace(chr(40),"（").replace("（","(").replace("）",")").replace(ChrW(160),"").replace("(是)","").replace("(否)","")

Dim pattern As String = "\(\s*.[是|否]\s*.\)|\(*.[是|否]*.\)"

Dim str As String = System.Text.RegularExpressions.Regex.Replace(st, pattern , "")

Output.Show(str)

[此贴子已经被作者于2020/4/2 13:19:45编辑过]

下一主题 >> << 上一主题

总数 20 上一页 1 2

主题：正则式求助