Excel VBA質問箱 IV

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

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


28032 / 76732 ←次へ | 前へ→

【54011】指定のファイルをインポートしてグループ別のファイルを出力するVBA
質問  まんじゅう  - 08/2/20(水) 2:10 -

引用なし
パスワード
   EXCELにて、指定のファイルをインポートして
グループ別のファイル(100バイトで改行)を出力するVBAの作成をしています。
先頭行の1から8までが1グループでグループごとのファイルを出力したいです。
先頭行9は最終行

・指定のテキストファイル(100バイトで改行されている)
------------------------------
1山田・・・・・・・・・・・□□
2猿川・・・・・・・・・・・□□
2出川・・・・・・・・・・・・□
2田部・・・・・・・・・・・□□
8殿堂・・・・・・・・・・・□□
------------------------------ここまで1グループ
1前田・・・・・・・・・・・□□
2布施・・・・・・・・・・・・・
2川崎・・・・・・・・・・・□□
2舎熊・・・・・・・・・・・□□
2ラルド・・・・・・・・・・□□
2皆川・・・・・・・・・・・□□
8海堂・・・・・・・・・・・□□
------------------------------ここまで2グループ
・・・・・・・・・・・・・・・・
・・・・・・・・・・・・・・・・
・・・・・・・・・・・・・・・・
------------------------------ここまでnグループ
9・・・・・・・・・・・・・□□最終行
※□は半角スペース

イメージとしては、グループごとにグループ番号を付与し、(グループ1なら番号1)
それをファイル名別(out1.txt、out2.txt、・・・・outn.txt)にtxtで出力したいです。また最終行に半角スペースがある場合は半角スペースも含めたいです。

・出力ファイル
out1.txt
---------------------------------
1山田・・・・・・・・・・・□□
2猿川・・・・・・・・・・・□□
2出川・・・・・・・・・・・・□
2田部・・・・・・・・・・・□□
8殿堂・・・・・・・・・・・□□
---------------------------------

out2.txt
---------------------------------
1前田・・・・・・・・・・・□□
2布施・・・・・・・・・・・・・
2川崎・・・・・・・・・・・□□
2舎熊・・・・・・・・・・・□□
2ラルド・・・・・・・・・・□□
2皆川・・・・・・・・・・・□□
---------------------------------

outn.txt
---------------------------------
1○○・・・・・・・・・・・□□
2○○・・・・・・・・・・・・・
2○○・・・・・・・・・・・□□
2○○・・・・・・・・・・・□□
8○○・・・・・・・・・・・□□
---------------------------------

この仕様はエクセルで実現可能でしょうか。
よろしくお願いします。

0 hits

【54011】指定のファイルをインポートしてグループ別のファイルを出力するVBA まんじゅう 08/2/20(水) 2:10 質問
【54012】Re:指定のファイルをインポートしてグルー... りん 08/2/20(水) 6:20 回答
【54027】Re:指定のファイルをインポートしてグルー... まんじゅう 08/2/20(水) 15:19 質問
【54033】Re:指定のファイルをインポートしてグルー... りん 08/2/20(水) 19:07 回答
【54040】Re:指定のファイルをインポートしてグルー... まんじゅう 08/2/21(木) 10:18 質問
【54051】Re:指定のファイルをインポートしてグルー... りん 08/2/21(木) 18:46 回答
【54057】Re:指定のファイルをインポートしてグルー... まんじゅう 08/2/22(金) 10:50 お礼
【54135】Re:指定のファイルをインポートしてグルー... まんじゅう 08/2/26(火) 2:50 質問
【54231】Re:指定のファイルをインポートしてグルー... りん 08/3/1(土) 12:33 回答

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