2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« FileSystemObjectでバイナリを読み書きする。 | トップページ | VBSファイルの実行を逐次化する。 »

2008年2月 4日 (月)

テキストファイルを使って連番を生成する。

テキストファイルなどにカウンタを書いて、+1で更新して連番を生成するのは、多重処理に耐えません。
では、どうするか?

テキストファイルへの空行の追加書きで、行数をカウンタに使えば、おk。

Option Explicit
Dim fso
Dim Lock
Dim SEQ

Set fso=CreateObject("Scripting.FileSystemObject")
Sub TryLock
  On Error Resume Next
  Set Lock=fso.OpenTextFile(WScript.ScriptFullName&".SEQ",8,True)
End Sub
Do
  TryLock
  If Err.Number=0 Then Exit Do
  WScript.Sleep 100
Loop
Lock.WriteBlankLines 1
SEQ=Lock.Line-1
Lock.Close
WScript.Echo SEQ

« FileSystemObjectでバイナリを読み書きする。 | トップページ | VBSファイルの実行を逐次化する。 »