提取双引号中的字符串函数？自己写了个函数，有问题，请教！！

[zhenai0512]

提取一个字符串中第一次出现的双引号中的字符串，
例如：dim s
s=add"sdgsd"dgsadg"12155"
通过函数提取出来的字符串为：s=sdgsd
下面是自己写的函数，总是报错，请高人指教！
Function TiQu(wstr)
On Error Resume Next
Dim k
Dim m
m = 0
k = False
TiQu = ""
For i = 1 To Len(Trim(wstr))
If Mid(Trim(wstr), i, 1) = Chr(34) Then
k = True
m = m + 1
ElseIf k = True And m = 1 Then
TiQu = TiQu & Mid(Trim(wstr), i, 1)
ElseIf Mid(Trim(wstr), i, 1) = Chr(34) And m = 2 Then
Exit Function
Next i
End Function
%>
<%
response.write(TiQu(wstr))'调用函数打印出字符串
%>

[littlelam]

<%
dim s 
s="add""sdgsd""dgsadg""12155""" 
Function RegExpTest(strng)
  Dim regEx, Match, Matches         ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = """([^""]*)"""         ' 设置模式。
  regEx.IgnoreCase = True         ' 设置是否区分大小写。
  regEx.Global = True            ' 设置全局替换。
  Set Matches = regEx.Execute(strng)      ' 执行搜索。
  For Each Match in Matches         ' 遍历 Matches 集合。
	RegExpTest = Replace(Match.Value,"""","")
	Exit Function 
  Next
  RegExpTest = ""
End Function
Response.Write(RegExpTest(s))
%>

[zhenai0512]

谢了 我试试看

[littlelam]

<%
dim s 
s="add""sdgsd""dgsadg""12155""" 
Function RegExpTest(strng)
  Dim regEx, Match, Matches         ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = """([^""]*)"""         ' 设置模式。
  regEx.IgnoreCase = True         ' 设置是否区分大小写。
  regEx.Global = False            ' 设置全局替换。
  Set Matches = regEx.Execute(strng)      ' 执行搜索。
  For Each Match in Matches         ' 遍历 Matches 集合。
    RegExpTest = Replace(Match.Value,"""","")
    Exit Function 
  Next
  RegExpTest = ""
End Function
Response.Write(RegExpTest(s))
%>
regEx.Global = False '只匹配第一个

[zhenai0512]

要是我想匹配所有双引号内的字符串，并保存到一个数组里，怎么写呢？很感谢，刚那个函数通过了。

[zhenai0512]

我是想，把一个字符串中所有 <a href="" >谢谢</a> 中双引号中的字符串替换成别的字符串，
例如：dim s
s=<a href="shownew.asp?id=100">新闻</a>
通过函数：变成如下：
s=<a href="shownew.htm">新闻</a>

[littlelam]

<%
Function ReplaceTest(patrn,str1, replStr)
  Dim regEx
  Set regEx = New RegExp               ' 建立正则表达式。
  regEx.Pattern = patrn               ' 设置模式。
  regEx.IgnoreCase = True               ' 设置是否区分大小写。
  ReplaceTest = regEx.Replace(str1, replStr)         ' 作替换。
End Function
Response.Write(ReplaceTest("""([^""]*)""","<a href=""shownew.asp?id=100"">新闻</a>","""shownew.htm"""))
%>

[littlelam]

<%
Function ReplaceTest(patrn,str1, replStr)
  Dim regEx
  Set regEx = New RegExp               ' 建立正则表达式。
  regEx.Pattern = patrn               ' 设置模式。
  regEx.IgnoreCase = True               ' 设置是否区分大小写。
  regEx.Global = True  
  ReplaceTest = regEx.Replace(str1, replStr)         ' 作替换。
End Function
Response.Write(Server.HTMLEncode(ReplaceTest("""([^""]*)""","<a href=""shownew.asp?id=100"">新闻</a><a href=""shownew.asp?id=100"">新闻</a>","""shownew.htm""")))
%>

这样？

[jhwcd]

[Quote=引用 7 楼 littlelam 的回复:]
HTML code
<%
Function ReplaceTest(patrn,str1, replStr)
Dim regEx
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True
ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。
End Function
Response.Write(Server.HTMLEncode(ReplaceTest("""…
[/Quote]
就他的方法试试。

[zhenai0512]

太感谢了