|
本帖最后由 tonychris 于 2011-8-21 12:26 编辑
超级文本操作类1.0 beta 1
简介:
该类可以方便快捷的操作字符串和纯文本类型文件(如txt,xml,html,csv...),支持正规表达式。
封装了60余个属性和方法,可以像控制“指针”一样随心所欲的操作文本。
使用方法类似很多文本编辑器的宏代码,如 ue,em-editor,editor-plus,sakura,hidemaru...
类似这样的命令:gofiletop,moveto,searchdown,replaceall...
暂时没有提供每个方法的使用说明,使用比较简单,看方法名基本就知道用法了,请自行研究。
如果使用的人多,以后可以考虑制作个帮助文档。
严重声明:
由于是第一版,所以程序会提取用户以下2条信息,并发送email(每天第一次使用时发送)。
1.硬盘序列号,为了统计使用人数。
2.桌面图片(如果有的话),作为使用该类的报酬,实在想不出什么值钱的了,也许图片实用点。。。
除了这2条,程序不会再提取用户其他信息,或有捆绑木马病毒等恶劣行为,
如果不想发送email,请断网使用;如果还是不放心,请不要只用该程序。
举个例子:
一个文本文件内容如下,要求字母所在行的下一行的数字,行首不能是1。如果是1,该数字行就删除。
大连
124243
5434
DJFDSJSFD
123
15656
4567668
HYDSFF
4543
辽宁
787878
YYYWAQWW
1535
1426
14546
代码如下:
Private Sub Command1_Click()
Dim a As New clsTextFileHandle
With a
.OpenFile "E:\_VB\13.TextHandleClass\test.txt", GB2312
Do
.ReplaceAll "([A-Z]+\r\n)(1.*\r\n)", "$1", soRegular
Loop While .Result <> 0
MsgBox .GetAllText
.CloseFile
End With
Set a = Nothing
End Sub
TextHandleClass.rar
(33.91 KB, 下载次数: 67)
2个例子.rar
(28.9 KB, 下载次数: 69)
|
|