SplitFile.vbs
'/*=========================================================================
' * Intro .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。
' * FileName SplitFile.vbs
' * Author yongfa365
' * Version v1.0
' * MadeTime 2008-04-24 12:58:43
' * LastModify 2008-04-24 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
您可能感兴趣的文章:- VBS合并一个文件夹里的TXT的实现代码
- vbs解决处理TXT文本数据相关问题实现代码
- VBS实现将Excel表格保存为txt文本
- TXT转HTM、HTML「TXT转网页」的vbs实现代码
- 用vbs产生的若干个随机数并写入到一个.txt中的代码
- 将HTML或txt文件转换为ASP输出的vbs代码
- 用VBS将一篇txt后缀的内容保存为html格式
- vbs操作txt文本文件常用方法与函数代码
