コード (8 月 15 日 13:08 の Olle Sjögren 氏の回答) を使用して、フォルダー d:\eBobo 内の複数の xml ファイルで 1 行を 2 行に置き換えようとしました。
たとえば、1 行を変更したいと思います (これは、そのフォルダー内のすべての xml ファイルで同じです)。
あああああああ
行に(すべてのxmlファイルでも):
bbbbbbbbbb
cccccccccc
これは私の試みです:
Sub ReplaceStringInFile()
Const sSearchString As String = "d:\eBobo\*.xml"
Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String
Dim sFilePath As String
sFileName = Dir(sSearchString)
Do While sFileName <> ""
sFilePath = "d:\eBobo\" & sFileName 'Get full path to file
iFileNum = FreeFile
sTemp = "" 'Clear sTemp
Open sFilePath For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTemp = sTemp & sBuf & vbCrLf
Loop
Close iFileNum
sTemp = Replace(sTemp, "aaaaaaaaaa", "bbbbbbbbbb" <br /> "cccccccccc")
iFileNum = FreeFile
Open sFilePath For Output As iFileNum
Print #iFileNum, sTemp
Close iFileNum
sFileName = Dir() 'Get the next file
Loop
End Sub
Syntax Error というメッセージが表示されます。どんな助けでも大歓迎です。
ご回答ありがとうございます。