新微赢技术网»论坛 › 学习网知识堂 › WEB开发 › ASP › [求助]去掉数据里的回车和空格

12 / 2 页下一页

查看: 190|回复: 13

[求助]去掉数据里的回车和空格

[复制链接]

生活的成功者

电梯直达

1^#

发表于 2010-1-7 01:43:56 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我要从数据库里调用文章的前50个字符生成内容简介，可是因为输入进去是的HTML格式的，所以用left（）函数取值后有一些文章前面有很多空格，有的第一行没有几个字就换行了，严重影响了版面，请问有什么好的解决方法啊

收藏0

使用道具举报

阳光aiq浪子

2^#

发表于 2010-1-7 01:43:59 | 只看该作者

piaoxue告诉你的是替换函数,把换行替换掉就是了.打开原库(不是用程序而是直接进数据库,比如SQL用企业管理器)查看是什么东东在换行,把那个东东替换掉就是了.

回复支持反对

使用道具举报

⊿°屵重缺銭

3^#

发表于 2010-1-7 01:44:02 | 只看该作者

输出前replace(title,"&nbsp;", " ")这样咯．．．会好看点．．

回复支持反对

使用道具举报

生活的成功者

4^#

楼主| 发表于 2010-1-7 01:44:05 | 只看该作者

楼上的：你说的这句话 replace(title,"&nbsp;", " ") 用在什么地方？

回复支持反对

使用道具举报

cs牛人

5^#

发表于 2010-1-7 01:44:07 | 只看该作者

replace(rs("title")," ", " ")
这样明白了吧

回复支持反对

使用道具举报

龙龙

6^#

发表于 2010-1-7 01:44:10 | 只看该作者

可是还是有回车换行啊，而且有的地方开头是分标题，用<strong>或者是〈DIV〉标识了
不过还是谢谢你

回复支持反对

使用道具举报

梦缘o☆无恒

7^#

发表于 2010-1-7 01:44:13 | 只看该作者

是不是只有replace一个方法啊？
类似的函数还有哪些呢？

回复支持反对

使用道具举报

秋风扫落叶

8^#

发表于 2010-1-7 01:44:16 | 只看该作者

谢谢各位拉

回复支持反对

使用道具举报

熾天使rose

9^#

发表于 2010-1-7 01:44:19 | 只看该作者

哦早说呀！哈哈明白

回复支持反对

使用道具举报

肖伊紫轩

10^#

发表于 2010-1-7 01:44:22 | 只看该作者

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

回复支持反对

使用道具举报

12 / 2 页下一页

返回列表

		自动登录	找回密码
密码			注册