标题 | 用来分割文本的vbs脚本 |
内容 | 用来分割文本的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 "整理完毕!" |
随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。