vbsについて

質問

[LOG]
FIle = 4
[Color]
Grid=128 128 128
Curve=255 0 0
Fitting=128 128 128
[Bitmap]
BitmapSize=64

上記のようなiniファイルの中身があり、Fileの値が100でない場合、VBSで100に書き換えたいのですが、どのように行えばよろしいでしょうか？

よろしくお願いします。

回答No.3

marbin

>sp = Split(txtstr, vbCrLf)
If sp(1) <> "File = 100" Then
sp(1) = "File = 100"
テキストファイルを書き換える処理
End If

のように条件分岐してもいいですね。

回答No.2

marbin

サンプルです。

Dim FSO
Dim f
Dim txtmei
Dim txtstr
Dim newtxtstr
Dim sp
Set FSO = CreateObject("Scripting.FileSystemObject")
txtmei = "D:\test\hoge.ini"
Set f = FSO.OpenTextFile(txtmei)
txtstr = f.ReadAll
sp = Split(txtstr, vbCrLf)
sp(1) = "File = 100"
newtxtstr = join(sp,vbcrlf)
Set f = FSO.CreateTextFile(txtmei)
f.write newtxtstr
f.Close
Set f = Nothing
Set FSO = Nothing

回答No.1

marbin

とにかく、２行目を
File = 100
に書き換えればいいだけのことのように思います。
条件分岐は不要かと。

お礼

ご丁寧なご回答ありがとうございます。
早速、取り組みます。