用来分割文本的vbs脚本
导读：收集整理的这篇文章主要介绍了用来分割文本的vbs脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: On Error Resume Next 'Code By...
收集整理的这篇文章主要介绍了用来分割文本的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 "整理完毕！"
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用来分割文本的vbs脚本
本文地址： https://pptw.com/jishu/609845.html