置換の際に二つの文字列に挟まれたセルの中身を置換したい

Question

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
のような形でAとBに囲まれるセルを置換したいのですが、
AとBの外側に値があると置換できません。
ワイルドカードなどで指定したいのですが
どうすればいいでしょうか、

Answer 1

If arr(i) Like "*=" & c.Value & ",*" Then

Answer 2

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,"A"& c.Value &"B", "A"&c.Offset(, 1).Value &"B")
        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

     

buf = Replace(buf,"A"& c.Value &"B", "A"&c.Offset(, 1).Value &"B")の部分を調整して解決しました。AとBの前後に空白などある場合に対応したいので、正規表現の書き方を教えていただきたいです。

Answer 3

文字列x中の任意の場所にA & y & BがあればZに置換したいのですよね？
であれば、

pattern = A & y & B
length = Len(pattern)
index = InStr(x, pattern)
If (index > 0) Then
    x = Left(x, index) & Z & Mid(x, index + length)
End If

という感じでしょうか。
このコードは試していないのでミスがあったらごめんなさい。
もし、xの中にpatternが複数個あった場合全部を置換したいなら、もう少しコードを足さないといけませんが、とりあえず。