 
vbsʵֵtxtıļиĬΪ8000ַΪһļ֧϶
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 
