Alcohol 52%

「Alcohol 52%」 なる妙な名前のフリー・ソフトがあります。

これはリッピングしたDVDのイメージ・ファイルを仮想ドライブにマウントすることができ、物理的なDVDの出し入れをすることなく扱える非常に便利なプログラムです。

そこで先週の休みに早速リッピングしてマウントしてみます、これはなかなか使えますね、手持ちのDVDをみんなイメージ化しちゃおうと思いましたが「DVD Decrypter」でリッピングすると生の巨大なデータになってしまうのです。

今年の初め1.5テラのHDDを増設してかなり余裕が出来ましたが要領を節約するに越したことはない、と言う訳で「DVD Shrink」で 5.1Ch データを削ってリッピングしました、そうして出来たのが「ISOとMDS」と言うファイル、MDSってなんだか知りませんが特になくても大丈夫みたいなことがwebで見たことがあるのでほんの小さなファイルだし目障りなので消しました。

今日になってマウントしたDVDの音を聴きながらいろいろと作業をしようと思ったのですがなぜか「Win DVD」も「Windows Media Center」も「Windows Media Player」もハング・アップしたりしてうまく動きません、そこでDVDそのものをドライブに入れてみますがこれは問題ありません。

あれこれやってみましたがどうやら「MDS」ファイルを消したのが原因だということが分かりました、このファイルさえ残しておけば不要データを削除したイメージ・ファイルも問題なく再生できるようになりました。

COUNTIFでできた3

次に抽出したデータをCSVで出力するのですが実はこのCSVというのが曲者でCSVはフォーマットが固定されたものという概念がまかり通っています。

汎用性が高いのでよく使われます、でも「Comma Separated Values」と言うように要するにデータが「","で区切られていればよい」のでデータを括る記号は「"」だろうが「'」だろうが・・あるいは何もなくても良いのです。

このことがExcelやAccessで出力するときに苦労する種になることがよくあります、今回もオフコンから出力されたCSVデータをそのものを加工し、それと全く同じフォーマットで出力しなければならずこれに苦労しました。

Open コマンドで開き、単にCSVで出力するのなら Write コマンドを使えばよいのです、文字列データは「"ABC"」のように、数値データは「123」のように出力されますがデータが空のフィールドは飛ばされてしまうのです、また備考欄のようにどんなデータが入るか分からないフィールドは基本的に文字列として扱わなければならないのですが数字だけだとそこだけフィールドが「"」なしで出力されてしまい、データの種類の一貫性がなくなります。

ところがオフコンの出力データではデータが空であっても文字列フィールドでは「"」で括り、数値フィールドも飛ばすことはないのです。

つまり、文字列として扱わなければならないフィールドは文字列として、数値として扱わなければならないフィールドは数値フィールドとして出力しなければならず、できたのがこれ。

Sub csvで出力()
　　With Cells(1).CurrentRegion
　　　　行 = .Rows.Count
　　　　列 = .Columns.Count
　　End With
　　Open "C:TREEIDECDATAtest.csv" For Output As #1

　　For begin_row = 1 To 行
　　　　For begin_column = 1 To 列 + 1
　　　　　　v = Cells(begin_row, begin_column)
　　　　　　If begin_column = 7 Or begin_column = 8 Then GoTo moji
　　　　　　If Len(v) = 0 Then
　　　　　　　　Print #1, Chr(34) & "" & Chr(34) & ",";
　　　　　　ElseIf IsNumeric(v) = True Then
　　　　　　　　Print #1, v & ",";
　　　　　　Else
moji:
　　　　　　　　Print #1, Chr(34) & v & Chr(34) & ",";
　　　　　　End If
　　　　Next
　　　　Print #1, Chr(34) & v & Chr(34)
　　Next
　　Close #1
End Sub

結局 Write コマンドを使うと面倒なことになりそうなので敢えて Print コマンドで済ませました。

COUNTIFでできた2

=and(countif(特価一覧表,商品Ａ),countif(特価一覧表,特価番号))

上記のようにやると条件1と条件2は全く別個に結果を拾ってしまい本来特価がないものまで拾ってしまうことに気づき、マクロしかないかと取りあえず作って走らせてみたがやたら時間がかかり実用的ではありません。


前の記事に

> 「商品A」+「ZZZ123」という組み合わせが特価一覧データにあれば

と書きました。

要するにそのまんまをやればいいのです。

特価番号、型番、仕切、特別価格

上記項目に手を加えて

