ASP只读取表里某个字符怎么写？

sunritz 楼主

内容字符里，有文字和图片，我只想读取图片，把文字过滤掉，该怎么写啊？

01500

为什么要这样子操作呢？用ALT？

lmxc

'从内容中提取图片的src
    Function   RegExp_Execute(strng)   
          Dim   regEx,   Match,   Matches,values   '建立变量。   
          Set   regEx   =   New   RegExp   '建立正则表达式。  
          regEx.Pattern   =  "src\=.+?\.(gif|jpg)"   '设置模式。   
          regEx.IgnoreCase   =   true   '设置是否区分字符大小写。   
          regEx.Global   =   True   '设置全局可用性。   
          Set   Matches   =   regEx.Execute(strng)   '执行搜索。   
          For   Each   Match   in   Matches   '遍历匹配集合。   
                  values=values&Match.Value&""","   
          Next   
          RegExp_Execute   =   values   
    End   Function

sunritz 楼主

多谢，楼上的回答，可是我的表里的图片代码是这样子的，[upload=jpg,5.jpg]UploadFile/2011-12/2011121412244592739.jpg[/upload]也就是说我还要转换一下字符，该怎么写？

01500

都是高手

yiwensheng

用正则表达式即可

wangsdong

直接取]与[这两个符号之间的字符串，就是图片路径

potian8010

1. '从内容中提取图片的src
   
2.     Function   RegExp_Execute(strng)   
   
3.           Dim   regEx,   Match,   Matches,values   '建立变量。   
   
4.           Set   regEx   =   New   RegExp   '建立正则表达式。  
   
5.           regEx.Pattern   =  "\](.+?)\["   '设置模式。   
   
6.           regEx.IgnoreCase   =   true   '设置是否区分字符大小写。   
   
7.           regEx.Global   =   True   '设置全局可用性。   
   
8.           Set   Matches   =   regEx.Execute(strng)   '执行搜索。   
   
9.           For   Each   Match   in   Matches   '遍历匹配集合。   
   
10.                   values=values&Match.Value&""","   
    
11.           Next   
    
12.           RegExp_Execute   =   values   
    
13.     End   Function

复制代码

cauchy8

sunritz 楼主

potian8010 发表于 2012-2-14 16:22

还差一点哦，怎么加img的标签替换呢？还有解释可以再详细点么，还没搞好呢...

我自己加了个img标签，如下：

1.     Function   RegExp_Execute(strng)   
   
2.           Dim   regEx,   Match,   Matches,values   '建立变量。   
   
3.           Set   regEx   =   New   RegExp   '建立正则表达式。  
   
4.           regEx.Pattern   =  "\](.+?)\["   '设置模式。
   
5.           regEx.IgnoreCase   =   true   '设置是否区分字符大小写。   
   
6.           regEx.Global   =   True   '设置全局可用性。   
   
7.           Set   Matches   =   regEx.Execute(strng)   '执行搜索。   
   
8.           For   Each   Match   in   Matches   '遍历匹配集合。   
   
9.                   values=values&Match.Value&"<img src="""                                  
   
10.           Next   
    
11.           RegExp_Execute   =   values   
    
12.     End   Function

复制代码

但是不成功，前台解析出来的图片代码是这样的
<img src="]UploadFile/2011-12/201112510532912852.jpg[<img src=" ]

郁闷ing

sunritz 楼主

求解啊，有木有砖家路过这里...

pod

sunritz 发表于 2012-2-22 14:53
求解啊，有木有砖家路过这里...

你这要取的内容里能确定是单张图片还是多张图片吗，图片的格式是否统一？

sunritz 楼主

多张图片哦，格式是统一的。都是这样的代码
[upload=jpg,5.jpg]UploadFile/2011-12/2011121412244592739.jpg[/upload]

pod

sunritz 发表于 2012-2-22 17:05
多张图片哦，格式是统一的。都是这样的代码
UploadFile/2011-12/2011121412244592739.jpg[/upload]

1. function getImg(str)
   
2.         str=lcase(str)
   
3.         dim arrStr:arrStr=split(str,"[upload=")
   
4.         dim currStr,s_Num,e_Num,currLen
   
5.         for i=1 to ubound(arrStr)
   
6.                 currStr=arrStr(i)
   
7.                 s_Num=instr(currStr,"]")+1
   
8.                 e_Num=instrrev(currStr,"[")
   
9.                 currLen=e_Num-s_Num
   
10.                 currStr=mid(currStr,s_Num,currLen)
    
11.                 Response.Write("<img src="""&currStr&""" />")
    
12.         next
    
13. end function

复制代码

sunritz 楼主

多谢，可以写点代码解释么，俺想学一下。pod的代码成功，非常感谢，我还不太明白，先自己理解学习一下，如果pod能写些代码解释就好了。

adjuvant

过滤 提取吧