UC知道有关调用文章部分内容的问题
来源：百度知道 编辑：UC知道 时间：2024/05/09 18:54:49
我的后台文章编辑器用的是eWebEditor，在这个编辑器中，我编辑了一段内容，该内容为图文混排的，图片在前，文字在后。
我要在前台只调用该篇文章的部分文字内容，有朋友说把标签<img转换成<text即可，我用Replace(rs("content"),"<IMG","<text")转换成功，但存在一个问题：
如果我调用前面100个文字，该怎么办？用LEFT实现吗？（我用left试了，并不能完整的调出100个字，因为在截取文字个数时，程序把前面图片的代码也算进去了），我如何才能准确的调出100个字。
coolapp 的方法的确不错，实现了我的基本要求，但文字格式都没了，也不分段了。有没有更好的办法呢？
我要在前台只调用该篇文章的部分文字内容，有朋友说把标签<img转换成<text即可，我用Replace(rs("content"),"<IMG","<text")转换成功，但存在一个问题：
如果我调用前面100个文字，该怎么办？用LEFT实现吗？（我用left试了，并不能完整的调出100个字，因为在截取文字个数时，程序把前面图片的代码也算进去了），我如何才能准确的调出100个字。
coolapp 的方法的确不错，实现了我的基本要求，但文字格式都没了，也不分段了。有没有更好的办法呢？
自定义NoHtml函数取掉HTML代码，再调用left
Function noHtml(html) ''去掉HTML代码,需要 regExReplace()
dim s
s=trim(html&"")
if s<>"" then
s=regExReplace(s,"<script[^>]*?>.*?</script>","")
s=regExReplace(s,"<[^<>]*>","")
s=regExReplace(s,"( )+"," ")
end if
noHtml=s
End Function
Function regExReplace(sSource,patrn, replStr)''正则替换
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regExReplace = regEx.Replace(str1, replStr)
End Function