还没弄好呀?都快一个月了。
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>
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>
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>
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