趣味プログラミングblog

マイナンバーカード申請で大ハマりした。

自分のカード申請は問題なくできたのに、娘二人のカード申請がうまくいかず。エラーメッセージは以下の通り。

「交付申請書に記載の申請書ID(半角数字23桁)と同じか確認してください。 
申請書IDに誤りがあると正しくカードが発行されませんので、お間違いがないか確認してください。」
区役所で聞くも状況変わらず。コールセンターに電話するも、手入力しろだけの回答。
もう一度区役所に相談して、若手職員立ち会いでやったら、メッセージ出たまま普通に登録できたし。
エラーメッセージじゃなくて、警告メッセージだった。携帯使えないおじいちゃんみたいだわ。

メッセージ内容、レイアウト共にいけてねーよな。

仕事で急遽必要になり、突貫で作成。
過去のソースを流用して１時間でできた。

◆目的◆

フォルダ内にCSVファイルの一覧があり、１行目が日付情報、
２行目以降が登録データになっている。

CSVファイルをサイトに取り込む際に、
１アカウント１日あたりファイルっていう縛りがあり、
日付別にCSVファイルをまとめなきゃいけなくなった。

◆手順◆

１．ダイアログを表示して解析対象のパスを取得
２．Dir関数を使ってフォルダ内のファイル一覧を取得
　（今回は、VBAで作られたCSVを結合するのでShift-Jisのみ）
３．ファイルの中身を１行ずつ読み込む
４．Dictionary配列を定義し、１行目の日付をキーに２行目以降をアペンド
　（キーの存在チェックしてなければキー登録、あれば値更新）
５．全ファイル繰り返し
６．キー配列を定義して、Dictionaryカウントでループ
７．キーごとに値をCSV出力（Printを使用）

◆注意点◆

Dictionary配列に改行「chr(10)」を格納しても「・」が出力されるので
一旦「"†"」で格納して、Print時に「chr(10)」へReplace

以下ソース

会社で作っているCSV出力ツールで、
応答性を試験するために、マクロの処理時間を計測したい。

考え方としては、処理開始した時刻を変数にセットして、
処理完了時の時刻と比較する。

ただ、Nowを使うと結果が日付型で出力されて使いにくいので
Timerを使うのがお勧め。

今回も会社で作っているマクロについて。

【おさらい】
今作っているのは、別のエクセルファイルからデータを読み取って、CSVに出力するツール。

エクセルファイルの中の環境依存文字がCSV化したときに「？」になっちゃうので、
Shift-Jisではなく、UTF-8でCSV出力するってのが前回のお話。


文字コード問題はそれだけじゃなかった。。。ってのが今回の内容。

仕事でエクセルファイルを取り込んで、テーブルを作ってCSVに出力するツールを作ることになった。

趣味プログラミングで作る分には１日でできる作業だけど、
詳細な仕様を詰めていくとなかなかこれが大変ということを改めて思い知らされた。

前にプログラマの人が「データインポートは大変だからやりたくない」と言ってたのがよーくわかった。

大変なことを整理してみた。

①仕様をきっちり決めて動作保証の範囲を決める必要がある。
②仕様書・設計書を作りレビューを受ける必要がる。
③動作保証の範囲できっちり動くツールを作る必要がある。
④動かない場合はなんで動かないか利用者に知らせる必要がある。
⑤ツールの試験を行い、仕様書・設計書と差異がないことを確認する必要がある。
⑥試験結果を報告書にまとめてレビューを受ける必要がある。
⑦仕様書・設計書・ツール動作・試験報告書で整合性を取る必要がある。
⑧改修が発生するたびに変更内容を管理し、①～⑦をやり直す必要がある。

ざっくりこんな感じ。仕事でやるプログラミングが１０倍の工数とは言ったものだ。
システム開発となるとさらに１０倍だとか。

---

データインポートの何がめんどいって、元データに何を入れられるかわからないから。

文字数制限、文字種制限、想定範囲内か、リストにある内容かなど、
考えられるあらゆるパターンに耐えるのがなかなかしんどい。。。

作りかけのツールは、シフトJISで出力していたけど、
試しに第四水準の文字「墱」を入れたら変換されず「？」に。。。

仕方なくUTF8で出力する仕様に変更。

毎度おなじみのofficeTanaka様のサイトで勉強して、
" "くくりのカンマ区切りCSV出力マクロを作ってみた。

参照サイト
Office TANAKA - ファイルの操作[UTF-8形式のテキストファイルに書き込む]


以下、ソース