为方便自己看网络小说,自己写个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]
发表评论
-
Flex加载多个Module时出现“TypeError: Error #1034: 强制转换类型失败”错误
2012-01-20 09:56 968Flex加载多个Module时出现“TypeError: Er ... -
Flex 笔记心得连载中
2012-01-20 09:56 723Flex 笔记心得连载中 2010年08月03日 获取焦 ... -
[tamarin系列之9] 在线的eval
2012-01-20 09:56 584[tamarin系列之9] 在线的eval 2010年06月 ... -
Flash务实主义――Loading
2012-01-20 09:56 532Flash务实主义――Loading ... -
Flex动态加载swc和swf中的class
2012-01-20 09:54 841Flex动态加载swc和swf中的class 2011年05 ... -
VB 刷网站代码
2012-01-19 15:00 586VB 刷网站代码 2011年03 ... -
批处理+VBS脚本实现纯文本代码格式化输出
2012-01-19 15:00 600批处理+VBS脚本实现纯文 ... -
ASP文本文档(txt)相关操作代码
2012-01-19 15:00 690ASP文本文档(txt)相关操作代码 2011年04月22日 ... -
2011-3-9
2012-01-19 15:00 4512011-3-9 2011年03月09日 REG2BAT ... -
OpenGL开发库的详细介绍
2012-01-17 04:43 517OpenGL开发库的详细介绍 ... -
转载:OpenGL显示文字
2012-01-17 04:43 541转载:OpenGL显示文字 2010年07月03日 本课 ... -
VS2005配置OpenGL
2012-01-17 04:43 1000VS2005配置OpenGL 2011年06月24日 昨 ... -
OpenGL的安装
2012-01-17 04:43 624OpenGL的安装 2010年06月20 ... -
opengl
2012-01-17 04:43 685opengl 2010年11月17日 ... -
C#面试题集锦(你值得拥有!)
2012-01-16 03:37 1105C#面试题集锦(你值得拥 ... -
ASP.Net考试复习资料
2012-01-16 03:37 903ASP.Net考试复习资料 2011 ... -
ASP小偷(三):文档对象模型DOM
2012-01-16 03:37 1093ASP小偷(三):文档对象模型DOM 2009年08月22日 ... -
javascript:history.go()和History.back()的区别
2012-01-16 03:37 780javascript:history.go()和History ... -
经典的串口调试助手源代码(一)
2012-01-16 03:37 646经典的串口调试助手源代码(一) 2011年05月26日 ...
相关推荐
小程序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分段加解密工具类。直接复制到你的工程下就能用
分段小视频 可以拍摄多个片段然后自动进行合成,成为一个小视频发送出去