主题：正则式求助

string="旧报纸是否是可回收物。(?否?)?2．废旧的家具（桌椅、沙发、床垫）是大件垃圾，大件垃圾是否属于干垃圾。（?是?）? 3．旧鞋子属于可回收物。(?否?) ?"

请问如何用正则式匹配（是）与（否）,以下代码好像不能全部匹配出来，pattern如何写？

dim st as string =="旧报纸是否是可回收物。(?否?)?2．废旧的家具（桌椅、沙发、床垫）是大件垃圾，大件垃圾是否属于干垃圾。（?是?）? 3．旧鞋子属于可回收物。(?否?) ?"

dim p as string = ".*(?=\(\s*[\u4e00-\u9fa5]\s*\))"

'Do While len(trim(MyRange.text))>1
   ' m=m+1

         Dim rgx = new System.Text.RegularExpressions.Regex(p,System.Text.RegularExpressions.RegexOptions.IgnoreCase)

         messagebox.show(rgx.Replace(st, ""))
         'messagebox.show(rgx.Replace(MyRange.text, ""))

 

以上？处其实为空格 ，发上来后，怎么全变成了问号了

请问要匹配出文字串中的“（是）”与“（否）”，如何写正则表达式，pattern如何写？

 这个 pattern写法是什么语法？应该是.net的正则语法吧，与vba的一样吧。可是"\(*.[是|否] *.\)"写法有点不一样。我的写法“\(\s*[\u4e00-\u9fa5]\s*\))"有什么问题？

问题：将word中的文本内容复制出来放到命令窗口中作为字符串测试，For Each  match 可以全部输出。

然而，直接引用word文档（如Dim MyRange As object=Doc.content,通过MyRange.text来直接引用文本字符串，For Each  match 却失败，没有匹配输出。

axWebBrowser = Nothing
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "word文件|*.doc;*.docx|txt文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮
    Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol
    web.Navigate(dlg.FileName)
    Do Until axWebBrowser IsNot Nothing
        Application.DoEvents
    Loop
   
    Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
    Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
    vars("doc") = oDocument
End If

Dim Doc = vars("doc")
Dim MyRange As object=Doc.content

Dim Ori() As String = {"\(*.[是|否] *.\)"}                    '{"(\( *.*[是|否].* *\))+?"}    ' {".*(?=\(\s*[\u4e00-\u9fa5]\s*\))"}

Do While len(MyRange.text)>1
         Dim p As String= Ori (0)  
        Dim rgx = new System.Text.RegularExpressions.Regex(p,System.Text.RegularExpressions.RegexOptions.IgnoreCase)
        messagebox.show(rgx.Replace(MyRange.text, ""))

loop

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

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

文档上传

文档

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