截字符串 去除HTML标记
发布时间：2023-07-29 17:01:08
<％
'**************************************************
'函数名：gotTopic
'作 用：截字符串，汉字一个算两个字符，英文算一个字符
'参 数：str ----原字符串
' strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
str=replace(str,"?","")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function
'=========================================================
'函数：RemoveHTML(strHTML)
'功能：去除HTML标记
'参数：strHTML --要去除HTML标记的字符串
'=========================================================
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
set Matches=nothing
End Function
％>
0
投稿猜你喜欢
- 主要实现的部分是利用NameGeneratorType读入系列图像，见头文件#include "itkNumericSeriesF
拼接table请将以下代码直接运行：换下bootstrap.css jquery-1.12.3.min.js bootstrap-pagin- wheel文件Wheel和Egg都是python的打包格式，目的是支持不需要编译或制作的安装过程，实际上也是一种压缩文件，将.whl的后缀改
- 目录1.垂直（纵向）切分1.1 垂直分库 1.2 垂直分表 2. 水平（横向）切分2.1 根据数值范围2.2 根据数值取
- 一、问答平台这个「生活常识解答」机器人采用的是：阿里达摩院发布的语言模型PLUG（最近刚发布的，目前是测试阶段），地址链接如下：https:
- 目录1.数据概览分析1.1 数据概览1.2 数据分析2. 项目总体思路2.1 数据读取2.2 模型预处理（1）数据离群点处理（2）数据归一化
- 这篇文章主要讲一下如何串行执行一组异步任务，例如有下面几个任务，在这里我们用setTimeout模拟一个异步任务：let taskA = (
- 先来看一下最终的效果吧开始聊天，输入消息并点击发送消息就可以开始聊天了点击 “获取后端数据”开启实时推送先来简单了解一下 Django Ch
- 对于软件来说，每一个新版本的推出都应该是一种进步，不可否认，阿里旺旺2008版相较于之前的版本的确是有很多的进步，但进步的同时却也有着比之前
- 本文实例讲述了Python基于hashlib模块的文件MD5一致性加密验证。分享给大家供大家参考，具体如下：使用hashlib模块,可对文件
- SQLServer中的批量注释批量注释Ctrl + (K,C):按住Ctrl键不放,然后依次按下K和C批量取消注释Ctrl + (K,U):
- 本文实例讲述了GO语言Defer用法。分享给大家供大家参考。具体分析如下：defer:调用一个被 defer 的函数时在函数刚要返回之前延迟
- jQuery.sheet 是一个用于创建 Web 电子表格的 jQuery插件，其功能及界面风格和微软的 Excel 非常相似，使得用户不至
- MySQL密码正确却无法本地登录-1045 Access denied for user 'root'@'local
- 在Pandas中读取CSV数据时,会默认将第一列设为索引列index。但有时候我们并不需要索引,或者希望指定自己的索引列。这时就需要在导入C
- 写入txt文件def text_save(filename, data):#filename为写入CSV文件的路径，data为要写入数据列表
- 可以直接参考官方文档：https://docs.microsoft.com/zh-cn/sql/linux/quickstart-insta
- 下面给大家介绍js中apply和Math.max()函数的问题，具体内容如下所示：var arr=[1,3,6,3,7,9,2];conso
- 本文介绍了用python与文件进行交互的方法，分享给大家，具体如下：一.文件处理1.介绍计算机系统：计算机硬件,操作系统,应用程序应用程序无
- 代码演示如下：方法一<?php function encryptDecrypt($key, $string, $decrypt){
