怎么替换文章里面的空行

2006-05-15 11:40:58 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

bluefish11 墨衍会员 · AI 创作全网分发关注 + 加入社区

软件著作权pycharm 代码整理（去掉#注释和空行）用现成工具实现软著删除#注释和空行。阅读详情

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

...全文

计量经济学tempdisagg的python库：年度时序变月度计量经济学tempdisagg的python库：年度时序变月度阅读详情

bluefish11

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

xutao888 2006-05-15

打赏
举报

正则

wj021chen 2006-05-15

打赏
举报

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
-------------
抄了三楼的正则表达式,楼主,试下这样行不...

bluefish11 2006-05-15

打赏
举报

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

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

strContent = 函数(strContent)

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

cqq 2006-05-15

打赏
举报

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

newskyline 2006-05-15

打赏
举报

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

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

怎么替换 文章里面的空行

相关推荐

怎么替换文章里面的空行