特価番号、バラ型番、型番、仕切、特別価格、バラ型番結合、型番結合

とし、売り上げデータの右端列にマクロで下記のように式を入力。

Sub 特価があるか()
Max_GYO = Cells(1).CurrentRegion.Rows.Count
Set flg = Range(Cells(1, 16), Cells(Max_GYO, 16))
With flg
　　.Value = "=COUNTIF(特別価格!F:G,B1&J1)"
　　.Copy
　　.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub

これで該当データには「1」または「2」が表示されます、なぜ「2」があるかというと売り上げデータの中にはパック商品をパック商品のまま売る場合とバラで売る場合があるのでそうなるのです。

これを

Sub 有効データを残す()
Max_GYO = Cells(1).CurrentRegion.Rows.Count
　　For i = Max_GYO To 1 Step -1
　　　　If Cells(i, 16) ＜1 Then
　　　　　　Rows(i).EntireRow.Delete
　　　　End If
　　Next i
　　Columns(16).EntireColumn.Delete
　　Cells(1).Activate
End Sub

にて必要なデータを抽出します。

COUNTIFでできた、と思ったんだけど。

今、メーカーに申請する特価対応データを抽出するプログラムを作っています。

このメーカーは顧客ごとに特価番号を設定しています。

メーカーから特価一覧データというのがありそれは

客先　 商品　 特価番号
顧客A　商品A　ZZZ123
顧客A　商品B　ZZZ123
顧客B　商品C　ZBB988
顧客A　商品D　ZZZ123

こんな様式になっています。

今、顧客Aが「商品A」「商品B」「商品C」を買うと特価一覧データから「商品A」「商品B」が特価だというのが分かるのですが該当データにフラグを立てそれを残しCSVファイルとして出力しなければなりません、何かよい方法はないかとずっと考えていました。

売上データは一か月分あり手作業ではかなりの労力になります、データの抽出だけならAccessなら簡単にできます、でも作業の流れの中で途中でAccessを起動するという処理をしたくないのです。

処理としては

「商品A」+「ZZZ123」という組み合わせが特価一覧データにあれば「TRUE」

こんな感じ・・、さらに「50個入り」とか「100個入り」なんて商品がありそれをバラで販売しているものもあるのです、特価一覧表にはバラのデータはありません、これをパック商品と言い、型番からそれと分かるので単品の型番としてはその部分を除いた型番でオフコンに登録されているのです、売上も当然ほとんどが単品型番での売上です。

そのためパック型番から単品型番を抽出する作業が割って入ることになるのですがこれ自体そう難しいことではありません。

該当データにフラグを立てるにはどうすればいいか、マクロで膨大なデータを端から順にあたるか、「vlookup」「lookup」「match」「index」なんかを使って何とかならないかあるいは「条件付書式」は使えないかとか・・いくら考えても考えがまとまらないのです。

でもしつこく考えてみると他の顧客でも「商品A」の特価を持っているところはいくらでもあるのですが特価番号が違います、つまり「商品A」+「ZZZ123」というデータは複数存在することはありえないことに着目、そこで行き着いたのは「countif」を使うこと、つまり「=countif(特価一覧表,商品A)」と「=countif(特価一覧表,特価番号)」のANDを取り

=and(countif(特価一覧表,商品Ａ),countif(特価一覧表,特価番号))

これが「TRUE」になれば該当データだということにたどり着きました。

と思ったのですが・・・・、甘かった。

つづく・・・。

ただいも～！

ほぼ2時間弱、歩き通し歩いてきました。
毎日30分ほど歩いているとは言えちょっと疲れました。

墓参りを終えてそのまま帰ろうとして「そうだ電池を買わなきゃ」とお墓からなお向こうにある「コ○マ」へ行くために踵を返しました、この前の休み以来PCの無線マウスが電池が切れる～と赤く点滅しているのです。

・・・やたら有り余ったお金で立てたと思われる寺の外壁を回りこんで北から吹き抜ける道に出た途端、白い物が・・なんと風花！

そんなの聞いてないよ～！雪が降るなんて～。

困ったなと思いながら「コ○マ」へと急ぎます、到着してすぐ電池売り場へ行って単3のいろいろある本数のパッケージを物色します、4本入りじゃ割高ですぐ無くなるし12+2本入りってのがあったのですがそれほどいらない、8本ぐらいがちょうどいいと思って正札を探しますがこのパッケージだけないのです、逡巡していたら家族連れが割り込んできてその家族全員に電池のトレイの前を占領されてしまいました。

