如果不想或不应用数据感知控件var
h:TStringsbegin
h:=TStringList.Create
h.Assign(YourTable.FieldByName('Telenumber'))
//////////////Memo1.Lines.Assign(H)
*** 作完后
H.Free这样就可以将多条电话都取出了。
请学习正则表达式..Asp结合正则替换掉HTML标签(往上找的一个例子,楼主举一反三)
<%
'这里假设 strHTML,strTEXT 为过滤前后的内容
'strHTML可以是读取自文件的内容或者是数据库的,这样你在上面再加一步 *** 作就可以了
Dim strHTML,strTEXT
strHTML = "strHTMLstrHTMLstrHTML可以是读取自文件的内<a href='www.papozhe.com'>Asp教程</a>容或者是<br/>数据库的,这样你在上面再<p>加一步 *** 作</p>就可以了这里假设 strHTML,strTEXT 为过滤前后的内容"
strTEXT = RemoveHTML(strHTML)
'如果想看看过滤以前的样子,把上面这行用引号屏蔽了去掉下面这行的引号,同样举一反三,你要过滤什么样的 就用什么样的正则表达式,如果你要过滤里边的IMG,可以百度一下正则表达式过滤IMG,或者在爬坡者上找,当然过滤可以,你要提取里边的IMG也可以。比如提取文中出现的第一张图片生成缩略图
'strTEXT = strHTML
Response.Write strTEXT
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
%>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)