返回列表 上一主題 發帖

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

超新手循求各位大大提供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

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題