リンク


プロフィール

のんち

Call me:のんち
元カー・メカニック
Microsoft Office Master
最近、夜寝るときJAZZを聴きながら寝るのが好き。
ネコを飼いたい。
涙もろい、子供大好き、なぜかよく子供にジロジロ見られる。
落語家には2種類いる、古今亭志ん朝とそれ以外だ。
TV、特に地上波の民放は自分が馬鹿になりそうなので観ない。
もっと目方を増やしたい、人の価値は目方と声のでかさで決まる。


カテゴリ


メールフォーム

名前:
メール:
件名:
本文:


DATE: CATEGORY:PC、プログラム
天気:曇りのち晴れ

「ああ、勘違い2。」で「美しいコード」と自画自賛しましたがあの後欲を出してコマンドラインからも使えるようにしてみようかな?なんてことを考えていました。

上記の記事で書いたものはパラメータごとにショートカットを作るので入力ミスは皆無ですがコマンドライン上ではある程度のエラー対策を講じる必要があります。

結果できたのが以下。

プログラム名を仮にTESTとした場合「TEST」とだけ入力してエンターを押すと有効なパラメータが表示され、入力を待ちます、「TEST パラメータ」としても使えます、このとき無効なパラメータだとやはり入力待ちになります。

通常パラメータが未入力の場合、

if "%1" == ""

のようにしますが今回は「%1」に入るパラメータそのものをラベル名とする必要上上のやり方は使えません、「"」なしで判断する必要があるのです。

その為「defined」これは変数が定義されているかどうかを調べるものです、そこで下のコードの3行目でパラメータを「dummy」変数に入れる処理をしますがパラメータが未入力の場合はセットされた変数を開放する働きになります、よって4行目で変数未定義を検出して・・。

入力可能候補を表示して入力待ち状態になるラベル「St」に飛びます。

@echo off
set WhichOne=Hyb,Lgf,Pse,Dwn,Rbt,Bgn
set dummy=%1
if not defined dummy goto St
goto Dsp

:St
echo.
echo %WhichOne% or Quit and press enter
echo.
set /p dummy="Which one ? : "
if not defined dummy goto St

:Dsp
for %%n in (%WhichOne%,Quit) do (
    if /i %dummy% == %%n (
    call :%%n
    goto 終了
)
)
goto St
DATE: CATEGORY:大相撲
天気:曇り

残念という思いとやはりそうだよなという思いが同時にしました、どの対戦相手も血眼になって稀勢の里に向かってきました、考えてみればよくしのいでいたと思います、そのしのいでいたことが無理に無理を重ねたということでしょう。

今まで休場したのは大関のときに唯一度、しかも千秋楽だったので「ヤ」が付いたことがなかったのです、「無事これ名馬」と言います、素人考えながら関節ではないのでちゃんと治せばいわゆる「古傷」にはならないと思います。

幸い日馬富士、白鳳の両横綱がすこぶる元気で土俵を盛り上げています、次の場所、元気な稀勢の里の姿を見るのを楽しみにしています。

それと小兵力士の宇良、素晴らしいですね、小兵ですから色々やるのですが本人曰くもっと体を大きくして突き押しを磨きたいとのこと。

その思いが相撲にすでに出ています、立ち合い絶対変化せずに真正面からぶつかりそれから色々な技を繰り出しています、正面からぶつかるには当たり負けしないように体を大きくしなければなりません。

非常に理にかなっています、本当に礼儀正しいし、おそらく頭もかなり良いのではないでしょうか?
DATE: CATEGORY:うれしい
天気:晴れ

先程なでしこリーグの話題を漁っていたところなんとあの「安藤梢選手」が日本の浦和レッズ・レディースに復帰することが分かりました。

6/1から出場できるそうです、実際はおそらく6/11のなでしこリーグカップ戦でINACとの試合からかもしれません、運良く相手がINACなのでWeb中継があります。

とても好きな選手です、2011年のドイツW杯では得点はありませんでしたがフル出場でした、それだけ非常に高い能力を持った選手です。

特に対ドイツ戦では相手がドイツで戦っている彼女のその実力を十分に知っているので相手ディフェンダーを引きつけるにはもってこいだったのです。

お陰でその隙きを突いて丸山選手が決勝ゴールを決めたのは今でも鮮烈な印象があります、絶対勝てないと言われたドイツに勝って優勝への道筋にもなりました。
DATE: CATEGORY:女子サッカー
天気:晴れ

今はもうどのTV局も中継をしなくなってしまいました、ローカルのラジオ局、または比較的お金のあるチームがWeb中継のみです。

日曜日にINAC神戸対日テレ・ベレーザの試合がありWeb中継があるのでその前日に「明日は忘れないように」と固く心に誓ったのですが今日まで1ミリも頭に残っていませんでした。

それを先程思い出してさっきまで観ていました、両チームともに非常にレベルの高い選手揃いで一進一退の攻防が続きましたが後半21分PKでINACが先制し、それが決勝点となりました。

