LoginSignup
Kakeishi_Misa
@Kakeishi_Misa

Are you sure you want to delete the question?

Leaving a resolved question undeleted may help others!

【VBA】テキストファイルに記載されている「&」を「&」に一括置換したい

Q&A

Closed

VBAVBA,Excel

解決したいこと

テキストファイルに記載されている「&」を「&」に一括置換したいです。

「Replace(xmlData, "&", "&")」を使用しても
変化がありません。

ソースコードをどのように修正すれば良いでしょうか。

該当するソースコード

            Dim objStream As Object
            Set objStream = CreateObject("ADODB.Stream")

            ' 文字コードを設定
            objStream.Charset = "UTF-8"
            ' ファイルオープン
            objStream.Open

            ' 入力ファイルを読み込む
            objStream.LoadFromFile File

            ' データを変数に格納する
            Dim xmlData As String
            xmlData = objStream.ReadText(-1) 
            Debug.Print (xmlData)

            xmlData = Replace(xmlData, "&", "&")

            objStream.WriteText xmlData

            ' ファイルクローズ
            objStream.Close

            Set objStream = Nothing
0

1Answer

baku2san
@baku2san

xmlData = Replace(xmlData, "&", "&")

の直後で Break Point 設定すれば置換されていませんか？

'File' に反映されていない、という話であれば、以下のSampleやDocumentを確認された方が良いかと思います。

1Like

Comments

  1. @Kakeishi_Misa

    Questioner

    >'File' に反映されていない、という話であれば
    ご指摘の通りです。

    objStream.WriteText xmlDataで
    ストリームにデータを書き込んだだけでした。
    txtStream.Write xmlDataを記載すると
    ファイルに書き込まれました。
    ありがとうございました。

Your answer might help someone💌

LoginSign Up