Question

你是否屈服于柜台：

Function PadZeros(s, l)
  PadZeros = Right("00000000" & s, l)
End Function

Dim myFSO, Licznik_ID, txt, arr
Set myFSO = CreateObject ("Scripting.FileSystemObject")
txt = myFSO.OpenTextFile ("C:\tmp\yourtextfile.txt").ReadAll
arr = split(txt, " ")
Licznik_ID = arr(UBound(arr))
txt = txt & " " & PadZeros(CInt(Licznik_ID)+1, 8)
myFSO.OpenTextFile ("C:\tmp\yourtextfile.txt", 2, True).write (txt)

这样做是为了保存计数器的每个数字，后者是txt文件中唯一的数字？

所以而不是00001 00002 00003

可以这样做：

00003

或记住最后一次计数的最后一位数。

为了创建CSV文件，是否可以在向下而不是向右写下？

Answer 1

替换此行

txt = txt & " " & PadZeros(CInt(Licznik_ID)+1, 8)

用这个

txt = PadZeros(CInt(Licznik_ID)+1, 8)

txt包含文本文件的原始内容。如果你说txt = txt &那么你就是在&到最后之后连接所有内容

Answer 2

如果您希望当前计数器替换以前的计数器：只需将当前计数器附加到之前的计数器。

filename = "C:\tmp\yourtextfile.txt"

Set fso = CreateObject ("Scripting.FileSystemObject")

'read ID from file
Licznik_ID = CInt(fso.OpenTextFile (filename).ReadAll)

Licznik_ID = Licznik_ID + 1

'write incremented ID back to file
fso.OpenTextFile(filename, 2, True).Write Licznik_ID

计数器 - 写入txt文件

2 个答案: