文本文件分割脚本(VBS)

而Windows下没有一个现存的比较好用的分割工具，所以我用VBS做了一个文本文件的分割工具，和各位网友共享。脚本代码如下：


代码如下:

Option Explicit
'这个脚本只用来分割文本文件，脚本需要3个参数
'参数列表
'文件名 参数1 参数2
'梦想工作室 www.mx111.com
'示例 参数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 < 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_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "E"
sfs = sNum
sNum = Int ( fs / sfs) + 1
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "F"
SaveSubFile "file_" & 0 &".txt", 0 , sNum
Case "L"
SaveSubFile "file_" & 0 &".txt", fs - sNum , sNum
End Select

tf.Close

Sub SaveSubFile(s,b,l)
Dim sfile,content
WScript.Echo s & ":" & b &":" & l
Set sfile = fso.CreateTextFile(s, TRUE)
If b>0 Then
tf.Skip(b)
End If
content = tf.Read(l)
sfile.Write(content)
sfile.Close
End Sub

赞 (0)

相关推荐

  • 文本文件分割脚本(VBS)

    而Windows下没有一个现存的比较好用的分割工具,所以我用VBS做了一个文本文件的分割工具,和各位网友共享.脚本代码如下: 复制代码 代码如下: Option Explicit '这个脚本只用来分割文本文件,脚本需要3个参数 '参数列表 '文件名 参数1 参数2 '梦想工作室 www.mx111.com '示例 参数1 参数2 参数意义 ' S 5 等分为5个文件 ' E 1024 按照1024的大小分割文件 ' F 1024 取最前面的1024字节存为一个文件 ' L 1024 取最后面的1

  • python实现大文本文件分割

    本文实例为大家分享了python实现大文本文件分割的具体代码,供大家参考,具体内容如下 开发环境 Python 2 实现效果 通过文件拖拽或文件路径输入,实现自定义大文本文件分割. 代码实现 #coding:gbk import os,sys,shutil is_file_exits=False while not is_file_exits: files_list=[] if(len(sys.argv)==1): print('请输入要切割的文件完整路径:') files_path=raw_i

  • python实现大文本文件分割成多个小文件

    python实现大文本文件分割成多个小文件

    本文介绍一种将一个大的文本文件分割成多个小文件的方法 方法一: 1.读取文章所有的行,并存入列表中 2.定义分割成的小文本的行数 3.将原文本内容按一定行数依次写入小文件中 4.此方法对较小的大文件比较适合 代码: #coding:utf-8 #将大文本文件分割成多个小文本文件 import os sourceFileName = "test.log" #定义要分割的文件 def cutFile(): print("正在读取文件...") sourceFileDat

  • iPod文本分割器(VBS版)

    因此暑假闲暇编写了这个简短精悍的脚本版的分割器.脚本版的最大的好处可以由使用者进行DIY. 具体情况就不多说了,关于txt编码的问题可以参考,iPod文本分割器 这里仅仅说明使用方法,将您需要分割的Txt文件直接拖放发到本脚本上就ok了. 以下是脚本代码,直接复制后保存为vbs文件就可以了! Good Luck ! 复制代码 代码如下: '------------------------------------------------------------ ' Description : Te

  • 修复Windows上面的WScript的脚本(.vbs)不能执行了

    错误描述: 当执行用VBScript写的WScript脚本时,出现了下面的错误: There is no script engine for file extension ".vbs". 或是 找不到 .vbs 的执行引擎 修复方法: 找到%WINDIR%/INF/WSH.inf,然后按右键,选择"安装"即可! 重启电脑!

  • R语言中文本文件分割 符号 sep的用法

    R语言中文本文件分割 符号 sep的用法

    一般情况下: csv 文件 sep = "," # 以逗号分割 txt 文件 sep = "\t" #以制表符分割 其他文件 sep = " " #以空格分割 具体情况,具体调整 sep= 文件中的字段分离符,用于文件数据文本的读取和保存过程中指定分割符号. 补充:用R语言把超大文本文件拆分成几个小文本文件 近一段时间一直在研究一些医院的数据. 前两天遇到一个尴尬:想打开一个仅有3G左右的文本文件(有时候必须要打开,直接传到数据库满足不了需求),

  • nginx多server日志分割脚本分享

    1,配置多个server日志只要在$website变量增加并用空格分开就行.2,循环创建日志目录3,分割后用xz 压缩,当然没安装可以用gzip bzip2等等.4,注意我配置nginx日志文件名为 "access_{{站点网站}}.log" "error_{{站点网站}}.log" 复制代码 代码如下: # !/usr/bin/bashlog_dir="/usr/local/nginx/logs"back_log_dir="/disk

  • 用VBScript写合并文本文件的脚本

    合并文本的脚本可以这么写: 复制代码 代码如下: Sub AppendTextFile(filename) Set objTextFile = objFSO.OpenTextFile(filename, ForReading, true, -2) Do Until objTextFile.AtEndOfStream objOutFile.WriteLine(objTextFile.Readline) Loop End Sub 可是如果所读取的文件是UTF-8格式的,那么文件开头的三个字节的标识符

  • python实现搜索文本文件内容脚本

    本文介绍用python实现的搜索本地文本文件内容的小程序.从而学习Python I/O方面的知识.代码如下: import os #根据文件扩展名判断文件类型 def endWith(s,*endstring): array = map(s.endswith,endstring) if True in array: return True else: return False #将全部已搜索到的关键字列表中的内容保存到result.log文件中 def writeResultLog(allExi

  • xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本vbs

    复制代码 代码如下: on error resume next  const HKEY_LOCAL_MACHINE = &H80000002  strComputer = "."  Set StdOut = WScript.StdOut  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_   strComputer & "\root\defaul

随机推荐