时间:2021-05-22
SplitFile.vbs
'/*=========================================================================
'*Intro.txt文本切割器,默认为8000个字符切为一个文件。支持拖动。
'*FileNameSplitFile.vbs
'*Authoryongfa365
'*Versionv1.0
'*MadeTime2008-04-2412:58:43
'*LastModify2008-04-2412:58:43
'*==========================================================================*/
SetobjArgs=WScript.Arguments
IfobjArgs.Count=0Then
IIIIIInputBox("选择要处理的文本文件",,"选择要处理的文本文件")
Else
ForI001=0ToobjArgs.Count-1
IIIIIobjArgs(I001)
Next
EndIf
FunctionIIIII(Path)
TempStr=ReadFromFile(Path,"gb2312")
Length=Len(TempStr)
iii=0
ForII=0ToLengthstep8000'8000个字符切为一个文件
iii=iii+1
WriteToFileLeft(Path,Len(Path)-4)&"_"&Right("00"&iii,3)&".txt",Mid(TempStr,II+1,8000),"gb2312"
Next
EndFunction
FunctionReadFromFile(FileUrl,CharSet)
DimStr
Setstm=CreateObject("Adodb.Stream")
stm.Type=2
stm.mode=3
stm.charset=CharSet
stm.Open
stm.loadfromfileFileUrl
Str=stm.readtext
stm.Close
Setstm=Nothing
ReadFromFile=Str
EndFunction
'按指定编码存储文件
FunctionWriteToFile(FileUrl,Str,CharSet)
Setstm=CreateObject("Adodb.Stream")
stm.Type=2
stm.mode=3
stm.charset=CharSet
stm.Open
stm.WriteTextStr
stm.SaveToFileFileUrl,2
stm.flush
stm.Close
Setstm=Nothing
EndFunction
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
在众多文本编辑器中,Microsoft的Word是功能很强大的。况且XPPRO本身支持VBS调用Word文档对象,那么使用VBS是最好不过的了。思路如下:VBS
前言本系统是基于fabric.js实现的canvas版图片,文本编辑器,支持对图片的放大,缩小,旋转,镜面翻转,拖动,显示/隐藏图层,删除图层,替换图层等操作,
iPhone手机似乎是不支持阅读txt小说的,但是如果借助qq阅读,还是可以实现阅读txt小说,并且TXT小说是目前手机中最流行的小说文本格式之一,在电脑中也运
最近比较无聊,随便翻着博客,无意中看到了有的人用VBS读文本内容,也就是读几句中文,emmm,挺有趣的,实现也很简单,都不需要安装什么环境,直接新建txt文件,
sequence文件存储格式1.txt纯文本格式,若干行记录。默认用字符编码存储2.SequenceFile格式(顺序文件格式,可进行切割)key-value格