こいつ等っと思いつつ「ノ○マで安いのを買ってやる」と目と鼻の先の「ノ○マ」へ行って「コ○マ」で買おうと思ったパッケージの値段を見ると980円でした、随分高いなと思いつつ別のトレイを見たら「ノ○マ純正」電池がありました、なんと12本で380円、ヘッドホン・ラジオや玄関チャイム用にと8本入りの単4も買いました、これも380円でした。

おでかけ

さて、これからお出かけです、墓参りのついでに鬢付け油と単3電池といつも読んでいるPC雑誌を買ってなくちゃ。

この雑誌だいたい毎月24日発売でいつもは職場の前のファミマで買っています、でも休みの日は買えないから週が明けてから買いに行くといつも売り切れているのです。

土日祝祭日を避けてくれると「わざわざ」遠くまで買いに行かなくてももいいんですけど、たまたま今日は墓参りに行く日だったから良かったけど・・・。

甘夏の収穫中止

先日揉んでから甘夏を食べたと書きましたがあの時、ちょっと揉み過ぎて実が柔らかくなり過ぎて食べるとき手が果汁だらけになってしまいました、揉み過ぎは禁物、収穫して2,3日置いておけば十分に甘くなります。

今日、天気が良ければ午前中にまた甘夏を収穫したいのですがどんより曇り空で北風もかなり強い、脚立で不安定な格好で長い収穫ツールを振り回しながらなので風に煽られて自分が落ちたら拾っただけでは済まないから今日はやめます。

どこから来たんだ？

ということで「猫」の写真をアップ。

PHSの「おまけ」の写真機で撮ったやつを載せました、ほんとに「おまけ」レベルのカメラですね。


ところで鼻が痛い、昨日の昼ごろから痛い、溺ものでもできたような痛さだけどひと月ほど前にも出来ました、その時も休日の前日にいきなり腫れだし医者に行こうか迷ったのですが2日ぐらいで治りましたが今回はどうでしょう、腫れてはいないのですがちょっと鼻を擦った拍子に「痛っ！」となってしまうのです。

この時期去年も一昨年も扁桃腺が腫れて耳鼻科通いをしました、どうしようかなあ、今日墓参りに行くけどその病院の前を通るのです、大病院だから患者が多くて完全に午前中いっぱいかかってしまう。

いきなり猫が・・・。

今朝、雨が降っていたのでウォーキングは取り止めて車の中で暫しゆっくりしてから職場へ・・・。

すでに掃除当番の社員は来ていたので着替えてから倉庫に入ろうとドアを開錠して部屋に入ろうとしたら何かモコモコとしたものが視界に入りました。

今日の掃除当番のあったかグッズかなと思ったのですがなにやら縫いぐるみに見えるので角度を変えて覗き込んだらなんと猫！そう、生の猫だったのですよ。

どうやら知らない間に侵入して一晩そこにいたらしいのです、警戒する風でもなくかなりお腹を空かしているようだし、寒さで元気がなく商品の梱包剤の中に入ってしまって動きません。

でも毛並みは良いし綺麗なのでどこかの飼い猫のようです。

猫好きな女の子たちが暫し喧しく相手をしていましたが昼頃にはどこかに行ってしまいました、自宅に戻ることが出来たのだろうか。

一応写真を撮りましたけど・・・・。

昼休み

今、昼休み、寝ながらPCにストックしてある楽曲をいつも聴いているのですが今日は昔はやりに流行ったフォーク・ソングを選びました。

トワ・エ・モアの「虹と雪のバラード」
フォーク・クルセダーズの「あの素晴しい愛をもう一度」

先日ピーター・ポール・アンド・マリーの1964年のライブをTVでやっていましたがその紹介を白鳥英美子がやっていました、もちろん録画しておきました。

年齢は重ねたがその話す声は往年の魅力的な声でした。

教学相長ず

教学相長ず。

教える側も教わる側もお互いに教えあいお互いが成長するというような意味だと思いますがTVで観ました。

社員は使い捨て、代わりはいくらでもいる、従業員を育てるためのコストはない、そう言ってはばからない経営者と従業員の話でした。

以前ここで書きましたが半年経つか経たないかのうちに7人も女性業務が入れ替わってしまいました。

うちの職場も端っから人を育てようという発想がなくTVを観ながら「TVで取り上げるのだからそんな職場がとても増えているんだな、うちだけじゃないんだ」と思った次第です。

