今日もエロじゃないけど･･･ｗ

今日もエロじゃないけど･･･
ある種、裏的な一般フルオープンな書き込み内容じゃないきがする
ので、裏にしますた。

今職場で作っていた、プログラムが出来まつたｗ

物としては、一応外部ファイル･･･(今はテキストファイルと規定)した物から
順番に書いてある文字を抽出して、それを外部に別の連番ファイルを作成（今はテキストファイルと規定）
しながら、書き込む。
つまり･･･たとえば今年入社の社員が35人いたとする。
そして、外部の作られるファイルは社員番号だと規定･･･2008年の入社は080001がスタート･･･など。
そして、そのファイルに書き込まれるのは、入社社員一覧ファイルから、社員番号を割り振りながら
順番に書き込まれていく･･･但し、入社社員一覧ファイルの順番に割り振りとすると
1行目の人が、080001と言う社員番号を割り振られ、その番号で外部ファイルが作られ
その外部ファイルには、その人の情報が書き込まれる･･･こんな感じ。
後は、その時のケースによって、このプログラムを書き換えればOKになる。

基本、規定数のファイルの作成が出来る･･･そして、書き込まれる情報も、順番にずれて
その人それぞれの情報が書き込まれるはず。
実際には、もっと、検索・抽出や、複数行の書き込みになると思われる。

入社社員一覧ファイル・・・ここでは、デスクトップ上に作成したlist.txtになっている。

以下が、そのデータ。

Option Explicit

Dim objFSO(3)
Dim objFile(3)
Dim objFileSys
DimstrCreatePath
DimstrTempFile
DimstrLine
Dim A(2)
DimlngCount
Dim B(2)
Dim i
DimstrMoveFrom
DimstrMoveTo
Dim NetWorkUser

Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objFSO(1) = WScript.CreateObject("Scripting.FileSystemObject")
Set objFSO(3) = CreateObject("Scripting.FileSystemObject")
Set NetWorkUser = WScript.CreateObject("WScript.Network")

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

lngCount = CDbl (InputBox("今年の入社人数を入力してください","入社者数","ここに入力"))
A(1) = CDbl (InputBox("今年startの社員番号を入力してください","最初の社員番号","ここに入力"))

B(1) =lngCount - 1
B(2) = CDbl (B(1) + A(1))
A(2) = -1

Do While A(1) <= B(2)

strTempFile = objFileSys.GetTempName
strCreatePath = objFileSys.BuildPath("C:\Documents and Settings\" & NetWorkUser.UserName & "\デスクトップ\",strTempFile)
objFileSys.CreateTextFilestrCreatePath

Set objFile(2) = objFSO(1).OpenTextFile("C:\Documents and Settings\" & NetWorkUser.UserName & "\デスクトップ\list.txt", 1)
For i = 0 to A(2)
objFile(2).SkipLine
Next
strLine = objFile(2).ReadLine

Set objFSO(2) = CreateObject("Scripting.FileSystemObject")
Set objFile(3) = objFSO(2).OpenTextFile("C:\Documents and Settings\" & NetWorkUser.UserName & "\デスクトップ\" &strTempFile, ForAppending)

objFile(3).WriteLine (strLine)

objFile(3).Close

strMoveFrom =strCreatePath
strMoveTo = "C:\Documents and Settings\" & NetWorkUser.UserName & "\デスクトップ\0" & A(1) & ".txt"

objFSO(3).MoveFilestrMoveFrom,strMoveTo


A(1) = A(1) + 1
A(2) = A(2) + 1

Loop

まぁ･･･いいんでねぇのｗ