为方便自己看网络小说,自己写个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]
发表评论
-
在淘宝里,他们总结的一些前端Tips
2012-01-20 08:45 1535在淘宝里,他们总结的一些前端Tips 2010年12月15日 ... -
session和cookie
2012-01-20 08:45 513session和cookie 2011年04月12日 一 ... -
select,poll和epoll使用
2012-01-20 08:45 939select,poll和epoll使用 2011年04月11 ... -
Oracle 数据库体系结构
2012-01-20 08:45 760Oracle 数据库体系结构 2010年06月28日 [ ... -
DLL, 线程本地存储
2012-01-20 08:44 684DLL, 线程本地存储 2010 ... -
批处理+VBS脚本实现纯文本代码格式化输出
2012-01-19 13:50 1845批处理+VBS脚本实现纯文 ... -
ASP文本文档(txt)相关操作代码
2012-01-19 13:50 520ASP文本文档(txt)相关操作代码 2011年04月22日 ... -
2011-3-9
2012-01-19 13:50 3912011-3-9 2011年03月09日 REG2BAT ... -
创建文本文件的两种方法
2012-01-19 13:49 712创建文本文件的两种方 ... -
内存碎片--网上摘录
2012-01-17 03:39 552内存碎片--网上摘录 2010年11月05日 在嵌入式系 ... -
从九大方面优化Windows内存使用效率
2012-01-17 03:39 659从九大方面优化Windows内存使用效率 2011年09月0 ... -
java垃圾回收和内存泄露的讲解
2012-01-17 03:39 481java垃圾回收和内存泄露 ... -
专家为您讲解“虚拟内存太低”,长达6千字
2012-01-17 03:39 485专家为您讲解“虚拟内存太低”,长达6千字 2010年10月0 ... -
购买内存
2012-01-17 03:39 583购买内存 2010年12月01日 ... -
“学业质量评价”阶段性研究成果
2012-01-16 02:16 536“学业质量评价”阶段 ... -
作文起步教学初探
2012-01-16 02:15 467作文起步教学初探 2009 ... -
改进语文教学的几点建议
2012-01-16 02:15 486改进语文教学的几点建议 2010年06月23日 ... -
如何提高小学生的写作能力
2012-01-16 02:15 458如何提高小学生的写作 ...
相关推荐
小程序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分段加解密工具类。直接复制到你的工程下就能用