txt文本切割器代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 txt文本切割器

作者:Dezai.CN / 发布于2011/8/22/ 1956

<div>'/*=========================================================================
' * Intro .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。
' * FileName SplitFile.vbs
' * Author yongfa365
' * Version v1.0
' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a>
' * Email yongfa365[at]qq.com
' * FirstWrite <a href="http://www.yongfa365.com/Item/SplitFile.vbs.html">http://www.yongfa365.com/Item/SplitFile.vbs.html</a>
' * MadeTime 2008-04-24 12:58:43
' * LastModify 2008-04-24 12:58:43
' *==========================================================================*/</div>
<div>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</div>
<div>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</div>
<div></div>
<div>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</div>
<div>'按指定编码存储文件</div>
<div>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
</div>

试试其它关键字

　文本切割器　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)