こんな感じで改行無し、、
ＴＹＰＥでやると、ユーザー型がでる、、ＶＢＡ賢い、、
実行結果
ＣＳＶファイルを作る
結果、、あれ、１行最後空行だ、、あと、Ｔｒｉｍでスペース取れてない
＜Excel97 VBA CRLF抜きの固定長ファイルを処理＞ 目次 1.はじめの挨拶 2.さて、どうしよう 3.まず、読み込みだけ、作成しよう 4.依頼はＣＳＶ作成でしょ 5.おわりの挨拶 ---------------------------------------------------------------------------- /* * １.こんにちは */ こんにちは。 なんか、毎晩の営業活動で疲れてます。 今回は、マジメに、プログラムやってみたいと思います。 簡単に消化可能な話題、、あったかなぁ、、 あっ、これ、やってみよう。。。 ---- >特殊な固定長形式のデータ（１行になっていて、最 >後にＥＯＦがきて終わりです。データファイル名：Ｔｅｓｔ．ｔｘｔを >参照して下さい）を６４バイトごとに >区切るのはどうしたら良いでしょうか？また、このデータからダイレク >トに社員番号（８桁）、漢字氏名（２０桁）、ローマ字（２４桁）、予 >備１（６桁）、予備２（６桁）のＣＳＶデータにすることは可能でしょ >うか？ >いやらしいことに、漢字氏名は全角と半角が混在しています。 ---- なんとか、なるだろう、、たぶん。 /* * ２．さて、どうしよう */ 送られてきた、サンプルデータを見ると、改行されてない、、 改行文字も無く、そのままデータが続いている、、、 さて、どうしよう VBAでファイルを開いて、 ６４バイト読む、 それを分けよう、、、なんて、できるかな？ 調べることは、 ・バイト数指定で、ファイルから読み込めるか？ ・ＥＯＦでとめるには？ これをファイル関係のヘルプから探す。 テメエが詳細をうまく解説してないだけで、 過去の講座で一部やってるダロ、 ＢＭＰファイルを読み込んで、ヘッダ情報から、サイズを取り出すヤツ。 あっ、そうか、あれを改造して、、、 /* * ３．まず、読み込みだけ、作成しよう */ 作成プログラム '---- kotei.xls に保存されています。 Type TYPERecord 'ユーザー定義型を定義します。 社員番号 As String * 8 ' 漢字氏名 As String * 20 ' ローマ字 As String * 24 yobi1 As String * 6 yobi2 As String * 6 End Type 'メイン処理 Sub main() Dim nYLINE As Integer Dim FNO% Dim Position As Long Dim strREADBUF As TYPERecord FNO = FreeFile '空いているファイル番号を取る ' test.txt ファイルを ランダム アクセス モードで開きます。 Open ActiveWorkbook.Path & "\test.txt" For Random Access Read As #FNO Len = 64 '変数初期化 n = 1 ' レコード番号を定義します。 nYLINE = 2 '見出しを抜かして、２行目から処理 While EOF(FNO) = False ' Get ステートメントを使って、サンプル ファイルを読み込みます。 Get #FNO, n, strREADBUF ' n番目のレコードを読み込みます。 'テストなので、セルにセット、、 Cells(nYLINE, 1).Value = strREADBUF.社員番号 Cells(nYLINE, 2).Value = strREADBUF.漢字氏名 Cells(nYLINE, 3).Value = strREADBUF.ローマ字 Cells(nYLINE, 4).Value = strREADBUF.yobi1 Cells(nYLINE, 5).Value = strREADBUF.yobi2 'カウントアップ n = n + 1 nYLINE = nYLINE + 1 Wend Close #FNO ' ファイルを閉じます。 End Sub ---------- さて、解説しますと、 Type TYPERecord 'ユーザー定義型を定義します。 社員番号 As String * 8 ' 漢字氏名 As String * 20 ' ローマ字 As String * 24 yobi1 As String * 6 yobi2 As String * 6 End Type ここで、フィールドをきります、、なんてカッコよく始めて、、 Type タイプ名 変数（メンバー名） 変数タイプ 変数（メンバー名） 変数タイプ end type を使用して、６４バイトの新しいタイプ型を宣言します。 Dim strREADBUF As TYPERecord と書き、TYPERecord型の変数、strREADBUFを定義します。 次に、ファイルを ランダム アクセス モードで開きます。 Open ActiveWorkbook.Path & "\test.txt" For Random Access Read As #FNO Len = 64 ここでは、kotei.xls と同じディレクトリに入っている、 test.txt を ランダムアクセスモード、レコード長６４バイトで開きます。 ファイルが終わりに達しているかを判断するために、 EOF(ファイル番号)関数を使用します。 ここでは、ファイルが終わっていない間にしたいので、 While EOF(FNO) = False と書きました。 While Not EOF(FNO) と書く人もいます。 うちのできる後輩達は、みんなNot EOF ですね。。。まっ、いっか。 ＊エンドオブファイルじゃないとき、、 ' Get ステートメントを使って、サンプル ファイルを読み込みます。 Get #FNO, n, strREADBUF ' n番目のレコードを読み込みます。 これで、変数にファイルから読み込んだデータが入ります。 次がここでのポイント？ Cells(nYLINE, 1).Value = strREADBUF.社員番号 変数.メンバー名で値を代入する。。。 社員番号数値あたま０が取れちゃった、、まっ、いっか じゃ、寝ようかな。おやすみなさい。 /* * ４．依頼はＣＳＶ作成でしょ */ 依頼はＣＳＶ作成でしょ、、 あっ、、、改造したサンプルを書きに載せます ----- 'テキストファイル、ＯＵＴ．ＴＸＴを作成 'test.txt --> out.txt Sub MakeText() Dim nYLINE As Integer Dim IN_FNO%, OUT_FNO% Dim Position As Long Dim strREADBUF As TYPERecord IN_FNO = FreeFile '空いているファイル番号を取る ' test.txt ファイルを ランダム アクセス モードで開きます。 Open ActiveWorkbook.Path & "\test.txt" For Random Access Read As #IN_FNO Len = 64 '出力先 out.txt を シーケンシャル ライト モードで開きます OUT_FNO = FreeFile Open ActiveWorkbook.Path & "\out.txt" For Output As #OUT_FNO '変数初期化 n = 1 ' レコード番号を定義します。 nYLINE = 2 '見出しを抜かして、２行目から処理 While EOF(IN_FNO) = False ' Get ステートメントを使って、サンプル ファイルを読み込みます。 Get #IN_FNO, n, strREADBUF ' n番目のレコードを読み込みます。 '読み込まれたデータを書き込むＣＳＶにする、、、 'カンマだけ付ける””は好みで？ Print #OUT_FNO, Trim(strREADBUF.社員番号) & ","; '←セミコロンを付けると Print #OUT_FNO, Trim(strREADBUF.漢字氏名) & ","; '改行されない Print #OUT_FNO, Trim(strREADBUF.ローマ字) & ","; 'ここがポイント Print #OUT_FNO, Trim(strREADBUF.yobi1) & ","; Print #OUT_FNO, Trim(strREADBUF.yobi2) '最後は改行したいので付けない 'カウントアップ n = n + 1 nYLINE = nYLINE + 1 Wend Close #IN_FNO ' ファイルを閉じます。 Close #OUT_FNO '結果をメモ帳表示 Shell "notepad.exe " & ActiveWorkbook.Path & "\out.txt", vbNormalFocus End Sub ---- ポイントは、 Print #OUT_FNO, Trim(strREADBUF.社員番号) & ","; セミコロンを付けるとテキスト出力で改行されません、、、 テスト実行、、、 あれ、ｔｒｉｍで囲っているのに、 漢字氏名だけ、スペースが取れない、、、 /* * ５．終わりの挨拶 */ 今回は、少しは、まともな講座でした、、 積み残し、食べ残し、まだまだ、あるけど、、、