INACは対日テレ・ベレーザ戦、5年ぶりの勝利です、やはりせっかくのホーム戦なにが何でも勝ちたいそれが日テレGK山下選手の反則を呼び込んだのでしょう。

PKは運の場合もありますが守るほうが反則も已む無しという防御をしなければならないくらいにこちらが押しているからでその意味ではこれも実力なんです、そしてPKもとても大事なセットプレー、その虎の子を守り抜いたINAC、敵ながらあっぱれ。

以前はINACの大ファンでしたが今は日テレに寝返りました、良い選手がどんどん育ってはいますがやはり全盛期ほどの華はありません、澤選手が引退し、川澄選手は海外へ、近賀選手も然り。
DATE: CATEGORY:大相撲
天気:晴れ

特に新横綱の稀勢の里と対戦する力士が今まで見せたことがないような頑張りを見せているのです、見応えありますよそりゃあ。

それはなぜか?対稀勢の里戦に掛かる懸賞が目当てなのです。

懸賞一本が6万円、税金対策として差し引かれた半分の3万円が手取りになります、今場所の稀勢の里対嘉風戦には懸賞の上限の目安が50本なのにそれを超える何と54本もの懸賞が掛かっていたのです。

それに勝ってしまった嘉風は162万円も手にしてしまったのです、それを見た他の力士が「よし、俺も」と思わないはずがありません、だからどの相撲も本当に見応えのある相撲が続くのです。

これなんですよ、これ、これこそがプロなんです、昔は「土俵の上に金が転がっている」と言われたそうです。

食うや食わずの時代、相撲取りになってうんと強くなればいくらでも金持ちになれ、一族郎党を養うことができたのです、ハングリーだったわけですね。

だから昔の相撲のほうが断然見ていて面白い、跳んだりはねたりだけの淡白な相撲なんてなかったのです、そして闇雲に体だけを大きくしてそれだけで相撲を取ろうと安易な考えもなかったんです。

大相撲ここにありというものを見せてくれればファンが増え、強い力士には懸賞もたくさん掛かる、その懸賞金を狙って死にものぐるいで向かっていく、そんな相撲が少しは増えているのでしょうか?

稀勢の里が横綱になってそんな相乗効果が出てきているんじゃないでしょうか?

また、相撲ファンはとても大人しいのでみっともない相撲にもため息ぐらいですがそんな相撲には少しぐらい野次ってもよいのではないかなと思っています。
DATE: CATEGORY:見っともない
天気:晴れ

と言えば琴勇輝、はい、今日も跳んだつもりがぜーんぜん。

みっともないったらありゃしない、体が重すぎるんですよ、自分のデブさ加減を忘れて跳ぼうとするからあんな恥を晒すわけです。

あのせっかくのでかい図体、使い方をまるで分かってないのです、これは部屋の師匠の責任でもあるのでは?

考えてもみてください、あんなコロッコロ体型のマワシを付けただけのおっさんが跳ぼうとしている姿を滑稽でしょ?

突き押ししかできないのだからそれを徹底すればいいんですよ、はまれば滅法強いんですから、ものすごい破壊力を発揮できるんです、あの体は跳ぶためのものじゃないでしょうに。

大関から陥落こそしてしまいましたが兄弟子の琴奨菊をよく見習って欲しいですね、絶対逃げません、これを愚直と表現する向きもありますが、この愚直という言葉、実に失礼で大嫌いです。

愚かでも何でもない、素晴らしいと思いますよ。
DATE: CATEGORY:いろんなこと
天気:曇り

NHKの探検バクモンという番組をよく観ます、今回は中村メイコさんがメインゲストでした、そう言えば最近見聞きしないなと思っていましたがとても元気そうでした、才能の塊のような人、でも全く嫌味を感じないんですよね。

私が小学校に入って間もないころ朝方ラジオから「パパ行ってらっしゃい」の彼女の声が毎朝聞こえてきました、後になって知ったのですが一人でほぼすべての役をやっていたんですね、それがどうしても信じられなかったのを思い出します。

今日の番組でもよく喋っていましたが声が非常に若い、そして子供の役の声も出していましたがただ感心するばかり、ほぼ30分弱の番組ですが特番で一時間にして欲しかったな。
DATE: CATEGORY:PC、プログラム
天気:曇り

「ああ、勘違い。」で書いた条件分岐のコード、もそっとスマートにかつ美しく書けないかなと色々と考えていました。

@echo off

if "%1" == "" (
    goto 開始
) else if "%1" == "/h" (
    call :Hybernate
    goto 終了
) else if "%1" == "/l" (
    call :LogOff
    goto 終了
) else if "%1" == "/p" (
    call :ポーズ
    goto 終了
) else if "%1" == "/d" (
    call :ShutDown
    goto 終了
) else if "%1" == "/r" (
    call :ReBoot
    goto 終了
) else (
    goto 終了
)

for コマンドなんて使えないかなあとつらつら瞑想していたらできちゃいました、当初は「指定時刻PC操作」の場合は

if "%1" == "" のように空のパラメータを考えていて

