置換の際に条件を指定

Question

Sub sample()

'変換表はこのブックの１シート目に用意されているものとする
Dim mySheet As Worksheet, rng As Range
Set mySheet = ThisWorkbook.Worksheets(1)
Set rng = mySheet.UsedRange.Columns(1)


'txtファイルはこのマクロと同じ場所にあるものとする
Dim fileName As String
fileName = Dir(ThisWorkbook.Path & "*.txt")


'ループ
Do While fileName <> ""

    '読み込み（ファイルはすべてUTF-8であるものとする）
    Dim buf, arr
    buf = ADOFileLoad(ThisWorkbook.Path & "\" & fileName)

    '変換表に従い置換
    Dim c As Range
    For Each c In rng.Cells
        buf = Replace(buf, c.Value, c.Offset(, 1).Value)
        DoEvents
    Next
    '別名でtxt書き出し
    ADOFileSave buf, ThisWorkbook.Path & "\New_" & fileName

    'シートにも書き出し
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets.Add(After:=mySheet)

    arr = Split(buf, vbNewLine)
    ws.Cells.Resize(UBound(arr) + 1, 1).Value = WorksheetFunction.Transpose(arr)

    '次へ
    fileName = Dir()
Loop

End Sub

Function ADOFileLoad(myPath)

With CreateObject("ADODB.Stream")
    .Open
    .Type = 2
    .Charset = "UTF-8"
    .LoadFromFile myPath
    ADOFileLoad = .ReadText
    .Close
End With

End Function

Sub ADOFileSave(buf, myPath)

With CreateObject("ADODB.Stream")
    .Open
    .Type = 2
    .Charset = "UTF-8"
    .WriteText buf
    .SaveToFile myPath, 2
    .Close
End With

End Sub

のような形で置き換えをしているのですが、置き換えする文の条件に
= ,で囲まれている場合をつけるにはどうすればいいでしょうか
=ABC, など

Comments

[jinoji]

やりたいことがわかりづらいので、
たとえば元のcsvにはどう書かれていて、それをどう変換したいのか、ということを
もう少し具体的に説明してください。

Answer 1

こうですかね。

Dim buf, arr, i
buf = ADOFileLoad(ThisWorkbook.Path & "\" & Filename)
arr = Split(buf, vbNewLine)

'変換表に従い置換
Dim c As Range
For Each c In Rng.Cells
    For i = 0 To UBound(arr)
        If arr(i) = "=" & c.Value & "," Then
           arr(i) = Replace(arr(i), c.Value, c.Offset(, 1).Value)
        End If
        DoEvents
    Next
Next
buf = Join(arr, vbNewLine)
'別名でtxt書き出し
ADOFileSave buf, ThisWorkbook.Path & "\New_" & fileName

---

<追記前>
質問の意味が分からなかったので推測で書きますが、

csvファイルを一定のルールに従って文字列置換する処理で、
変換のための表をExcelシートで記述する仕様になっていて、

変換前文字列	変換後文字列
ABC	DEF

だとうまくいくけど

変換前文字列	変換後文字列
=ABC,	=DEF,

としようとするとExcelシートにうまく記入できない、ということですか？
もしそうだとすると、

変換前文字列	変換後文字列
'=ABC,	'=DEF,

と頭にシングルクォーテーションをつけたらいけそうな気がします。

Comments

[HuransowaRuiz]

csvファイルの中身のABCが
= ,で囲まれてる場合のみ変換するようにしたいです。
変換表自体は
変換前　ABC 変換後　DEF
にしたいです。