vbs解決處理TXT文本數據相關問題實現代碼

2019-10-26 18:05:06

字體：大中小

來源：轉載

供稿：網友

有個小問題，如下：
現有文本文件1.txt，內容如下：
數值_1出現頻度12647
數值_2出現頻度10000
數值_3出現頻度12608
數值_4出現頻度8712
數值_5出現頻度10658
數值_6出現頻度8472
數值_7出現頻度11232
數值_8出現頻度8648
數值_9出現頻度9264
數值_10出現頻度7192
數值_11出現頻度7192
。。。。
大概有100行
要求把里面每行的數值放到變量中，然后輸出成文本文件 2.txt
舉例：把第一行的12674，放到變量a1中
把第二行的10000，放到變量a2中
把第三行的12608，放到變量a2中
….直到最后一行
最后輸出成“2.txt” 文本文件的內容為：
a1 = 12647
a2 = 10000
a3 = 12608
a4 = 8712
….
a11 = 7192
希望能能夠找到相關代碼，并且是能在windows下運行的??！找呀找呀找呀。。
實現代碼如下：
VB code:
復制代碼代碼如下:

set fso = createobject("scripting.filesystemobject")
set file=fso.opentextfile("1.txt")
ts = file.readall
file.close
set fil = fso.createtextfile("2.txt")
ts=replace(ts,"數值_","a")
ts=replace(ts,"出現頻度","=")
'''如果有橫線和空行，加上這個，沒有就注釋掉
ts=replace(ts,"-----------------------"+vbnewline+vbnewline,"")
fil.write ts
fil.close
MsgBox "處理完成"上面的代碼是把1.txt直接改成了2.txt，中間變量a1~a100省去了，如果還需要中間變量做其它用途的話，可以讀取2.txt內容并賦值，代碼如下：
VBScript code:
set fso = createobject("scripting.filesystemobject")
set ts = fso.opentextfile("2.txt")
i=0
do while ts.AtEndOfStream=false
str = ts.ReadLine
execute str '執行賦值
i=i+1
execute("value=a" & i)'獲取變量 a1…… 的值
Response.Write("a" & i & "值為：" & value &"<br/>") '輸出
loop還有一種方法，如下面的代碼所示：
VBScript code:
Set fs = CreateObject("Scripting.FileSystemObject")
Set txt1 = fs.OpenTextFile("1.txt", 1)
Set txt2 = fs.CreateTextFile("C:/FSO/ScriptLog.txt")
Do Until txt1.AtEndOfStream
str_a = txt1.ReadLine
str_a = replace(str_a, "度","$")
str_ar = split(str_a, "$")
if isnumeric(str_ar(ubound(str_a))) then
txt2.writeline str_ar(ubound(str_a))
end if
Loop
txt1.close
txt2.close
set txt1 = nothing
set txt2 = nothing
set fs = nothing

您可能感興趣的文章:

VBS合并一個文件夾里的TXT的實現代碼VBS實現將Excel表格保存為txt文本TXT轉HTM、HTML「TXT轉網頁」的vbs實現代碼用vbs產生的若干個隨機數并寫入到一個.txt中的代碼將HTML或txt文件轉換為ASP輸出的vbs代碼用VBS將一篇txt后綴的內容保存為html格式vbs實現的支持拖動的txt文本切割器vbs操作txt文本文件常用方法與函數代碼

上一篇：VBS基礎視頻教程批處理之家broly出品

下一篇：VBS實現將字符串寫入剪切板的實現代碼