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
【vbs实现的支持拖动的txt文本切割器】相关文章：
★ 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名