足球游戏_中国足彩网¥体育资讯$

用来分割文本的vbs脚本
来源:易贤网 阅读:1333 次 日期:2016-07-07 15:41:08
温馨提示:易贤网小编为您整理了“用来分割文本的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 "整理完毕!"

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:用来分割文本的vbs脚本
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标