質問編集履歴
4
ちなみにvbsの文字コードはSJISでphpの文字コードはUTF-8です。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
```vbs
|
|
16
16
|
Option Explicit '変数の宣言を省略させないためのものです。
|
|
17
17
|
|
|
18
|
-
Const TARGET_FOLDER = "
|
|
18
|
+
Const TARGET_FOLDER = "d:..." '※フォルダを指定
|
|
19
19
|
Const REPLACE_FROM = "so" '※置換前文字列
|
|
20
20
|
Dim REPLACE_TO ' 置換後文字列
|
|
21
21
|
|
|
@@ -32,11 +32,7 @@
|
|
|
32
32
|
strFilePath = objFSO.BuildPath(TARGET_FOLDER, objFile.Name)
|
|
33
33
|
strExt = objFSO.GetExtensionName(objFile.Name)
|
|
34
34
|
|
|
35
|
-
If objFile.Size > 0 Then
|
|
36
|
-
MsgBox "終了", vbInformation
|
|
37
|
-
End If
|
|
38
|
-
|
|
39
|
-
If LCase(strExt) = "php" Then
|
|
35
|
+
If objFile.Size > 0 And LCase(strExt) = "php" Then
|
|
40
36
|
Set infile = objFSO.OpenTextFile(strFilePath,ForReading)
|
|
41
37
|
strData = infile.ReadAll
|
|
42
38
|
infile.Close
|
3
変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
```vbs
|
|
16
16
|
Option Explicit '変数の宣言を省略させないためのものです。
|
|
17
17
|
|
|
18
|
-
Const TARGET_FOLDER = "F:\「は」
|
|
18
|
+
Const TARGET_FOLDER = "F:\「は」" '※フォルダを指定
|
|
19
19
|
Const REPLACE_FROM = "so" '※置換前文字列
|
|
20
20
|
Dim REPLACE_TO ' 置換後文字列
|
|
21
21
|
|
|
@@ -33,6 +33,7 @@
|
|
|
33
33
|
strExt = objFSO.GetExtensionName(objFile.Name)
|
|
34
34
|
|
|
35
35
|
If objFile.Size > 0 Then
|
|
36
|
+
MsgBox "終了", vbInformation
|
|
36
37
|
End If
|
|
37
38
|
|
|
38
39
|
If LCase(strExt) = "php" Then
|
2
回答通りに直したのですが、同じエラー「プロシージャの呼び出し、または因数が不正です。」が出ます
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
```vbs
|
|
16
16
|
Option Explicit '変数の宣言を省略させないためのものです。
|
|
17
17
|
|
|
18
|
-
Const TARGET_FOLDER = "
|
|
18
|
+
Const TARGET_FOLDER = "F:\「は」にバックアップが入っているもの\I(ミュージック母)チェック\H(音声系)チェック\みんポケ\民譚ポケットエポック（ホームページ）\som\utau\record_audio\ここまで" '※フォルダを指定
|
|
19
19
|
Const REPLACE_FROM = "so" '※置換前文字列
|
|
20
20
|
Dim REPLACE_TO ' 置換後文字列
|
|
21
21
|
|
|
@@ -31,6 +31,10 @@
|
|
|
31
31
|
For Each objFile In objFolder.Files
|
|
32
32
|
strFilePath = objFSO.BuildPath(TARGET_FOLDER, objFile.Name)
|
|
33
33
|
strExt = objFSO.GetExtensionName(objFile.Name)
|
|
34
|
+
|
|
35
|
+
If objFile.Size > 0 Then
|
|
36
|
+
End If
|
|
37
|
+
|
|
34
38
|
If LCase(strExt) = "php" Then
|
|
35
39
|
Set infile = objFSO.OpenTextFile(strFilePath,ForReading)
|
|
36
40
|
strData = infile.ReadAll
|
1
htmlをphpに変更しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -31,7 +31,7 @@
|
|
|
31
31
|
For Each objFile In objFolder.Files
|
|
32
32
|
strFilePath = objFSO.BuildPath(TARGET_FOLDER, objFile.Name)
|
|
33
33
|
strExt = objFSO.GetExtensionName(objFile.Name)
|
|
34
|
-
If LCase(strExt) = "
|
|
34
|
+
If LCase(strExt) = "php" Then
|
|
35
35
|
Set infile = objFSO.OpenTextFile(strFilePath,ForReading)
|
|
36
36
|
strData = infile.ReadAll
|
|
37
37
|
infile.Close
|