新微赢技术网

标题: [求助]去掉数据里的回车和空格 [打印本页]

作者: 生活的成功者 时间: 2010-1-7 01:43
标题: [求助]去掉数据里的回车和空格
我要从数据库里调用文章的前50个字符生成内容简介，可是因为输入进去是的HTML格式的，所以用left（）函数取值后有一些文章前面有很多空格，有的第一行没有几个字就换行了，严重影响了版面，请问有什么好的解决方法啊

作者: 阳光aiq浪子 时间: 2010-1-7 01:43
piaoxue告诉你的是替换函数,把换行替换掉就是了.打开原库(不是用程序而是直接进数据库,比如SQL用企业管理器)查看是什么东东在换行,把那个东东替换掉就是了.

作者: ⊿°屵重缺銭 时间: 2010-1-7 01:44
输出前replace(title,"&nbsp;", " ")这样咯．．．会好看点．．

作者: 生活的成功者 时间: 2010-1-7 01:44
楼上的：你说的这句话 replace(title,"&nbsp;", " ") 用在什么地方？

作者: cs牛人 时间: 2010-1-7 01:44
replace(rs("title")," ", " ")
这样明白了吧

作者: 龙龙 时间: 2010-1-7 01:44
可是还是有回车换行啊，而且有的地方开头是分标题，用<strong>或者是〈DIV〉标识了
不过还是谢谢你

作者: 梦缘o☆无恒 时间: 2010-1-7 01:44
是不是只有replace一个方法啊？
类似的函数还有哪些呢？

作者: 秋风扫落叶 时间: 2010-1-7 01:44
谢谢各位拉

作者: 熾天使rose 时间: 2010-1-7 01:44
哦早说呀！哈哈明白

作者: 肖伊紫轩 时间: 2010-1-7 01:44
Function FilterHTML(str,strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
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
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
End Function
Function RemoveHTML( strText )
Dim nPos1
Dim nPos2

nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop

RemoveHTML = strText
End Function

作者: oscar 时间: 2010-1-9 16:05
虎躯一震，三分走人

作者: 文仔 时间: 2010-3-10 03:05
顶你一下，好贴要顶！

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)