读书人

急怎么取小弟我要的字符串

发布时间: 2012-02-06 15:52:44 作者: rapoo

急,如何取我要的字符串
<IMG src="/UploadFile/11.jpg" border=0><IMG src="/UploadFile/232.jpg" border=0><IMG src="/UploadFile/4112.jpg" border=0>

上面我要取出到
/UploadFile/11.jpg
/UploadFile/232.jpg
/UploadFile/4112.jpg

并写成img1=/UploadFile/11.jpg&img2=/UploadFile/232.jpg&img3=/UploadFile/4112.jpg&

我写一下代码,要的是asp代码,或是jsp的,不过最好是asp代码更好。

[解决办法]
用Split 以 引号 来分割字符串,然后就可以获取你想要的了啊
[解决办法]

VBScript code
<%dim strstr="<IMG src='/UploadFile/11.jpg' border=0> <IMG src='/UploadFile/232.jpg' border=0> <IMG src='/UploadFile/4112.jpg' border=0>"myarry=split(str,"'")response.write("img1="&myarry(1)&"&img2="&myarry(3)&"&img3="&myarry(5))&"&"%>
[解决办法]
VBScript code
Function GetImgs(str)    Dim a(), regex, i, matches, match    Set regex = New RegExp    regex.Pattern = "<img src\=""([^""]+)"" border=0>"    regex.IgnoreCase = True    regex.Global = True    Set matches = regex.Execute(str)    ReDim a(matches.Count-1)    For i = 0 To matches.Count - 1        a(i) = "img" & (i+1) & "=" & matches(i).Submatches(0)    Next    Set matches = Nothing    Set regex = Nothing    GetImgs = Join(a, "&")End FunctionDim strstr = "<IMG src=""/UploadFile/11.jpg"" border=0><IMG src=""/UploadFile/232.jpg"" border=0><IMG src=""/UploadFile/4112.jpg"" border=0>"Response getImgs(str)
[解决办法]
VBScript code
dim strstr="<IMG src=""/UploadFile/11.jpg"" border=0> <IMG src=""/UploadFile/232.jpg"" border=0> <IMG src=""/UploadFile/4112.jpg"" border=0>"ar=split(str,"""")str2 = ""For i = 0 To UBound(ar)    If InStr(ar(i),"/UploadFile/")>0 Then         If str2 = "" Then            str2 = ar(i)        Else            str2 = str2 & "," & ar(i)        End If     End If nextresponse.write str2
[解决办法]


我说LZ,现在你给我的是一串字符,放到程序里去肯定要改一下引号,不然怎么用?

如果你的一串字符是人工输的,就可以人工改,如果是从数据库里调出来的就不同了
[解决办法]
<IMG src="/UploadFile/11.jpg" border=0>
使用replace将<IMG src="和" border=0>替换为空就行了
[解决办法]
VBScript code
Dim input, output, iinput = "<IMG src=""/UploadFile/11.jpg"" border=0> <IMG src=""/UploadFile/232.jpg"" border=0> <IMG src=""/UploadFile/4112.jpg"" border=0> " Dim re, m Set re = new Regexp re.pattern = "<img\s+src=""([^""]+)" re.IgnoreCase = True re.Global = True Set m = re.Execute(input) For i = 0 To m.count-1    output = output & "img" & i+1 & "=" & m(i).Submatches(0) & "&" Next Response.Write "<script language='javascript'>alert('" & output & "');</script>"Set re = Nothing Set m = Nothing 

读书人网 >ASP

热点推荐