回答編集履歴
1
しゅうせい
answer
CHANGED
|
@@ -6,7 +6,9 @@
|
|
|
6
6
|
Dim f
|
|
7
7
|
Set f = fso.OpenTextFile(logPath & buf4, 1)
|
|
8
8
|
|
|
9
|
+
'ファイルの終わりまでループ処理
|
|
9
10
|
Do Until f.AtEndOfLine
|
|
11
|
+
'１行ずつ読み込む
|
|
10
12
|
sLine = f.ReadLine
|
|
11
13
|
If InStr(sLine, CS_SEARCH) > 0 Then
|
|
12
14
|
Net_ver = Mid(sLine, InStr(1, sLine, CS_SEARCH) + Len(CS_SEARCH)) '「Release」表記のあとのバージョンを求める。
|