Python-AI人工智慧入門班大學資訊系入場券-APCS程式能力檢定2019年最新專案補助培訓方案
返回列表 回復 發帖

是否可以看一下程式那裡有問題及輸出成txt檔案的方法

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
收藏 分享
返回列表