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

首頁(yè) > 編程 > ASP > 正文

asp 使用正則表達(dá)式替換word中的標(biāo)簽,轉(zhuǎn)為純文本

2024-05-04 11:08:32
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
asp里使用正則表達(dá)式清除后臺(tái)編輯器里復(fù)制粘貼內(nèi)容的word格式,將其轉(zhuǎn)換成純文本
 
 
 
公司客戶在使用網(wǎng)站后臺(tái)編輯添加修改內(nèi)容時(shí),經(jīng)常是直接從word文檔里復(fù)制內(nèi)容到編輯器里后就提交。結(jié)果是在內(nèi)容顯示頁(yè)面上是五花八門的樣式,有時(shí)也需要部分純文本內(nèi)容作為摘錄使用,這些都需要清除word格式。改變客戶的習(xí)慣要客戶先復(fù)制到記事本里再粘貼到編輯器里編輯是很難的,所以從我們自己改變起。從網(wǎng)上百度了若干清除word格式的正則,使用效果不甚理想,所以自己寫了清除word格式的asp函數(shù),能滿足我們自己的使用需求。函數(shù)如下:
復(fù)制代碼代碼如下:

function cleanWord(html) 
dim regEx 
set regEx=New RegExp 
regEx.IgnoreCase=True 
regEx.Global=True 
regEx.Pattern="<[^>]*>" '清除所有<>之間的內(nèi)容 
html = regEx.replace(html,"" ) 
regEx.Pattern="{[^}]*}" '清除所有{}之間的內(nèi)容 
html = regEx.replace(html,"" ) 
regEx.Pattern="/[^/]*/" '清除所有/**/之間的注釋 
html = regEx.replace(html,"" ) 
html =Replace(html,"table.MsoNormalTable","") '替換掉漏網(wǎng)的單詞 
cleanWord= html 
set regEx=nothing 
end function

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 黄山市| 长寿区| 阳江市| 周口市| 墨脱县| 米泉市| 陆河县| 哈巴河县| 三都| 普定县| 隆林| 兴国县| 砚山县| 青海省| 昭平县| 紫云| 黔西| 合作市| 枣强县| 锡林郭勒盟| 安阳市| 鱼台县| 莎车县| 垫江县| 潜江市| 怀远县| 阜平县| 广宗县| 青川县| 项城市| 灵川县| 阿鲁科尔沁旗| 广汉市| 哈尔滨市| 南充市| 三原县| 内乡县| 依兰县| 广河县| 镶黄旗| 开阳县|