为方便自己看网络小说,自己写个txt按章节分段的小程序
2011年08月08日
Const ForReading = 1, ForWriting = 2
Dim f, m
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForReading)
While Not f.AtEndOfStream
m = m & RemoveHTML(f.ReadLine) & ""
Wend
ReadTxtFile = m
f.Close
Else
ReadTxtFile = -1
End if
End Function
'写文本文件
Public Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
select Case WriteORAppendType
Case 1: '文件进行写操作
Set f = objFSO.OpenTextFile(FileName, ForWriting, True)
f.Write TextStr
f.Close
If ReportFileStatus(FileName) = 1 then
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
Case 2: '文件末尾进行写操作
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForAppending ,1)
f.Write TextStr
f.Close
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
End select
End Function
'判断目录是否存在
Public Function ReportFolderStatus(fldr)
Dim msg
msg = -1
If (objFSO.FolderExists(fldr)) Then
msg = 1
Else
msg = -1
End If
ReportFolderStatus = msg
End Function
'创建的文件夹
Public Function CreateFolderDemo(FolderName)
Dim f
If ReportFolderStatus(FolderName) = 1 Then
CreateFolderDemo = -1
Else
Set f = objFSO.CreateFolder(FolderName)
CreateFolderDemo = 1
End if
End Function
'文件是否存在?
Public Function ReportFileStatus(FileName)
Dim msg
msg = -1
If (objFSO.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function
'按章节分段
Function CutHao(str)
Dim sRegExp, Match, Matches
Set sRegExp = New RegExp
sRegExp.IgnoreCase = True
sRegExp.Pattern = "第[一二两三四五六七八九十○零百0-91234567890]{1,12}章"
set Matches = sRegExp.Execute(str)
if Matches.count then
For Each Match in Matches
i = i + 1
Next
end if
CutHao=str
Set sRegExp = Nothing
End Function
'HTML编码过滤
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的
objRegExp.Pattern = ""
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
strHtml=Replace(strHTML," ","")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
%>[b][/b]
发表评论
-
IronPython与PowerShell比较
2012-01-20 09:51 1012IronPython与PowerShell比较 2010年0 ... -
避免使用虚函数作为库的接口
2012-01-20 09:51 699避免使用虚函数作为库 ... -
程序员应知: 海量数据如何分析
2012-01-20 09:51 744程序员应知: 海量数据 ... -
采访 Lua 发明人的一篇文章
2012-01-20 09:51 567采访 Lua 发明人的一篇 ... -
VB 刷网站代码
2012-01-19 14:57 563VB 刷网站代码 2011年03 ... -
批处理+VBS脚本实现纯文本代码格式化输出
2012-01-19 14:57 805批处理+VBS脚本实现纯文 ... -
ASP文本文档(txt)相关操作代码
2012-01-19 14:57 543ASP文本文档(txt)相关操作代码 2011年04月22日 ... -
2011-3-9
2012-01-19 14:57 5142011-3-9 2011年03月09日 REG2BAT ... -
Stellarium(虚拟天文馆)
2012-01-17 04:40 647Stellarium(虚拟天文馆) 2011年12月08日 ... -
《暗黑破坏神2》关于d2loader的使用说明
2012-01-17 04:40 2408《暗黑破坏神2》关于d2loader的使用说明 2011年0 ... -
怎么样将系统封装后变成映像
2012-01-17 04:40 694怎么样将系统封装后变 ... -
VB获取QQ2011安装路径
2012-01-16 03:34 622VB获取QQ2011安装路径 2011年05月23日 V ... -
vb 编写的qq查询交谈工具源码
2012-01-16 03:34 625vb 编写的qq查询交谈工 ... -
vb QQ消息辅助连发软件代码(vb)
2012-01-16 03:34 1317vb QQ消息辅助连发软件代码(vb) 2009年12月27 ... -
手把手教你用vb6.0写一个桌面网址小软件
2012-01-16 03:33 743手把手教你用vb6.0写一个桌面网址小软件 2009年11月 ... -
QQ日志刷人气工具 VB源码
2012-01-16 03:33 764QQ日志刷人气工具 VB源码 2010年01月20日 ' ...
相关推荐
小程序rsa分段加密 1. 分段加密采用encryptLong 2. 不分段采用encrypt
对请求和响应内容进行RSA分段加密,开箱就用无后作用。
一个很经典的分段线性插值的matlab程序,程序短小精悍,其中应用了向量思想,还有数组的逻辑坐标。
微信小程序rsa分段加密demo。分段加密用encryptLong,不分段用encrypt
三菱GX Works2梯形图程序分段显示设置的具体方法示例
上课作业,如果要使用请自行改造,拒绝抄袭。 用matlab写的拉格朗日插值、分段插值、三次样条插值、最小二乘拟合及可视化,除了基础功能,其他都是手写,没有调用函数。
ARCGIS Network 网络和动态分段
C# FileStream 分段读取文本内容C# FileStream 分段读取文本内容C# FileStream 分段读取文本内容C# FileStream 分段读取文本内容
在 MATLAB 中实现的分段线性回归算法。它使用动态规划来找到成本最低的线段集(误差平方和 + λ × 线段数) 怎么运作 按x坐标对点进行排序。 计算最左边和最右边点的每个组合的回归参数(b0, b1)和误差平方和。 ...
本库主要提供一个简单易用的自定义分段控件,方便快速实现分段效果,支持xml配置、代码配置、分段规则按均分/比例分、数字分段、文本分段、渐变分段、bar条样式正常/圆形/三角形,segment文字样式、进度设置、进度...
通过提取输入文件(txt格式),输出每个学生的作业平均分和总分,并根据人数和作业数自动修改 number_of_students 9 number_of_assignments 3 student_number first_name last_name 10 10 10 98861 BOB BARKER 8 5 9...
分段存储管理系统:建立一个基本分段存储管理系统的模型。 (1)首先分配一片较大的内存空间,作为程序运行的可用存储空间; (2)建立应用程序的模型,应该包括相应的分段描述与存储结构; (3)建立进程的基本...
txt分段器,exe的 可以把txt分成多大都可以,安全 无毒
基于分段攻击的网络安全态势评估技术.pdf
android 视频分段录制,分段删除,最后合成一个mp4分件。使用的技术为MediaRecorder和mp4parser。运行完美,只要稍作打磨即可商业化应用
微信小程序能用RSA分段加解密工具类。直接复制到你的工程下就能用