网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料:

 

标题 用来分割文本的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 "整理完毕!"
随便看

 

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/29 14:43:49