主頁 > 知識(shí)庫 > 用來分割文本的vbs腳本

用來分割文本的vbs腳本

熱門標(biāo)簽:前鋒辦理400電話申請 百度地圖標(biāo)注怎么卸載 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 新密防封卡外呼系統(tǒng)違法嗎 海外美發(fā)店地圖標(biāo)注 打電話的外呼系統(tǒng)貴不貴 辦理膠州400電話財(cái)稅 加盟電銷機(jī)器人好的品牌 外呼營銷下單系統(tǒng)
復(fù)制代碼 代碼如下:

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 '要分割的行數(shù)
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 "整理完畢!"

標(biāo)簽:梅州 伊春 咸陽 四平 河南 阜陽 牡丹江 武威

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《用來分割文本的vbs腳本》,本文關(guān)鍵詞  用來,分割,文本,的,vbs,腳本,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用來分割文本的vbs腳本》相關(guān)的同類信息!
  • 本頁收集關(guān)于用來分割文本的vbs腳本的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章