文本文件分割脚本(VBS).pdf

在系统维护或者数据库维护是常常需要查看的日志文件，然为日志文件往往都比较大， 甚至用记事本无法打开。 而 Windows 下没有一个现存的比较好用的分割工具， 所以我用 VBS 做了一个文本文件 的分割工具，和各位网友共享。脚本代码如下： 代码如下 : Option Explicit 这个脚本只用来分割文本文件，脚本需要 3 个参数 参数列表 文件名 参数 1 参数 2 梦想工作室 示例 参数 1 参数 2 参数意义 S 5 等分为 5 个文件 E 1024 按照 1024 的大小分割文件 F 1024 取最前面的 1024 字节存为一个文件 L 1024 取最后面的 1024 字节存为一个文件 Dim tf,sf,fname,souFile,desFolder ,sOption , sNum , FSO , fs, sfs If WScript.Arguments.Count lt; 3 Then WScript.Echo 参数有误 ! WScript.Quit Else souFile = WScript.Arguments(0) sOption = WScript.Arguments(1) sNum = WScript.Arguments(2) End If Set FSO = CreateObject(Scripting.FileSystemObject) Set tf=FSO.GetFile(souFile) fs = tf.Size Set tf = fso.OpenTextFile(souFile, 1) Dim x Select Case sOption Case S sfs = Int ( fs / sNum ) for x=1 to sNum-1 SaveSubFile file_ amp; x amp;.txt, 0 ,sfs Next SaveSubFile file_ amp; sNum amp;.txt, 0 , fs - sfs * (sNum-1) Case E sfs = sNum sNum = Int ( fs / sfs) + 1 for x=1 to sNum-1 SaveSubFile file_ amp; x amp;.txt, 0 ,sfs Next SaveSubFile file_ amp; sNum amp;.txt, 0 , fs - sfs * (sNum-1) Case F SaveSubFile file_ amp; 0 amp;.txt, 0 , sNum Case L SaveSubFile file_ amp; 0 amp;.txt, fs - sNum , sNum End Select tf.Close Sub SaveSubFile(s,b,l) Dim sfile,content WScript.Echo s amp; : amp; b amp;: amp; l Set sfile = fso.CreateTextFile(s, TRUE) If bgt;0 Then tf.Skip(b) End If content = tf.Read(l) sfile.Write(content) sfile.Close End Sub