怎么替换 文章里面的空行

[bluefish11]

现在获取新闻内容的部分内容
想替换空行怎么实现谢谢
谢谢

[newskyline]

strHTML = Replace(strHTML,vbCrLf,"")
如果想完全匹配部分内容，还是得使用正则表达式，关于正则表达式，去看一下VBScript手册，网上有chm电子书版本。

━━━━━━━━━━━━━━━━━━━━━━━━━━
我的CSDN原则:无帖我回，有帖我优，优帖我避，强帖我顶!
━━━━━━━━━━━━━━━━━━━━━━━━━━
欢迎访问小天的维动世界 www.justrun.net

[cqq]

srcFile = "c:\delLine1.htm" '需要替换的文本文件
desFile = "c:\delLine2.htm" '替换后的文本文件
pattern = "\n[\s| ]*\r" '匹配空行的正则表达式, 包括含有\v\t\f等

s = ReadFile(srcFile)
Set regEx = New RegExp
regEx.Pattern = pattern
regEx.IgnoreCase = True
regEx.Global = True

s1 = regEx.replace(s,"")
wscript.echo s1

call writeToFile(desFile,s1)


Sub WriteToFile(strFile,str)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strfile, 2, True)
f.Write str
set f= nothing
set fso=nothing
End Sub

Function ReadFile(strFile)
Dim fso, f
Dim readFile1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strFile,1)
ReadFile1 = f.ReadAll
set f=nothing
Set fso=nothing
ReadFile=ReadFile1
End Function

[bluefish11]

我现在的情况是：
新闻内容来自数据库...
strContent = Ltrim(Left(rs("body"),48))

我现在想替换strContent 里面的空行问题。

strContent = 函数(strContent)

请问这个正则函数怎么用。。vbs的

[wj021chen]

pattern = "\n[\s| ]*\r" '匹配空行的正则表达式, 包括含有\v\t\f等

Set regEx = New RegExp
regEx.Pattern = pattern
regEx.IgnoreCase = True
regEx.Global = True
s1 = regEx.replace(strContent,"")

response.write s1
-------------
抄了三楼的正则表达式,楼主,试下这样行不...

[xutao888]

正则