Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6196 / 76734 ←次へ | 前へ→

【76140】Re:ExcelのVBAでテキストファイルの編集の書き換えをする方法
質問  みその  - 14/10/4(土) 6:31 -

引用なし
パスワード
   どうもありがとうございます。

>テキストファイルを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行になります。

かきくけこ

さしすせそ
たちつてと
なにぬねの

はひふへほ
==============================================
1 hits

【76135】ExcelのVBAでテキストファイルの編集の書き換えをする方法 みその 14/10/3(金) 21:31 質問
【76136】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/3(金) 22:43 発言
【76137】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/3(金) 23:10 発言
【76138】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/3(金) 23:13 発言
【76139】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/4(土) 0:05 質問
【76140】Re:ExcelのVBAでテキストファイルの編集の... みその 14/10/4(土) 6:31 質問
【76141】Re:ExcelのVBAでテキストファイルの編集の... みその 14/10/4(土) 6:38 質問
【76142】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/4(土) 7:52 発言
【76153】Re:ExcelのVBAでテキストファイルの編集の... みその 14/10/5(日) 18:09 質問
【76154】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/5(日) 20:16 発言
【76156】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/6(月) 11:40 発言
【76157】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/6(月) 11:46 発言
【76158】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/6(月) 11:52 発言
【76159】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/6(月) 11:54 発言
【76174】Re:ExcelのVBAでテキストファイルの編集の... γ 14/10/8(水) 19:50 発言
【76177】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/8(水) 22:40 発言
【76179】Re:ExcelのVBAでテキストファイルの編集の... γ 14/10/9(木) 6:12 発言
【76181】Re:ExcelのVBAでテキストファイルの編集の... γ 14/10/9(木) 6:21 発言
【76182】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/9(木) 9:04 発言
【76183】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/9(木) 11:17 発言
【76185】Re:ExcelのVBAでテキストファイルの編集の... γ 14/10/9(木) 21:40 発言
【76160】Re:ExcelのVBAでテキストファイルの編集の... みその 14/10/6(月) 16:16 お礼
【76162】Re:ExcelのVBAでテキストファイルの編集の... マルチーズ 14/10/6(月) 17:19 発言
【76186】Re:ExcelのVBAでテキストファイルの編集の... kanabun 14/10/10(金) 9:05 発言

6196 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free