当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 用来分割文本的vbs脚本

用来分割文本的vbs脚本

2017年12月08日  | 移动技术网IT编程  | 我要评论

行尸走肉第七季第二集,盖网回报chinacenn,2013春晚相声

复制代码 代码如下:

on error resume next
'code by netpatch
set arg=wscript.arguments
if arg.count=0 then wscript.quit
set fso = createobject("scripting.filesystemobject")
set conn = createobject("adodb.connection")
set rs = createobject("adodb.recordset")
path=left(arg(0),instrrev(arg(0),"\"))
fname=replace(arg(0),path,"")
i=0
conn.open "provider=microsoft.jet.oledb.4.0;data source="&path&";extended properties=""text;hdr=no;fmt=delimited"""
'rs.open "select count(*) from " & fname,_
'conn, 3, 3, &h0001
'allline=rs(0)
rs.open "select * from " & fname,_
conn, 3, 3, &h0001
'msgbox rs(0).name
do until rs.eof 'n/p
do until n=5000 '要分割的行数
set mytables = fso.createtextfile(arg(0)&i&".txt",true)
mytables.writeline rs.fields.item(0).value
rs.movenext
n=n+1
loop
mytables.close
set mytables = nothing
n=0
i=i+1
loop
rs.close
conn.close
set fso = nothing
set rs = nothing
set conn = nothing
wscript.echo "整理完毕！"

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网