因此暑假闲暇编写了这个简短精悍的脚本版的分割器。脚本版的最大的好处可以由使用者进行DIY。

具体情况就不多说了，关于txt编码的问题可以参考，iPod文本分割器

这里仅仅说明使用方法，将您需要分割的Txt文件直接拖放发到本脚本上就ok了。

以下是脚本代码，直接复制后保存为vbs文件就可以了！

Good Luck ！

复制代码 代码如下:

'------------------------------------------------------------

' Description : Text division for iPod text reading.

' because of iPod can not display text length

' more than 4KB in each file, we have to split

' the bigger one.

' And iPod intrenal use Unicode, so this script

' can also tranfrom the character coding.

' Author : Guoyafeng@jspi.edu.cn

' Last Modified : 2008-8-31 11:05:13

'------------------------------------------------------------

Option Explicit

Sub OpenDir(Dir)

Dim WShell,CmdString

Set WShell = CreateObject("WScript.Shell")

CmdString = "Explorer.exe " & Dir

WShell.Run CmdString,1,True

End Sub

Function FormatStrNum(iNum)

Const Mode = "0000"

Dim sNum

sNum = CStr(iNum)

FormatStrNum = Left(Mode,Len(Mode)-Len(sNum)) & sNum

End Function

Function IIf(test,a,b)

If test = True Then IIf = a Else IIf = b

End Function

Function GetDragDropFile

If WScript.Arguments.Count = 0 Then MsgBox "请把需要分割的Txt文件拖放到本脚本上！"

WScript.Quit

Else

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(WScript.Arguments(0))) Then

GetDragDropFile = WScript.Arguments(0)

Set fso = Nothing

Else

Set fso = Nothing

MsgBox "无法找到文件" & WScript.Arguments(0)

WScript.Quit

End If

End If

End Function

Const ForReading = 1

Const ForWriting = 2

Const ForAppending = 8

Const TristateTrue = -1

Const TristateUseDefault=-2

Const TristateFalse=0

Dim ToWrite

Dim Index

Dim fso

Dim src

Dim dst

Dim TextSize

Dim MaxTextLength

Dim SourceFile

Dim DestinationFile

Dim BaseName

Dim OutFolderPath

Dim IsUnicode

Dim regEx,patrn

'***************************************************************

' Splited text size .

TextSize = 4 'KB

IsUnicode = True

'*****************************************************************

MaxTextLength = 1024 * TextSize / 2 - 1

patrn = "(rnrn)+|(+)"

Set regEx = New RegExp

regEx.Pattern = patrn

regEx.IgnoreCase = True

regEx.Global = True

Set fso = CreateObject("Scripting.FileSystemObject")

BaseName = fso.GetBaseName(GetDragDropFile)

OutFolderPath = fso.BuildPath(fso.GetParentFolderName(GetDragDropFile),_

BaseName)

Set src = fso.OpenTextFile(GetDragDropFile, ForReading,False,_

TristateUseDefault)

If Not fso.FolderExists(OutFolderPath) Then

fso.CreateFolder OutFolderPath

End If

Index = 1

While(src.AtEndOfStream <> True)

ToWrite = src.Read(MaxTextLength)

DestinationFile = fso.BuildPath(OutFolderPath,BaseName & _

FormatStrNum(Index) & ".txt")

Set dst=fso.OpenTextFile(DestinationFile,ForWriting,True,IIf(IsUnicode,TristateTrue,TristateUseDefault))

Dim SlimText

SlimText = regEx.Replace(ToWrite,"")

dst.Write SlimText

dst.Close

Set dst = Nothing

Index = Index + 1

Wend

src.Close

Set src = Nothing

Set fso = Nothing

Set regEx = Nothing

OpenDir OutFolderPath