用来分割文本的vbs脚本


复制代码 代码如下:

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 "整理完毕!"



相关阅读:
轻松玩转花样表单--表单提交
Linux桌面系统分区方案推荐
ubuntu下也玩windows游戏,三种途径开启魔
初学者必读:精讲SQL中的时间计算语句
PHP脚本的10个技巧(4)
如何将Windows 2003迁移至Windows 2008三
CSS padding属性定义边内补白
IE对CSS样式的数量和大小是有限制的
使用Jquery来实现可以输入值的下拉选单 雏型
JavaScript解析XML的方法总结
JavaScript 保存数组到Cookie的代码
用XMLHTTP来偷东西哈!
IE innerHTML,outerHTML所引起的问题
门户网站构建CSS框架的规则
快速导航

Copyright © 2016 phpStudy |