趣味プログラミングblog

フォルダ内のCSVファイルについて、サブフォルダを含めて全部中身を書き出したい。

ということで、ネットで調べて再帰検索するマクロを移植。
'http://blog.jmiri.net/?p=1763

シート選択で動かすと確かにシンプルになるものの、
処理速度が圧倒的に不利。

できれば直したいけど、一発ものだから様子見。

ファイルサイズと更新日時は、ファイル名に環境依存文字があると動かないので
FSOで取得するように改良。


全フォルダをなめる処理は完成。
過去に作った再帰なしのファイルの中身を書き出すマクロと
がっちゃんこして完成かな。

以下、ソース（途中）

2022/7/7追記
より汎用性の高いソースができたので、ご紹介。
指定したテキストファイルの文字列を置換して、別名保存（上書き）するVBScript

---

SQLを操作できるフリーソフト「CSE」を使ってSELECT結果をCSV出力すると、
ダブルコーテーション「"」が付いてしまう。

ダブルコーテーションが付いていると既存のツールが動作しないので、
テキストファイルのダブルコーテーションを削除するVBScriptを作ってみた。

また、SELECT結果をエクセルに張り付けるため、
カンマをTABに置換するVBScriptも作った。

ソースは同じで置換する文字が違うだけなので、片方のみソースを掲載。


さんざん使いまわしているファイルをドラッグドロップで動く処理が長いが、
実際の処理はあんまり長くない。

ファイルを編集して上書き保存のやり方がわからず、
テキスト出力して名前を付けて保存の処理にした。

以下、ソース。

だいぶ前に日付のフォルダを作るVBScriptを作った。
https://aki.p-kin.net/Entry/24/

業務ではちょいちょい使っていて、思うことがある。

フォルダ作ったんなら開いてよ！！


てなわけで、改良してみた。

参考になったのがこのサイト
'https://rakugakiman.com/archives/2258

フォルダを開く処理って１行で表現できるのね。


使いやすさを考えて、１行表現ではなくモジュールに飛ばすことにした。
以下、ソース。

ほろ酔いのはちみつレモンサワーが気に入ってて、
今日も近所のドラッグストアで買おうと手に取って思いとどまった。

家にはちみつもレモン汁もあるから作ればいいじゃん。

２２０円で小さい焼酎を買って、家で成分を確認。


ほろ酔いはちみつレモンサワー
アルコール・・・３％
果汁・・・２％
糖質・・・約９ｇ／１００ｍｌ

材料（２００ｍｌ分）
焼酎（２０％）・・・２００×３％÷２０％＝３０ｍｌ（大さじ２）
ポッカレモン（１００％）・・・２００×２％÷１００％＝４ｍｌ（小さじ１）
はちみつ・・・２００ｍｌ×９ｇ÷１００ｍｌ÷１．５＝１２ｍｌ（小さじ２）

料理をするときって結構算数の計算力を問われるね。

はちみつは、グラニュー糖の１．５倍の糖質のようなので、
最後に１．５で割る必要がある。


はちみつをお湯で溶かして、ポッカレモンと焼酎を入れて氷で冷やす。
ミネラルウォーターで量を調整して完成。

思った以上においしくできた。

けど、何か違う。。。

炭酸わすれてるじゃんか！

会社の同期に「ジョーくん、頭すごいことになってるね！いっそ坊主にしたら？」と言われた。

後ろの毛を刈るの一人じゃ難しいかなと躊躇してたけど、思い切ってやってみた。


余計目立つじゃねーか！

娘「ここが海で、ここが砂漠ね」

どっちも毛がねーじゃんか！