求两个搜索子字符串的正则表达式

Question

还没弄好呀？都快一个月了。
1、
<script>
s = "This is 'a' test 'string'";
re = /(["'])([^'"]+)\1/g;
alert(s.match(re));
</script>2、
<span id=test>This is a string:"【aaa'('bbb')'ccc】"---'【mmm"("nnn")"ppp】'+++"【xxx'('yyy')'zzz】"。</span>
<script>
s = test.innerHTML;
re = /(?:")([^"]+)"|(?:')([^']+)'/g;
alert(s.match(re));
</script>

Answer 1

还没弄好呀？都快一个月了。
1、
<script>
s = "This is 'a' test 'string'";
re = /(["'])([^'"]+)\1/g;
alert(s.match(re));
</script>2、
<span id=test>This is a string:"【aaa'('bbb')'ccc】"---'【mmm"("nnn")"ppp】'+++"【xxx'('yyy')'zzz】"。</span>
<script>
s = test.innerHTML;
re = /(?:")([^"]+)"|(?:')([^']+)'/g;
alert(s.match(re));
</script>

Answer 2

我用vb做了一个希望对你有帮助Private Sub Command1_Click()
    
  Dim Tex As String
  Dim i As Integer
  Dim j As Integer
  Dim Temp As String
  Dim Substring As Integer
  Dim Char As String
  Dim Returns As String
  
  Tex = Text.Text
  
  
  Do
    Substring = 0
    i = InStr(Tex, "'")
    Substring = i
    Char = "'"
    j = InStr(Tex, """")   If (Substring > j) And (j > 0) Then
        Substring = j
        Char = """"
   Else
   
        MsgBox 不匹配
        Exit Sub
   End If    If Substring <> 0 Then
        i = InStr(Substring + 1, Tex, Char)
        Returns = Returns + Mid(Tex, Substring, i - Substring + 1) + "  "
        Tex = Mid(Tex, i + 1)
    End If
  Loop While (Substring <> 0)
  
  MsgBox Returns
   
End Sub

Answer 3

本来不抱什么希望了，就很久没再关心自己的帖子。没想到还有朋友们支持，多谢啊！ xuzuning(唠叨) 的代码我验证了一下，可以正常运行。 lyc98370118(小笨) 的我没有验证，因为我不用VBScript，不过还是多谢了。