if "%1" == "" goto 開始
for %%n in (/h,/l,/p,/d,/r) do (
    if %1 == %%n (
    call :%%n
    goto 終了
)
)

と書きましたがなんか気に入らない、「if "%1" == "" goto 開始」が目障りなんです、そこで「指定時刻PC操作」の場合のパラメータを「/q」にしました、どの道すべてリンクにパラメータまで決め打ちするわけですから何ら不都合がないわけです。

結果次のようになりました。

@echo off

for %%n in (/q,/h,/l,/p,/d,/r) do (
    if %1 == %%n (
    call :%%n
    goto 終了
)
)

:/q
処理・・・
exit /b

:/h
処理・・・
exit /b

:/l
処理・・・
exit /b

:/p
処理・・・
exit /b

:/d
処理・・・
exit /b

:/r
処理・・・

:終了

なんと簡潔で美しいコードなんでしょう、と自画自賛。
DATE: CATEGORY:いろんなこと
天気:曇り

ウォーキングと買い物のためマンションの出入り口に下りたら管理人さんが掃除機を持って窓からすぐ下の中山道を眺めていました。

「最近は午後なんですね」と管理人さん、昨年の大風邪引きまでは雨さえ降らなきゃ元旦以外はほぼ毎日歩きに行っていたのです、しかし身の程を知り、身の丈を知り、、、年寄りの冷や水を自覚したわけで・・・。

現在は月、水、金の3日だけ歩いています、それ以外の日は何をやっているのだと管理人さん。

バブルが弾ける直前辺りからPCに現を抜かしているのでそれなりにやることはあるのですと、ちょっとした小賢しいプログラムを作っているのだと。


話題はまるで変わりますが毎日使っているスジャータP、あまりに安すぎるんでつらつらとWebを徘徊していたらトランス脂肪酸がどうのこうのと書いてあるページがやたら引っかかります、こいつは悪い奴だという情報は聞いたことがあります。

それでやはりクリープがいいのかもと駅のこっち口と向こう口のデパ地下に行きましたがどちらも全くやる気のない品揃えでスティックタイプの16本入りのものが向こう口にたったの3つだけ、しかもとてもエクスペンシブ。

事前にAmazonで調べた価格よりかなりの割高、というわけで家に帰ってきたところで100本入りを2セットをポチッとな。

なぜ2セットかというと2,000円以上買うと送料がタダだからです、でも結局アンケートで稼いで貯めたAmazonギフト券での購入だから、、でも送料がかかるとそれだけポイント減るしそれに200本なんてそんなに持たないのです。

スジャータPは45個入り、これを毎回2袋買ってきますが一日3杯飲むのでひと月でなくなります、つまりほぼ2ヶ月分になりますね。

それといつも買っているとっても美味しいせんべいも買いに行きましたが品切れ、前々回は棚の奥に一袋だけありそれを買うことができましたが人気商品なんでしょうか、いつも品薄です。

嫁に買い物ついでに頼んでもいいのですがそれを売っているデパ地下は袋が有料なのです、2円取られます、私はほとんど自分で袋を持参するので関係ないのですが、袋を要らないと言うとなんと2円引いてくれるのですよ!

故に袋をケチらない嫁に買ってきてもらうと後で精算するときに私が買うよりも高くなるのです。

高が2円、されど、、、やはり高が2円かも。
DATE: CATEGORY:PC、プログラム
天気:晴れ

「こんなの作りましたあ。」でお披露目したプログラム、ここではセルをダブルクリックするとそこに作ったパスワードが入るようになっています。

サイト名、ID、パスワードと3列を使います、実際はシートの右側にポイント交換アイテムの、例えば「Amazon」とか「**ギフト券」とかが多数ひしめいていて少しでも見通しを良くしたいのです。

それにパスワードが見えっ放しなのも、、、ねえ、

そこで改良したのが以下。

Private Sub Worksheet_BeforeDoubleClick(ByVal nHCell As Range, Cancel As Boolean)
Cancel = True

Dim nHmoj As String, nHpwd As String
Dim nHketa As Long, n As Long, h As Long

nHmoj = "_0123456789" & _
    "abcdefghijklmnopqrstuvwxyz" & _
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
nHpwd = ""
nHketa = 10

If Application.Intersect(ActiveCell, Range("nonti")) Is Nothing Then Exit Sub

  For n = 1 To nHketa
    h = Application.RandBetween(1, Len(nHmoj))
    nHpwd = nHpwd & Mid(nHmoj, h, 1)
  Next

  With ActiveCell.Validation
    .Delete
    .Add Type:=xlValidateInputOnly
    .InputMessage = nHpwd
  End With
End Sub



「データの入力規則」の「入力時メッセージ」の「メッセージ」欄にパスワードを反映して「ID列」のどこかを選択すると画像のように表示させることにしました。

ここでセルをダブルクリックするとメッセージに新しいパスワードが表示されます。

copyright © 2017 のんちの今のうちに話しておきたいこと。 all rights reserved.Powered by FC2ブログ