返回列表 上一主題 發帖

超新手循求各位大大提供Wscript.Echo 結果輸出成txt方法

linnetkill

帖子
10 
主題
6 
精華
0 
積分
54 
點名
0  
作業系統
windows 
軟體版本
2000 
閱讀權限
20 
性別
男 
註冊時間
2010-7-6 
最後登錄
2022-1-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-12-24 23:35 | 只看該作者

超新手循求各位大大提供Wscript.Echo 結果輸出成txt方法

本帖最後由 linnetkill 於 2019-12-24 23:37 編輯

DATA.txt
00001caseD-123456789012345678901234567890
00001caseD-1234567890123456789
00001caseD-1234567890123456
00001caseD-123456789012345678901234
輸出變成下列,只變更每列前五個字元其他維持不變
00001caseD-123456789012345678901234567890
00002caseD-1234567890123456789
00003caseD-1234567890123456
00004caseD-123456789012345678901234

我上網找了修改了一部分,但是輸出成txt方式做不出,是否大大可以幫我看一下
下述是程式部分
Set objRegEx = CreateObject("VBScript.RegExp")
Dim arrFileLines()
ABC = ""
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\data.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "\d{i}"
For l = LBound(arrFileLines) to UBound(arrFileLines) Step 1
strNewString = objRegEx.Replace(arrFileLines(l),"0000" & (l+1) )'位元數加上迴圈數
ABC = ABC & strNewString & chr(10)
Next
Wscript.Echo ABC
收藏 分享

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題