標題: 超新手循求各位大大提供Wscript.Echo 結果輸出成txt方法 [打印本頁]

---

作者: linnetkill    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)