文本框中如何剔除这些代码，并控制字数 - 编程论坛

#2

madpbpl2008-01-07 04:35

<%
dim str
str="<DIV align=center><B>成为普铭威员工所具备的基本素养</B><B></B></DIV><br><DIV> </DIV><br><DIV>一、普铭威人才基本标准：忠诚、勤奋、创新、团队精神</DIV> "
if instr(str,"<")>0 then
str =replace(str,"<","<")
elseif instr(str,">")>0 then
str =replace(str,">",">")
end if
//response.write str &VbCrlf
response.write leftb(str,10)
%>
不知道楼主是这个意思吗？

#3

boyfuture2008-01-07 10:18

哦，不好意思，错了是这样的过程：
1.获取内容：rs("content")
2.在文本框内显示：<input name="1" value="<%=rs("content")%>"
3.当前显示在文本框的内容如下：【DIV align=center><B>成为普铭威员工所具备的基本素养</B> <B></B></DIV><br>< DIV> &lt】
4.希望显示在文本框的结果和字数：【成为普铭威员工所具备】
目的就是把这些多余的字符滤掉该怎么去做，才能达到期望的效果？
请帮忙，谢谢！

#4

madpbpl2008-01-07 11:52

用replace把前面的内容替换，再用left函数应该可以实现的

#5

gdk20062008-01-07 12:15

用正则表达式一次搞定：
'========获取ＨＴＭＬ中的汉字======
Public Function GetTextFromHtml(strHtml)

        Dim strPatrn

            strpatrn="<.*?>"

        Dim regEx

        Set regEx = New RegExp

        regEx.Pattern = strPatrn

        regEx.IgnoreCase = True

        regEx.Global = True

        GetTextFromHtml = regEx.Replace(strHtml,"")

End Function

'========获取ＨＴＭＬ中的汉字======

#6

madpbpl2008-01-07 13:55

正则掌握的不好，学习

#7

boyfuture2008-01-07 18:14

[quote]原帖由 [bold][underline]gdk2006[/underline][/bold] 于 2008-1-7 12:15 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1173533&ptid=196213]

[/url]
用正则表达式一次搞定：
非常感谢你的答复，但是还有些代码没有滤掉，该怎么办啊？
请指教！
谢谢。代码样本如下：
<%=left(GetTextFromHtml(aa),20)%>
结果：<FONT size=2>为普铭威员工所具备的基<P align=center><STRO
多了很多这样的代码没有略过。