若い人は長続きしないとよく言われますがその原因の多くは今書いた様なこともあるんじゃないかと思うのです、少なくともうちはそれにあてはまります。

「長続きしない」という烙印を押すのは簡単ですがその原因の半分以上を作っているのはその「烙印」を押している経営者じゃないのか？

「一樹百穫なるものは人なり」会社で利益を出しているのは誰？それは一番の資産であるはずの従業員なのです。

初めからダメな人などいないのです。

甘夏のおすそ分け。

昨日書いたように甘夏を職場に持って行って皆に配りました、皆に喜んでもらえて嬉しかった。

揉むと甘くなるというので私の分を結構揉んでから終業ベルが鳴ってから食べたけどすんごく甘くなっていてとてもおいしかったです。

・
・
・

そんな話を帰宅してから話したら「時間が経ったからじゃないの」と嫁、そして「持って行った分全部あげちゃったの？」と聞くから「そうだ」と答えたら「えーっ」と実に文句言いたげな反応が返ってきました。

「去年もそうだったよな、どうせ全部食べきれないで無駄にするんだからあげちゃったっていいだろ」と語気を荒げてまくし立てました。

これはケチなんて高尚なものではありません、ケチは美徳だと私は思っています、自ら苦労して取るわけでもなく、私が採らなければ誰も採らない。

そしてやっと収穫したものを無駄にすまいと人に分ければ「それこそ無駄」と云わんばかりの雑言、収穫したものを全て持って行ったわけでもないのに、家で食べる分はちゃんと残してあるのに、ちゃんとぴったりと必要な分だけを持って行ったのに・・・。

どっかの国の首長が言った「さもしい」とはこんなことか。

家に帰って、こんなこと言われて、悔しくて仕方がないです。

甘夏収穫！

我が家の柑橘系もすでにたわわに実を付けています。

ということで昨日、天気が好かったので20個ばかり収穫しました、先週一つだけ取って試食したところ取ってすぐ口に入れたせいか酸味が少し多かったのですが味が濃かったので昨日の収穫作業となりました、そしてひとつ食べましたがまあまあいけます。

明日これを職場に持って行っておすそ分けの予定、もちろん野郎どもには絶対あげません、これは私のポリシーです。

ところで相変わらずこの柑橘系の正体が不明のままです、八朔よりはジューシーですが伊予柑よりは実がしっかりしています、やっぱり甘夏みたいだな、甘夏に決定！

パラサイト・ミドル

パラサイト・ミドルという話題をTVでやっていました。

私の職場に照らしてみたがどうも何か違います、私もこのリンクにあるような年代までに責任を負う立場に立つ羽目になったのですが権限など一切無かったしそれは今も変わりません。

それは権限を権力者が手放そうとしないからに他ならないのです、また彼らから自分から変わろうという意識は全く感じません、こんな土壌では何を提案しても一切通ることはありません。

リンクを読んでみて非常に痛い所を付いていると思います、が、端から「責任ある立場」の人間が自分の上にいるのを良いことに徹頭徹尾「このまま波風立てずぬるま湯に浸かっていたい」という輩も事実いるのです。

そして前へ進もうといろいろやってきたがそれを無駄だと悟り同様に「波風立てず・・」と思い至った人間もその経緯を知らない人間から見れば同じパラサイト・ミドルに映ってしまうのです。

HDD-DVDレコーダー設置完了

さっき、HDD-DVDレコーダーを据え付け直しました。

修理明細に「故障時に使用したDVD-Rは使用できない可能性がある」と書いてありましたが一流メーカー製なのでもったいないので試してみましたがやはり駄目でした。

あきらめきれずDSDとして使ってみようと思いましたがこれもダメ。

太陽誘電という国内で唯一国内で生産している高級ブランドだったんだけどもったいないなあ、3枚も使えなくなってしまいました。


それとHDD-DVDレコーダーの修理見積もりの連絡があったとき新しいのを買おうかと思いました、そこで後から新製品や売れ筋を調べていたのですが今の製品は地デジ移行期なので地アナも入っているものが多いようです、BSはどうかと調べたらBSはデジタルのみが多くこれでは使えません。

NTTのフレッツ・TVを引けばすべてが観られるから機器を購入するだけでいいんだけど、しかも何とFMも聴けるというではないですか、ミニ・コンポやラジカセを持っていてラジオはよく聴くのですが電波状態が好くないので何とかならないかなと思っていたところ、個人的にはこれがとても魅力。