|
どうもありがとうございます。
>テキストファイルをOpenし、テキストを置換するコードは、分りますか?
VBAはマクロの記録を眺めたことがある程度なので、よくわかりません。申し訳ありません。
また私の説明不足で申し訳ありません。
規則を説明しなおしたので、ふたたび、よろしくお願い致します。
順番は1を行った後に2を行います。
ファイルの内容のみ変更して、ファイル名は変更しません。
UFT-8以外の形式の場合、UFT-8の形式にします。
テキストファイルの拡張子はすべてtxtです。
処理するのはフォルダに存在するすべてのテキストです。
1.
"<"と">"の間に、改行以外の文字列が入るものは空白置換。
この文章でダブルクオーテーションは下記と同じような使い方をしています。つまり、対象をくくっているだけなので、それ自体に意味はありません。
f = Dir$(DeskTop & "あいう*.txt")
例)
"<abcd>"は""に置換する
"<ab cd ef>"は""に置換する
"<#$%&'あいうabu>"は""に置換する
2.
3つの連続する改行コードがあるときは、2つの連続する改行コードに置換。
3つ以上連続する改行コードがあるときも、2つの連続する改行コードに置換。
改行コードはCRLF、CR、LFなどすべての種類があるとします。
改行コードは最大で100個ぐらい連続します。
あまり詳しくありませんが、PHPでいうstr_replaceのようなイメージかもしれません。
例)
==============================================
あいうえお '残す改行コード←1個目の改行コード
'残す改行コード←2個目の改行コード
'消す改行コード←3個目の改行コード
かきくけこ '残す改行コード←1個目の改行コード
'残す改行コード←2個目の改行コード
'消す改行コード←3個目の改行コード
'消す改行コード←4個目の改行コード
'消す改行コード←5個目の改行コード
さしすせそ '残す改行コード←1個目の改行コード
たちつてと '残す改行コード←1個目の改行コード
なにぬねの '残す改行コード←1個目の改行コード
'残す改行コード←2個目の改行コード
'消す改行コード←3個目の改行コード
'消す改行コード←4個目の改行コード
'消す改行コード←5個目の改行コード
'消す改行コード←6
はひふへほ '残す改行コード←1個目の改行コード
==============================================
上記は下記のように置換(変換)する。
==============================================
あいうえお '文字列と文字列の空白は0行か1行になります。
かきくけこ
さしすせそ
たちつてと
なにぬねの
はひふへほ
==============================================
|
|