Excel VBA質問箱 IV

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

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


27914 / 76736 ←次へ | 前へ→

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

引用なし
パスワード
   りん さん
 
こんばんわ。

りんさんからおそわった
最新のプログラムで出力するファイル名の名前を変更したいと考えています。
先頭番号2のファイルの80バイトから81バイトで各グループごと
に同じ番号が入っております。
その番号をグループ別の出力されるファイル番号にすれには
どうしたらよいでしょうか。
番号は、10、20、30、40、50,60です。
番号は、インポートするファイルにより
10から60のすべて入っている場合もありますし
10、20、30だけの場合もあります。
この番号分(10,20,30なら3つ)のグループ
にしたいのですが。
ご教授よろしくお願いします


・指定のテキストファイル(100バイトで改行されている)
80から81バイトに10、20、30、40、50,60
の番号があります。
------------------------------
1山田・・・・・・・・・・・・□□
2猿川・・・・・・10・・・・□□
2出川・・・・・・10・・・・・□
2田部・・・・・・10・・・・□□
8殿堂・・・・・・・・・・・・□□
------------------------------ここまで1グループ
1前田・・・・・・・・・・・・・□□
2布施・・・・・・20・・・・・・・
2川崎・・・・・・20・・・・・□□
2舎熊・・・・・・20・・・・・□□
2ラルド・・・・・20・・・・・□□
2皆川・・・・・・20・・・・・□□
8海堂・・・・・・・・・・・・・□□
------------------------------ここまで2グループ
・・・・・・・・・・・・・・・・
・・・・・・・・・・・・・・・・
・・・・・・・・・・・・・・・・
------------------------------ここまでnグループ
9・・・・・・・・・・・・・□□最終行
※□は半角スペース


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

out20.txt
---------------------------------
1前田・・・・・・・・・・・・・□□
2布施・・・・・・20・・・・・・・
2川崎・・・・・・20・・・・・□□
2舎熊・・・・・・20・・・・・□□
2ラルド・・・・・20・・・・・□□
2皆川・・・・・・20・・・・・□□
8海堂・・・・・・・・・・・・・□□

---------------------------------

outn.txt
---------------------------------
1○○・・・・・・・・・・・□□
2○○・・・・・・n・・・・・・・
2○○・・・・・・n・・・・・□□
2○○・・・・・・n・・・・・□□
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 回答

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