VBA練習問題
VBA100本ノック 65本目:固定長テキスト出力

VBAを100本の練習問題で鍛えます
最終更新日:2021-02-22

VBA100本ノック 65本目:固定長テキスト出力


フォーマット(左詰め文字、右詰め数値)に従い、固定長テキストを出力する問題です。


ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。

VBAテスト用のサンプルデータは、VBA100本ノックの目次ページ からもダウンロードできます。
マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。エクセル関数・機能・基本操作の入門解説からマクロVBAまでエクセル全般を網羅しています。


出題

出題ツイートへのリンク

#VBA100本ノック 65本目
固定長データの出力です。
「フォーマット」シートに従い、2行目以降をテキスト出力してください。
文字形態は、N:右詰め0埋め、C:左詰め半角スペース埋め。
項目間区切りなしで連続で出力
※シートは任意
※本題ではないので出力ファイル及び文字コードは任意

マクロ VBA 100本ノック

マクロ VBA 100本ノック

マクロ VBA 100本ノック


サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_65.xlsm
https://excel-ubara.com/vba100sample/VBA100_65.zip


VBA作成タイム

この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。


他の人の回答および解説を見て、書いたVBAを見直してみましょう。


頂いた回答

解説

全銀に模したデータサンプルにしましたが、最近は固定長の必要性は少なくなりましたね。
でも全く不要という事もないので、一度は経験しておいた方が良いだろうという事で出題しました。
DictionaryとFileSystemObjectを参照設定して使っています。

Sub VBA100_65_01()
  Dim ws As Worksheet, rng As Range
  Dim objFso As New FileSystemObject
  Dim objTS As TextStream, sFile As String
  
  Set ws = ActiveSheet
  Set rng = ws.Range("A1").CurrentRegion
  sFile = ws.Parent.Path & "\data.txt"
  Set objTS = objFso.CreateTextFile(sFile, True)
  
  Dim dic As Dictionary, i As Long, j As Long, ary
  Set dic = getFormat(Worksheets("フォーマット"))
  For i = 2 To rng.Rows.Count
    ReDim ary(rng.Columns.Count)
    For j = 1 To rng.Columns.Count
      ary(j) = getFixedString(dic, rng(1, j).Value, rng(i, j).Value)
    Next
    objTS.WriteLine Join(ary, "")
  Next
  objTS.Close
  
  Set dic = Nothing: Set objTS = Nothing: Set objFso = Nothing
  ThisWorkbook.FollowHyperlink sFile
End Sub

Function getFormat(ByVal ws As Worksheet) As Dictionary
  Dim dic As New Dictionary, i As Long
  For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    dic(ws.Cells(i, 1).Value) = Array(ws.Cells(i, 2).Value, ws.Cells(i, 3).Value)
  Next
  Set getFormat = dic
End Function

Function getFixedString(ByVal dic As Object, ByVal aFormat, ByVal aIn) As String
  If Not dic.Exists(aFormat) Then Exit Function '未登録列は空で返しスキップ
  Dim sForm As String: sForm = dic(aFormat)(0)
  Dim iLen As Integer: iLen = dic(aFormat)(1)
  If UCase(sForm) = "N" Then
    getFixedString = Right(String(iLen, "0") & aIn, iLen)
  Else
    getFixedString = Left(aIn & Space(iLen), iLen)
  End If
End Function


Dictionaryを使ったので、全体としては少し長くなってしまいました。
処理最後で作成したテキストをメモ帳(既定なら)で開いています。
補足はありません。


補足

補足はありません。


サイト内関連ページ

第116回.ファイル操作Ⅱ(OpenとClose)
VBAで(CSV等のテキスト)ファイルを扱う時は、最初に、ファイルを開き、次に、読込書込みを行い、最後に、ファイルを閉じます。ファイルを開くには、Openステートメントを使います、ファイルを閉じるには、Closeステートメントを使います。今回はこのOpenステートメントとCloseステートメントを解説します。
第117回.ファイル操作Ⅱ(Line Input #)
VBAでファイル(CSV等)を扱う時は、最初に、ファイルを開き、次に、読込書込みを行い、最後に、ファイルを閉じます。ファイルを読み込む時には、LineInput#ステートメントを使います。LineInput#ステートメント シーケンシャル入力モード(Input)で開いたファイルから行全体を読み込み、
第118回.ファイル操作Ⅱ(Print #)
VBAでファイル(CSV等)を扱う時は、最初に、ファイルを開き、その後に、読込み書込みを行い、最後に、ファイルを閉じます。ファイルを書き込む時には、Print#ステートメントを使います。Print#ステートメント シーケンシャル出力モード(OutputまたはAppend)で開いたファイルにデータを書き込むファイル入…
第119回.ファイルシステムオブジェクト(FileSystemObject)
FileSystemObjectオブジェクトでは、コンピュータのファイルシステムへのアクセスが提供されています。VBAに用意されているファイル操作関連のステートメントや関数より、より強力で、より多くの機能が搭載されています。ただし機能が大変多いため、これらを全て覚えるという事は困難です。
VBAでファイルを既定のアプリで開く方法|VBA技術解説
Excelマクロで、エクセル以外のファイルを既定のアプリケーションで開く場合の方法について何通りか解説します、VBAでファイルを単純に開くだけの場合についてになります。ファイルを開いた後に、そのファイルに対して何らかの操作をしたい場合は、対応するアプリケーション毎に個別の対応が必要になりますが、Windowsで開け…




同じテーマ「VBA100本ノック」の記事

62本目:独自のZLOOKUP関数を作成
63本目:複数シートの連結
64本目:リンクされた図(カメラ機能)
65本目:固定長テキスト出力
66本目:全サブフォルダからファイルを探す
67本目:ComboBoxとListBox
68本目:全テキストボックスの転記
69本目:ダブルクリックでセル結合を解除
70本目:ステータスバーに1秒ごとに時刻が表示
71本目:パワーポイントへグラフを貼り付け
72本目:ITをDXに変換(文字列操作)


新着記事NEW ・・・新着記事一覧を見る

還暦のVBA:VBAまでたどりつけるか… (2021-09-29)
VLOOKUPを使うことを基本としてシートを設計すべきか|エクセル雑感(2021-08-17)
コンピューターはブラックボックスで良い|エクセル雑感(2021-08-14)
小文字"abc"を大文字"ABC"に変換する方法|エクセル雑感(2021-08-13)
ADOでテキストデータを集計する|VBAサンプル集(2021-08-04)
VBA学習のお勧めコース|エクセル雑感(2021-08-01)
エクセル馬名ダービー|エクセル雑感(2021-07-21)
在庫を減らせ!毎日棚卸ししろ!|エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について|エクセル雑感(2021-06-26)
DXってなんだ? ITと何が違うの?|エクセル雑感(2021-06-24)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.Excelショートカットキー一覧|Excelリファレンス
3.変数宣言のDimとデータ型|VBA入門
4.RangeとCellsの使い方|VBA入門
5.繰り返し処理(For Next)|VBA入門
6.マクロって何?VBAって何?|VBA入門
7.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
8.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
9.セルに文字を入れるとは(Range,Value)|VBA入門
10.並べ替え(Sort)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