分割文件

　

分割文件

1. 将代码复制到txt文本中，后缀改成.vbs

2.和要分割的文件放在同一目录下并执行该程序

3.执行完后会弹框报错，不要紧。

Set fs =CreateObject("scripting.filesystemobject")
Set gs =CreateObject("scripting.filesystemobject")
Set f=fs.opentextfile("source.txt",1,true)   //source.txt要分割的文件
n=0
do while f.atendofstream<>true
n=n+1
data=""
Set g=gs.opentextfile(CStr(n)+"_split.txt",2, true) //分割出的文件名
if f.atendofstream<>true then
for a=1 to 10000     //每一万行分割为一个txt
data=f.readline
g.writeline data
next
end if
loop
f.close
g.close

相关阅读

Android开发中libs和jinLibs文件夹的作用详解

前言 相信各位Android开发中们在Android 开发中经常和这两个文件夹打交道，以前一直迷迷糊糊的使用，没去想过。最近遇到了一些问题，仔

在trados中翻译ppt、excel文件

ppt 文件的翻译：1.打开trados workbench2.打开tageditor3.将文件拖入tageditor4.运行workbench ，翻译5.翻完后，打开workbench 中的to

如何隐藏电脑中的文件或文件夹？

环境说明： 1.为了保护电脑中数据的安全，除了给操作系统设置登录密码之外，最好对敏感的数据进行隐藏。 2.本教程介绍了2种隐藏文件或

FEN文件格式

中国象棋电脑应用规范(三) 　 FEN文件格式 　 象棋百科全书网 (webmaster@xqbase

你不知道的robots文件那些事

robots.txt文件，是每一个搜索引擎蜘蛛到你的网站之后要寻找和访问的第一个文件，robots.txt是你对搜索引擎制定的一个如 何索引你的