置換の際に条件を指定

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, など

jinoji

2021/05/24 03:19

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

行動規範の内容に同意します

回答1件

ベストアンサー

こうですかね。

VBA
1Dim buf, arr, i
2buf = ADOFileLoad(ThisWorkbook.Path & "\" & Filename)
3arr = Split(buf, vbNewLine)
4
5'変換表に従い置換
6Dim c As Range
7For Each c In Rng.Cells
8    For i = 0 To UBound(arr)
9        If arr(i) = "=" & c.Value & "," Then
10           arr(i) = Replace(arr(i), c.Value, c.Offset(, 1).Value)
11        End If
12        DoEvents
13    Next
14Next
15buf = Join(arr, vbNewLine)
16'別名でtxt書き出し
17ADOFileSave buf, ThisWorkbook.Path & "\New_" & fileName
18