超新手循求各位大大提供Wscript.Echo 結果輸出成txt方法
- 帖子
- 10
- 主題
- 6
- 精華
- 0
- 積分
- 54
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 2000
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-7-6
- 最後登錄
- 2022-1-30
|
超新手循求各位大大提供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 |
|
|
|
|
|
|
|
發表於 2019-12-24 23:35
| 
