質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

693閲覧

replaceに正規表現を使う方法

HuransowaRuiz

総合スコア14

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

1クリップ

投稿2021/05/28 04:40

Sub sample()

'変換表はこのブックの1シート目に用意されているものとする
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

でreplaceの部分で正規表現を使うにはどうしたらいいでしょうかex

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

neconekocat

2021/05/28 08:35

あなたが一つ前にした質問で完璧な回答が既に提示されています。
guest

回答1

0

自己解決

buf = Replace(buf,"A"& c.Value &"B", "A"&c.Offset(, 1).Value &"B")
の部分に置換のじょうく

投稿2021/05/28 05:18

HuransowaRuiz

総合スコア14

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問