0

コード (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 というメッセージが表示されます。どんな助けでも大歓迎です。

ご回答ありがとうございます。

4

1 に答える 1

0

余分な引用符を削除してみてください:

sTemp = Replace(sTemp, "aaaaaaaaaa", "bbbbbbbbbb <br /> cccccccccc")

XMLコードに実際に2行が必要な場合は、これを試してください:

sTemp = Replace(sTemp, "aaaaaaaaaa", "bbbbbbbbbb" & vbCRLF & "cccccccccc")
于 2012-08-26T14:05:01.817 に答える