txt文本切割器 SplitFile.vbs 支持拖动

黑ㄨ狼

'/*=========================================================================
' * Intro .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。
' * FileNameSplitFile.vbs
' * Authorwww.lang2008.cn
' * Version v1.0
' * WEB http://www.lang2008.cn
' * Email zhy8888@vip.qq.com
' * FirstWritehttp://www.lang2008.cn/blog/article/127.htm
' * MadeTime2008-07-25 12:58:43
' * LastModify2008-07-25 12:58:43
' *==========================================================================*/

Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
IIIII InputBox(\"选择要处理的文本文件\", , \"选择要处理的文本文件\")
Else

For I001 = 0 To objArgs.Count - 1
IIIII objArgs(I001)
Next
End If

Function IIIII(Path)
TempStr = ReadFromFile(Path, \"gb2312\")
Length = Len(TempStr)
iii = 0
For II = 0 To Length step 8000 '8000个字符切为一个文件
iii = iii + 1
WriteToFile Left(Path, Len(Path) -4) & \"_\" & Right(\"00\" & iii, 3) & \".txt\" , Mid(TempStr, II + 1, 8000), \"gb2312\"
Next
End Function



Function ReadFromFile(FileUrl, CharSet)
Dim Str
Set stm = CreateObject(\"Adodb.Stream\")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
ReadFromFile = Str
End Function

'按指定编码存储文件

Function WriteToFile (FileUrl, Str, CharSet)
Set stm = CreateObject(\"Adodb.Stream\")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Function