国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp從字符串里截取N個帶HTML的字符的函數

2024-05-04 11:09:24
字體:
來源:轉載
供稿:網友
從字符串里截取N個帶HTML的字符,現在的實現方法還不完善,過程是:從字符串里找各種控件的開始,然后依些分開,放到數組里,然后一個一個數組的加上來看看字符是否大于給定的字符如果是,那么,返回這個數組
 
 
 

'函數名:getHTMLContent'參數:NO-->要取得的字符數, txtContent-->要處理的字符串 
'功能: 從字符串里截取N個帶HTML的字符,現在的實現方法還不完善,過程是:從字符串里找各種控件的開始,然后依些分開,放到數組里,然后一個一個數組的加上來看看字符是否大于給定的字符如果是,那么,返回這個數組. 
'作者:柳永法 
'時間:2007-6-1 20:03 :)
Function getHTMLContent(NO, txtContent) 
If Len(txtContent)<= NO Then 
getHTMLContent = txtContent 
ExitFunction 
EndIf 

Set re =New RegExp 
re.IgnoreCase =True 
re.Global =True 
patrn ="<p|<br|<li|<table" 
patrn = Split(patrn,"|") 

ForEach p in patrn 
re.Pattern = p 
txtContent = re.Replace(txtContent,"||"& p ) 
Next 

txtContent = Split(txtContent,"||") 
ForEach E in txtContent 
If Len(s)>NO ThenExitFor 
s = s + E 
Next 
getHTMLContent = s 
EndFunction 
%>


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 宁强县| 靖远县| 彭山县| 金川县| 乌兰县| 团风县| 卢氏县| 宁夏| 东丰县| 华亭县| 应用必备| 永吉县| 叶城县| 额敏县| 沾化县| 灵璧县| 丹寨县| 许昌市| 宜兰县| 绥宁县| 哈巴河县| 微博| 阳原县| 舟山市| 施秉县| 丹东市| 宁国市| 宜丰县| 托克托县| 东宁县| 武功县| 武威市| 巩义市| 延庆县| 库尔勒市| 黑龙江省| 刚察县| 峡江县| 景泰县| 闻喜县| 财经|