品良くしても無駄･･･

上品になった豚骨ラーメンなんぞ、喰いたくも無いワっ!

関東圏で出品するなら、ソレはまぁ、仕方ないかも知れない、
しかぁしっっ! 本場九州で出すのがソレでは、物足りないっつか、ダメだろ!!

ソレでなくても、関東圏の猿真似で、中途半端な発想で開発を進めたコトにより、
工業や観光はおろか、生活すらダメにしてしまったこの地域、
せめて名物料理の維持くらいは、何とかならなかったものか？(´ﾍ｀；)

関東地区･･･つか、都内では、某五輪を前に、渋滞緩和の為消えてしまったと云う路面電車、
しかしそれは、地上から無くなっただけで、足としては、
その地下に鉄道を張り巡らせると云う方法で、ヒトの往来手段は確保されている。

片や この地方では、定期性が確保しづらく、高速度運行の難しいバスで茶を濁してしまった。
どうせ猿真似るなら、地下鉄も同様に展開すれば良かったモノを･･･ ホント中途ハンパ
そもそも、自動車が無いと生活できないような地方なんてのは、
統計的にも現状的にも、全く発展しない地域になってしまうのは、ちょっと考えれば、容易に予見ができたハズ。
その程度の先見すら利かない連中が、必死こいて環境とか云い出したってタカが知れてるっての･･･
＜福岡県 とんこつラーメン 路面電車 地下鉄＞

お嬢のバカやろう･･･

preタグの中身もグダってしまうので、やっぱり対応しないことにした。 いい加減、勘弁して欲しい。
くろむたんですら、それなりに表示してくれると云うのに･･･ 

やっぱ嫁(ブラウザ)はキツネに限るね、うん。


つか、前回のMSUpdateで、IMEが、Visたんのと同様にバカになった。
"とりあえず" や "とっとりけん" とか、全く変換できんし、文節認識も、かなりヒドくなってる･･･
使いモノにならんので、FujitsuのJapanist(旧OAK)にでもコロぼうかとか考慮中･･･
でも、６年間更新の無いFEPってのもコワいモノがあるな･･･

つか名前ダサいんで、OAKに戻さないか？ 富士通･･･

おもわず･･･

･･･先々日、アカ登録してDLしちゃいました、SunMicrosystems Solaris10 10/18 DVD ISO 2.1GB

オラクルが74億ドルでサンを買収 - @IT [ 20090420 ]

身売りの話は以前からあったものの、なんかイキナリだったので･･･
このニュースをRSSで知り、記事を読んで、ゲトにハシってしまったよ(´ﾍ｀；)

まぁ、今スグ使うって向きではないし、とりあえず確保と云うコトでw

SakuSaku･･･

ソレは、云わずと知れた 関東地方局のひとつ tvkで毎日0730から放映されている銘コンテンツだが、
このクソ田舎では、週一で、浅い深夜にしか放送してない。

TYさぁ、夜の再放送分までヤれとは云わんよ、ただ、
朝、おはスタ放送に続いて、SakuSakuを毎日朝タイムリーで放送しろっての。

この地方の、中央との情報格差を無くせる唯一の局と云っても過言ではないTY、
その役割も忘れてるのか、自覚が無いのか？

つか、くだらないガキ向け番組(サンリオ世界名作劇場)なんざ観たくもナイわ!
＜地方局 TY TVQ 番組編成 SakuSaku tvk＞

GoodJob!!!･･･

琴桜像の顔に下着　市長が発見、カンカン　倉吉 - 日本海新聞 [ 20090421 ] -Cash-
鳥取で横綱・琴桜の銅像に女性用下着 - TBS News i [ 20090421 1955 ] -Cash-


　ドコかのマンガを思い出したのは、当方だけではナイ筈･･･w

  長谷川市長は「市の誇りをばかにされた」とカンカンだ。  

　そんなトコにしか誇りの対象を持てないってのも、
　地方都市の体たらくさ加減を感じるねぇw

  通報を受けた倉吉署では軽犯罪法に当たるとみて調べるとともに、 
  市などと連携して再発を防止することにしている。  

　んなコト云ったって、並列化っての？ 他の地域でも多発したりして♪

寄りの画像w
　つか、もう、おもしろ過ぎっス


＜鳥取県 倉吉市 東仲町 琴桜 顔 パンツ 下着＞

それなら･･･

いすみ鉄道が社長を公募 - 即戦力としてリーダーシップを発揮する人材求む - マイコミ [ 20090421 ]

･･･役に立つかどうか判らない人間のクタバリ損ない雇うより、
かぁいいねこでも雇ったほうが、余程 実(みのり)があるんじゃね？w
間違いなく即戦力になるであろう!!!ww
＜千葉県 夷隅郡 大多喜町 大多喜 いすみ鉄道 社長公募＞

もうひとオシ･･･

イチオシレビュー! 18.4インチフルHD液晶を備えた
Hybrid-SLIノート m-Book D900X - マイコミ [ 20090421 ]

なんで電源スイッチとかで無駄にスペース浪費するかな、カナ？ 
ホント、バカばっか･･･

アレが無ければ、デスクトップ向けキーボードのレイアウトで逝けたと思うのだよ･･･
その点が、実に惜しまれる(´ﾍ｀；)

あと、記事では "サイズが大きいだけにモバイル使用の機会は少ないと思う" とあるが、
過去、こう云うのが高価だった時代に こんな機器を導入する向きなら、持って歩いて当然ってコトだと思うがねぇ。

だから、重くなってもイイので、底面全てバッテリ な商品が欲しいよ･･･

あと石な、腐っtel石の端末は買ってまで使う気がしない。貰えるなら使うがww
俄然、AMD石での発売を所望～♪

この程度の関数もナイって･･･

いやね、Excelとか使う向きって、商品管理や見積りの集計に使うってのは、当然のように大多数だと思うのだよ、
しかし、数量、単価で小計を出せて、入荷や進捗管理も併記できる専用のワークシート関数ってナイんだよ、実際。

まぁ、そういった関数の理想的な動きとしては、
    {商品名} ─未入力→ 関数はNull値を返す。    
    　│
     何らかの入力アリ
      ↓
    {単価} ┬文字列→ 関数は値0を返す。
      │   └未入力→ 値0を返す。
      │
     数値入力アリ
      ↓
    {数量} ┬文字列→ 関数は値0を返す。
      │   └未入力→ 単価を返す。(数量１として扱う)
      │              (1個しか要らないのに、イチイチ数値入力してられるかっての)    
      │
     数値入力アリ
      ↓
    単価／数量の積を返す。
ってトコだろうか。
コレなら、在庫があるモノだった場合、数量セルに "在庫"、作業完了対象なら "済" とでも入力しておけば、
単価を入力していても小計には出ない。

そりゃあ、セルに延々式を書き込めば、ウゴくって云やぁウゴくケド、
入力値の種類識別などの条件を処理させるには、式の長さと煩雑さがハンパなくなって、
対象数が多い場合、計算終わるまで結構な時間掛かってしまう場合もあったり･･･

前に就いていた職で、支店から集められたデータを一気に集計させるべく、
150以上のワークシート跨いだ複雑な条件式を大量に実行させたら、
計算終わる前にDELL機(Pen4 2.2GHz 512MB WinXPSP2)が再三オチたモノだ･･･
オチずにウゴいても、結果が出るまで１時間以上掛かってた記憶が･･･


んで今日、日曜大工な向きで、久々に品物管理の必要に迫られ、
単なるリストではなく、集計を必要とするワークブックを作成、


画像クリックで原寸大表示▼



それに使う為、ExcelVBA向けとして、あると便利そうな機能を盛り込んだ汎用性の高い関数を描いてみた。
アドイン(.xla)のモジュールに書き込んで、ワークシート関数として使う為のスクリプト。


    '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－     
    'sTotal     
    '- Created by LazwardFox -     
        '下記条件に従い、小計を表示する。     
            '商品名セル[Article]に入力がある場合のみ有効とする。     
            '数量[Quantity]／単価[Unit]への入力が文字列だった場合は、無効として扱われる。     
            '数量セル[Quantity]未入力の場合 は 1(個) として扱われる。     
            '単価セル[Unit]未入力の場合 は 0(円) として扱われる。     
            '     
        ' Update -------- ----     
        ' Release 20090419 1707     
    Public Function sTotal(Optional ByVal Article As Variant = "", _     
                            Optional ByVal Quantity As Variant = 1, _     
                            Optional ByVal Unit As Variant = 0) As Variant     

        Application.Volatile     
        If Article = "" Then     
            sTotal = ""     
        ElseIf VarType(Quantity) = 8 Or VarType(Unit) = 8 Then     
            sTotal = 0     
        ElseIf Unit = 0 Then     
            sTotal = 0     
        ElseIf Quantity = 0 Then     
            sTotal = Unit     
        Else     
            sTotal = Unit * Quantity     
        End If     
    End Function     


まぁ、えれぇ簡単に見えるが、コレをワークシート上、１セルの式記述だけで実現するには、
やたら長ったらしい式の入力を要求されるワケよ。
不正入力への対応とかも含め、ラクしたいなら、VBAでワークシート関数ツクるに限るねぇ。

って、使うワークシートのモジュールに書き込んで、ローカル関数として使うだけでも別段支障は無いが、
どうせなら、アドイン作るのも覚えてみると、結構便利デスよ。
･･･とか云いつつ、その件については放置、触れる気すら無い外道さ加減が おきつねさまクオリティw
ま、別段質問された訳でもナイし、だいたい、ググりゃ判るし、
アドインの組み込み方も知らないでExcel使ってる向きには興味ないしΨ(｀∀´)Ψ

つか、云う程難しいこっちゃナイってのがホントのトコ。
どのくらい簡単かって？ ソレさえも判らないなら、アタマのデキがシれてるってぇくらいw
Excel操作してるだけで なんとなく判るってホド簡単。

でも、リクエストがあるなら、
初心者向けに、非常に簡単な方法を、図解入りで、極めて判りやすく解説せんでもないが、
まぁ、ナイだろう(自己完結)


あと、敢えてエラー処理は記述しなかった、そのほうが入力ミスに気付き易いと云う判断からだ。
入力を人の手に頼る場合、過度なエラー回避処理は諸刃の剣でしかない。
こういったスクリプトを組む場合は、そのヘンも一考して開発／配布したほうがイイ。

トクに会社などでの利用の場合、実際のトコが どうなのかは別として、
"自分と同じだけの高度なスキルを持った人間など まず居ない"と思って掛からないと、
確実に、たいした原因でもないトラブルに巻き込まれて痛い目を見るよ。

最近の(大手)企業の社員の質は、考えられない程 低いからねぇ･･･
トクに、能力カスのクセに、向上心は出世にだけ向いてて、永いコトそこに居るだけ的な連中はねぇ･･･

自分に出来ない事を人に聴けるようになったら、オトナ(ふしぎの海のナディア より) ってコトらしいが、
現実は、歳ばかりとってるか、"自分は立派な大人"とか勘違いしてて、オツムの中身ガキなの多くて、
ソレすらムリとか･･･

でもまぁ、そう云う、ヘンなプライドだけが先に立って、歳下の社員に質問できないで居る、
貝になったタッチおじさんな向きの質問でも、丁寧に答える用意はあるのだが･･･

MSUpdateも考えモノ･･･

IMEが更新された場合、毎回、ユーザー辞書と学習が全て逝ってしまう･･･
先週の更新では、文節すらマトモに識別しなくなった(´ﾍ｀；)

自社製品の管理システムすら満足に組めないとは、
終わっていると云うより、殺人事件の死体より役に立たんなMS･･･

待望の携帯機器となるか？･･･

以前、文房具のKINGJIMが出した"ポメラ"を散々タタいた記憶があるが、
そのトキ欲しいと思ったあるべきカタチを、ほぼ全て具現化したような商品が発表された。

WILLCOM NS の 発売について - WILLCOM [ 20090415 ]

T芝製ってのが聊かアレだが、
大して目の付け所がトンガッテないS社製だと、Linuxにコロんでてキーボードが使い悪いから、
まぁ、無難に使えるって点では、むしろ良かったと云えるだろう。

   ■ WILLCOM NSの主な特長    

    1. インターネット閲覧に特化し、特長の異なる2種類のブラウザを搭載    
FireFoxとか載らないかな、カナ？

    2. 手帳に入れて持ち運べるコンパクトなサイズと見やすい大画面    
システム手帳に入れられるのは大きいね。 如何にもメモってカンジ。
あの手帳なら、クソレベルのビジネスマンですら、書物やマスコミ報道に感化されて持ち歩いてるコト多いからねw

    3. Wi-Fi機能を搭載    
IEEE802.11b/gっすか･･･ aとかドラフトnとかも欲しかったが、ちと贅沢か･･･
PCMCIAカードで追加できるのカナ？

    4. 長時間使用できる大容量バッテリー    
基本をオサえてきてるが、増設とか、大容量バッテリーとか考えてるかな？
あの手帳大きいんだから、この端末だけ収めておくだけなら、かなり大きなバッテリもセットできると思うゾ。

   ■ 発売日

        2009年4月24日（金）     
SIGMA DP2と同じっスか･･･

   ■ 価格

       オープン価格     
ケータイとして契約せずに購入できないモノか？ 端末単体としても、充分魅力的だからねぇ･･･


   ウィルコムプラザ・オンラインショップ「ウィルコムストア」にて   
  「W-VALUE SELECT」で 新規ご契約いただいた場合、
   月々のお支払いは月額980円の通信費用と、2,000円の本体代金で本製品をご利用いただけます。 

    ＜ W-VALUE SELECT」で新規ご契約の場合 ＞
     月額費用：980円（新つなぎ放題：3,880円 － W-VALUE割引：2,900円 ）
     本体代金：2,000円×24回（＋頭金：4,800円）　
コレでも良心的と云えば云えなくはナイのだが･･･


詳しくはコチラを見たほうが細かいトコロまで判るかと･･･
ウィルコムの最新薄型情報端末「WILLCOM NS」速攻ムービーレビュー - GIGAZINE [ 20090415 1622 ]

しかし、通話については一切触れられてナイなぁ･･･(´ﾍ｀；) Bluetoothもナイっポイ。

コレに、電話(通話)機能とBluetoothイヤホンマイク対応は必須だったと思うゾ･･･
そのヘン付いてないから、Skypeとかが幅を利かすようになってしまうんだよ･･･ 
アタマ足りてナイなぁWillcom＆T芝･･･ 最近投入される商品はツメがアマいモノばかりなんだよな･･･
コレで、不況の折、サイフのヒモを緩ませるってぇには、ドウなのかねぇ？(´ﾍ｀；)

あと、欲を云うと、もう１モニタ増設できれば、見開きみたいに使えて便利になるのだがねぇ･･･
今、デスクトップ／のて機分野では、４～８インチUSBサブモニタてぇのも発売されて結構経ち、
G/Bに依存しない簡易デュアルディスプレイ環境も普及してきているし、一考の余地あると思うのだよ。
って、WiFiを使って２機リンクさせるとかして同時使用できるようになる とかだけでもしてくれれば、
だいぶ違うっちゃぁ違うケド、NSと同サイズのUSB増設タッチパネルモニタが発売されればイイだけなのだが･･･

スズメバチを楽しんで殺そう・・・

･･･のコーナーがやってまいりました～ 司会のおきつねさまデスぅ～

でも、殺るのは自己責任でお願いしますよぉ～
ムシごときにヤられるようなドン臭いﾔｼの責任まで負わされては敵わんからねぇ(´ﾍ｀；)

なんか、ウチの屋根裏に巣を造りやがってるっポイんデスよ～
屋根下の隙間から進入しているのを再三確認しましてねぇ･･･

ふっふっふっ、久々に殺戮して惨殺して滅殺してやろうかな、カナΨ(｀∀´)Ψ

んで、用意するのは鉈w･･･じゃなくて、20ワット程度の蛍光灯と白い壁(上下左右白いと尚ヨシ)、そして夜(？)。
ﾔｼらバカだから、どんなに怒らせても蛍光灯に向かっていく、嗚呼悲しい性よのうww

まぁ飛ばしてくる毒液には注意が要るケド、ちょっとﾗﾘりたい向きにはむしろ好都合カナ？w
小一時間奮闘してると、意識して吸わなくても結構クるよ～ ←ﾊﾞｶ

で、蛍光灯や壁に集まっているﾔｼらを、便所スリッパ状のモノwで 床に叩き落して靴で踏みつける♪
あのときのバリバリメリメリという音が、断末魔の叫び的でタマらんのよコレが! 真にカ・イ・カ・ン♡

で、以前、この習性を生かし、２～３日かけて、巣の９割を死滅させたことがあるんデスけど、
(巣は業者が片付けてしまったらしい･･･ ﾁｯ)
あのラ●オンズマンションの廊下は真に、文字通り 死屍累々だったなぁ(DeathとかHellってカンジ？)
(ダレが掃除したのやらwww)

あと、更に悦に入りたい向きには、飛べない程度に中途半端に踏み潰し、ﾔｼらの顔を見てごらんなさい、
その命乞いしている表情を楽しみつつ、無慈悲に踏み潰せるようなら、あなたも立派な外道です。

VBScriptで鯖管理 そにょ２b･･･

   2009/03/13 - VBScriptで鯖管理 そにょ２･･･    
の、スタートアップ／ログオン／ログオフ／シャットダウン 向けのスクリプトを更新。

   sScriptor.zip    
▲ を、右クリックしてファイルとして保存してください。

以前の版では、実行するアプリケーションに対するコマンドラインパラメータを
条件なくダブルクォーテーションで囲んで処理していた･･･

以前のiniファイル記述例)
    ;{アプリケーションフルパス};{Parameter};{CallType DDE or pnWq or 省略};WindowType 0 or 1;{mSec(Interval) or True or False};[Title(Memo)]      
    C:\Applications\System Tools\ProcessorManegements\CrystalCPUID\CrystalCPUID.exe;/F22 /P1 /E;;1;4000;[CrystalCPUID]    
    C:\Windows\System32\Notepad.exe;TestText 0000.txt;;1;4000;[Test - Notepad]    
    C:\WINDOWS\system32\rundll32.exe;shell32.dll,Control_RunDLL desk.cpl,,3;DDE;1;2500;[MonitorProperty DDE]
･･･ので、この指定でも動作していた。
一見問題がないように見えたのだが、この影響で正常動作しないモノがあった･･･(^_^;

そこで、コマンドラインパラメータ(iniファイル中の第２引数)をダブルクォーテーション(Wq)で囲まないコトを既定にし
敢えてインラインパラメータをWqで囲みたい場合は、

そこで、敢えてインラインパラメータをWqで囲まない場合は、CallType引数(iniファイル中の第３引数)に、
pnWq と記述するコトにより、任意で設定が可能なよう変更。

また、インターバルmSecパラメータ(iniファイル中の第５引数)に True と記述するコトで、
その処理の終了まで待機できるようにした。

新たなiniファイル記述例)
    ;{アプリケーションフルパス};{Parameter};{CallType DDE or pnWq or 省略};WindowType 0 or 1;{mSec(Interval) or True or False};[Title(Memo)]      
    C:\Applications\System Tools\ProcessorManegements\CrystalCPUID\CrystalCPUID.exe;/F22 /P1 /E;pnWq;1;True;[CrystalCPUID]    
但し、確実に単独で動作が完結する処理以外で、この指定は行わないでください。
特に、スタートアップスクリプトとして利用する場合、Windowsがスタートアップで停止していまい、
起動しなくなる可能性があります。
(既定であれば、Windowsのスタートアップスクリプトのタイムアップ設定により回避される)

アーカイブ内のサンプルini
    ;{アプリケーションフルパス};{Parameter};{CallType DDE or pnWq or 省略};WindowType 0 or 1;{mSec(Interval) or True or False};[Title(Memo)]      
    ;←行頭にセミコロンで非実行     
    C:\Windows\System32\Notepad.exe;TestText 0000.txt;;1;4000;[Test - Notepad 3SecWait]     
    C:\WINDOWS\system32\taskmgr.exe;;;1;2000;[TaskManeger 2SecWait]     
    C:\WINDOWS\system32\rundll32.exe;shell32.dll,Control_RunDLL desk.cpl,,3;DDE;1;5000;[MonitorProperty DDE]     
    C:\Master\! Creates\Scripts\! TestTargetFolder\TestPopUp.vbs;sScriptor Test1;;1;True;[Test1 ExitWait]     
    C:\Master\! Creates\Scripts\! TestTargetFolder\TestPopUp.vbs;sScriptor Test2;;1;3000;[Test2 3SecWait]     
    TestPopUp.vbs;sScriptor Tested;;1;;[Test]     

アーカイブ内の.vbsファイルソース
    '***** ↓↓↓ScriptTitle↓↓↓ *********************************************************     
        ' Startup/ShoutdownScripting with out TestMode     
        '- Created by LazwardFox -     
         
            ' Update 20090411 2140 コマンドラインパラメータ(第２引数)をダブルクォーテーション(Wq)で囲むコトを既定に戻し、     
                                 ' 代替として、CallType引数に pnWq を記述して、パラメータをWqで囲まず利用可能に。     
            ' Update 20090411 1711 iniファイル内、インターバルパラメータ(第５引数)に True を記述で、処理終了待機     
                                 ' コマンドラインパラメータ(第２引数)をダブルクォーテーション(Wq)で囲まないコトを既定に変更     
                                 ' 代替として、CallType引数に pWq を記述して、パラメータをWqで囲むことができます。     
            ' Update 20090313 1709 パラメータ省略によるエラー処理を訂正     
            ' Update 20090311 1634 inArray を inArrays に差し替え、必須の lArray を追加     
                                 ' iniLoaderを合せて修正      
            ' Update 20090226 1908 テストルーチン排除     
            ' Update 20090226 1202 DDE式の記述にフラグで対応へ変更     
            ' Update 20090226 1025 DDE式の記述に、通常呼び出しを""で囲んで対応     
            ' Update 20090226 0630 テストモード追加     
            ' Update 20090226 0605 ウィンドウタイプの指定と、インターバルタイム設定可能に。     
            ' Release 20090226 0451     
            ' Update 20090226 0346 iniファイル仕様に変更     
            ' DevStart 20090226 0235 単純動作のみ機能     
         
    '***** ↓↓↓ ObjectDecralations ↓↓↓ *************************************************     
        Dim My, Shell, Fs     
        Set My = WScript     
        With My     
            Set Shell = .CreateObject("WScript.Shell")     
            Set Fs = .CreateObject("Scripting.FileSystemObject") 'ファイル制御     
        End With     
         
    '***** ↓↓↓Decralations↓↓↓ *********************************************************     
        Dim sTitle, artargets, iExe, sWq, rTarget, wType, sSec     
        Const vbWq = """"     
        sTitle = Fs.GetBaseName(My.ScriptName)     
         
    '***** ↓↓↓MainRoutine↓↓↓ *********************************************************     
        arTargets = arIni(";")     
        If IsEmpty(arTargets) Then     
        Else     
            For Each iExe In arTargets     
                If IsEmpty(iExe(0)) or iExe(0) = "" Then     
                ElseIf iExe(0) = "" Then     
                ElseIf Fs.FileExists(iExe(0)) Then     
                    sWq = vbWq     
                    pWq = vbWq     
                    If IsEmpty(iExe(2)) or iExe(2) = "" Then     
                    ElseIf Ucase(Cstr(iExe(2))) = "DDE" Then     
                        sWq = ""     
                        pWq = ""     
                    ElseIf Ucase(Cstr(iExe(2))) = "PNWQ" Then     
                        pWq = ""     
                    End If     
                    rName = vbWq & Fs.GetBaseName(iExe(0)) & vbWq     
                    rTarget = sWq & Cstr(iExe(0)) & sWq     
                    If IsEmpty(iExe(1)) or iExe(1) = "" then     
                    Else     
                        rTarget = rTarget & " " & pWq & Cstr(iExe(1)) & pWq     
                    End If     
                    If IsEmpty(iExe(3)) or iExe(3) = "" Then     
                    ElseIf IsNumeric(iExe(3)) Then     
                        wType = Cint(iExe(3))     
                    Else     
                        wType = 0     
                    End If     
                    If IsEmpty(iExe(4)) or iExe(4) = "" Then     
                    ElseIf IsNumeric(iExe(4)) Then     
                        sSec = Cint(iExe(4))     
                        eWait = False     
                    Else     
                        sSec = 0     
                        eWait = iExe(4)     
                    End If     
                    Shell.Run rTarget, wType, eWait     
                    If sSec > 0 Then     
                        My.Sleep sSec     
                    End If     
                End If     
            Next     
        End If     
        Set Fs = Nothing     
        Set Shell = Nothing     
        My.Quit     
             
    '***** ↓↓↓Functions↓↓↓ *********************************************************     
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－     
        'arIni - スクリプトと同名のiniファイルがあれば、内容を配列で取得     
        '- Created by LazwardFox -     
         
            ' Update 20090226 0330     
            ' Update 20090223 0550 変則的フォルダ名回避のため修正     
            ' Release 20090223 0509     
         
        Public Function arIni(lS)     
            Dim sNFull, rFolder, sN, iniFile     
            sNFull = Wscript.ScriptFullName     
            rFolder = Fs.GetParentFolderName(sNFull)     
            sN = Fs.GetBaseName(sNFull)     
            iniFile = Fs.BuildPath(rFolder,sN & ".ini")     
            If Fs.FileExists(iniFile) Then     
                arINI = iniLoader(iniFile,lS,0)     
            End If     
        End Function     
                         
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－     
        'iniLoader - 対象をiniファイルより取得、既存iniファイルのみ指定可。     
        '- Created by LazwardFox -     
         
            ' Update 20090311 1650 inArraysに合せて修正     
            ' Update 20090226 1025 DDE式の記述に対応     
            ' Update 20090226 0855 データ内にコンマを利用可能に     
            ' Update 20090226 0356 多重配列向けに修正     
            ' Update 20090223 0550 戻り値可変 [ 0 - 配列 ] [ 1 - lSplitterで指定した区切り文字で連結された文字列 ]     
            ' Release 20090223 0509     
         
        Public Function iniLoader(iniFile, lSplitter, Control)     
            Dim nS     
            nS = Fs.GetFile(iniFile).size     
            If nS = 0 Then     
                iniLoader = Array(Fs.GetParentFolderName(iniFile))     
            Else     
                If IsEmpty(lSplitter) Then     
                    lSplitter = ","     
                End If     
                Dim iFile, lResult, strResults, rL, iniLoaded     
                Set iFile = Fs.OpenTextFile(iniFile,1) 'iniファイルを読み取りモードで開く     
                WScript.Sleep 150     
                Do Until iFile.AtEndOfStream '読み込み     
                    rL = iFile.ReadLine     
                    lResult = lResult & "**" & rL & "**"     
                Loop     
                WScript.Sleep 150     
                iFile.Close 'Iniファイルを閉じる     
                strResults = Replace(Replace(lResult,"****","*"),"**","")     
                If Control = 0 Then     
                    inArrays strResults, "*" & lSplitter, iniLoader     
                Else     
                    iniLoader = Replace(strResults,"*",lSplitter)     
                End If     
            End If             
        End Function     
         
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－     
        'inArrays - 多次元配列構築     
        '- Created by LazwardFox -     
         
            '配列 及び 文字列から、区切り文字を指定して多重配列を作成し返す。     
         
            ' Update 20090228 1248 strLimitters指定に、区切り文字 ~(チルダ)不要に。     
            ' Update 20090228 0833 配列のほか、文字列もソースに適用可能に。     
            ' Update 20090223 0917     
         
            'inArrays(     
            '        tSources      － 区切り文字を含む文字列 ないし、それらで構成された配列     
            '        ,strLimitters  － 区切り文字を順番に並べた文字列を指定     
            '        ,arReturn      － 戻り値が代入されます。     
            '        )     
         
        Function inArrays(tSources, strLimitters, arReturn)     
            Dim arSources, arLimitters, iLimitter, arInArrays, iSource, Pc     
            arSources = tSources     
            lArray strLimitters, arLimitters '＜ Update 20090228 1248     
            For Each iLimitter In arLimitters     
                If VarType(arSources) = 8 Then     
                    arInArrays = Split(arSources,iLimitter)     
                Else                         
                    Pc = 0     
                    ReDim arInArrays(0)     
                    For Each iSource in arSources     
                        ReDim Preserve arInArrays(Pc)     
                        arInArrays(Pc) = Split(iSource,iLimitter)     
                        Pc = Pc + 1     
                    Next     
                End If     
                arSources = arInArrays     
                arInArrays = Null     
            Next     
            arReturn = arSources     
        End Function     
         
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－     
        '文字列を１文字ずつバラし、配列として返す     
        '- Created by LazwardFox -     
         
            ' Release 20090228 1246     
                 
            ' lArray(     
            '      strLetters  － 分解したい文字列     
            '     ,rArray      － 戻り値が代入されます。任意の変数名を指定      
            '     )     
                 
        Function lArray(strLetters, rArray)     
            Dim Pc, rLetters()     
            Set objADO = CreateObject("ADODB.Stream")     
            With objADO     
                .Type = 2     
                .Open     
                .WriteText strLetters     
                Pc = 0     
                .Position = 0     
                Do Until .EOS     
                    ReDim Preserve rLetters(Pc)     
                    rLetters(Pc) = .ReadText(1)     
                    Pc = Pc + 1     
                Loop     
            End With     
            rArray = rLetters     
            objADO.Close     
            Set objADO = Nothing     
        End Function     


いい加減、共通関数を.wsf(ライブラリ)化しようかな･･･
＜そのまま使えるVBscript 鯖管理 起動順序 スタートアップ＞

SD14のカウンタ･･･

    カウンタがバグったまま・・・    


それ自体の表示は正常だった。まるで防●省並みの誤報だワw

表示されていたのは、RAWではなく、JPEGでの記録可能残数だったコトが判明。
･･･って、不具合によりシステムがオチたコトには変わりはない。
(パワーグリップと本体との連携不具合がイチバン疑わしい、ないし、バッテリの状態管理機能に問題が？)

つまり、システムが何らかの支障をきたしてダウンし、自己復旧した際に、
記録モードが勝手にJPEGモードに切り替わってしまい、そのモードでの記録可能残数が表示されていたと･･･

つか、RAWでしか使っていない機材なので、JPEGモード要らんと思うのは当方だけ？

    ・RAW撮影に絞り
    　－ (記録媒体の大容量化もあり、ロスレス圧縮すら不要な希ｶﾞｽ 
    　　　って、CFの書き込み速度を考えると、圧縮は まだ必要かも知れないが･･･)     
　　  
    ・バッテリーセーブ一切ナシで撮影 － (バッテリーを大量に買えばいい)

    ・バッファ内データ処理 － (撮影時にモタるほうが困る)

    ・CFへの書き込み を 全て同時処理させつつ － (速いCF買う意味がほしい)

    ・安定性を向上させた － (停まるのは非常に困る)

ファームウェアとか出ないモノかねぇ･･･(´ﾍ｀；)

それでなくても、安定するファームを出してもらわないと、以後のSD15に不安を残すと思うのだが･･･


あと、SD14って、RAW記録でナイと、ファイルの更新日時を維持しつつ、
Exif情報の変更だけで画像の向きを回転させたデータを再記録できないのだワ･･･

WindowsのViewer(JPEG) やSIGMA PhotoPRO(RAW)上で画像を回転させ保存すると、
ファイルの更新日時が変わってしまい、管理しづらくなってしまうと云うオチも･･･
その対策として、撮影日時を管理時に使いたいモノの、Windowsのエクスプローラでは、
宅内LANの速度や マシンパワーが潤沢でない限り、Exif情報取得には時間が掛かり、実用的でない。

PhotoPROに至っては起動しておくだけでもかなり重い。
SIGMAサイドは、若干その位置づけを取り違えてると思う。

まず、機器運用／データ管理に関して･･･

通常考え得る運用として、
    ・撮影したもの全てを無加工で現像し、    
    ・それら結果から使うモノを決め、
    ・必要なら調整を施す。
と云うのが王道だろう。

大量に撮影したモノを、あんな重いアプリで１枚１枚確認しながら現像するというのは、余りに不効率な上、
そう云った実運用での状況を考慮しているとはとても云い難い。

まず、以前のログにもあるが、エクスプローラにX3Fのプレビュー機能を タダ で追加できるArcSoft製の
    RAW Thumbnail Viewer -Download-    
が、あるのだから、PhotoPRO から エクスプローラ機能を廃し、
コマンドラインでの(ショートカットへの複数ファイルドロップ)現像に対応した軽量版を用意すべきだろう。
GUIになっていればナンでも良いと云うワケではないコトを認識すべきだ。

つか、撮影したモノ全てに調整を加え出力するってぇ向きなら、別にSIGMA機ではなく、他社製カメラを使うと思うゾ。

あと、撮影情報も、カメラメーカーだからって なにも、カッコつけてExifに拘らなくても、
Exif情報をテキスト化し、ファイルプロパティのコメントにでも収めておいてもらったほうが、
端末上では利用しやすい･･･ あの枠使うのに特別ライセンスは必要なかったハズだが？

複数X3FファイルのExif情報を、ファイルプロパティのコメントとして追加したり、
まとめてテキストファイルに書き出す独立アプリケーションでもあれば、データ管理もラクになるのだが･･･

無償とは云えPhotoPRO、コマンドラインアプリケーションとして機能するようにしていない点を見るだけでも、
アプリケーションベンダとしては、聊か未熟な感が否めないのだが･･･

複数ファイルドロップの場合は、PhotoPRO自体は表示せずにX3F設定で連続現像する･･･とか、
ちょっとした工夫を、今後期待したい。
(つか、現像エンジンを単独で使えるようにして欲しいかな、カナ･･･)

ココのは･･･

マイクロソフト オフィス2007形式ファイルの読み込み・編集もできる
「キングソフト オフィス2010」を試してみた - Gigazine [ 20090406 0900 ]

･･･まぁ、使わないな、以前フリーだってコトで、同社のセキュアアプリ充てたんだけど、
VBScript(.vbs)はエンコード(.vbe)しないと起動を妨げられるし、余計なバックグラウンドサービスが起動するし、
ウザくなってｱﾝｲﾝｽｺしてみたら、ナニやっても完全に消せなくて、OSｲﾝｽｺし直したコトがあってイヤ気してる。

なにより、Excel/Accessなんて、データ処理の自動化できてナンボなのに、
以前の版では、VBAがフルに使えないってコトで使わなかった と、云う経緯がある。
最新の版からVBA対応しているとのコトだが、対応の範囲とか不明点も多いし、
またｱﾝｲﾝｽｺできなくなったら怖いので試用版を試す気はしない。

今更SQL鯖と完全に連携できないツールを使うのも辛いしね･･･

カウンタがバグったまま・・・

･･･撮影を続けてたら、RAWではなくJPEGで記録されてしまっていたよ、愛機SD14(´ﾍ｀；)

相変わらず ありえない症状がでまくるトコロが またなんともw
パワーグリップのバッテリ切り替えがウマく逝ってナイのかな、カナ？

いっそのことパワーセービング／ロスレス圧縮皆無の設定とか欲しいよな･･･
と云うのも、連写時のデータ処理、撮影処理が優先になってて、バッファ内のデータ処理が滞った結果、
CFへの記録も行われなくなり、バッファフルになって次の撮影が行えていないようだ。

プロセッサは、それぞれの用途毎に独立しているハズなので、
バッテリの消耗を抑えることなく動作させれば、それらの事象は ある程度は軽減されると思われる。

今日の記録モード誤動作といい、ファームウェアにまだまだ難があるようだ。
以前にアげた問題と共に改良を待ちたいトコロだ。

DP2発売デスか、・・・

･･･そうデスか。

つい先程、なんか、SIGMAから発売日決定のメールが届いた。

　　製品名　DP2

　　発売日　2009年4月24日(金)
　　価格　　オープン 

　　DP2スペシャルサイト：www.SIGMA-DP.com/DP2/
　　DP2製品ページ：www.sigma-photo.co.jp/camera/dp2/index.htm    





つか、いくら高性能とは云え、コンデジに興味の無い当方としては、SD15のほうが気になるのだが･･･(´ﾍ｀；)


シグマ、コンパクトボディ1,400万画素の「DP2」発売日決定 - マイコミ [ 20090403 ]
シグマ、デジタルカメラ「DP2」を4月24日発売 - 価格.com [ 20090403 1349 ]
シグマ、「DP2」の発売日を24日に決定 - デジカメWatch [ 20090403 1540 ]

DP1も持ってて、違う画角を狙いたい向きにってコトらしいケド、それって、２機持ち歩くことが前提ってコトかな、カナ？
･･･コンパクトにした意味 無くなってね？
 
DP1もそうだが、外見はLEICA D-LUX4とかに近づけたっポイが、
FoveonX3使っている点以外では、アドバンテージがまったく無いような希ｶﾞｽ･･･
予想価格69800円前後ってんだから、この比較自体がヘンと云えばそれまでだが、
折角 交換レンズメーカーなんだから、タマ換えられるようにすべきだったね。
DPシリーズ専用のバヨネットマウント創るって方向のほうが、
国内外の他メーカー類似商品に対しての差別化ができてよかったと思うのだが･･･

云うて、業務用3板Vカムからの先祖返りな身としては、
仮に、予算も潤沢でコンデジが必須な状況になったとしたら、D-LUX4より、DP1/2を選ぶケドね。
他に35mmフルサイズ3CCDコンデジとかアレば別だけどw
(▲物理的に"コンパクト"には なり得ない構成ではあるww)

あとは売価か･･･

・リード750MB/sの超高速SSDが4月中旬入荷 PCI Express接続、
1TBの大容量品も - AKIBA PC Hotline! [ 20090328 ]

・PhotoFast G-MONSTER PCIe SSD - MobileMode [ 20090326 ]


ようやく この次元に至ったか･･･
コレならシステムドライブやテンポラリドライブとしての使いデがありそうだ。

記事本文中にあったのだが、DRAM使用の商品でも達成できていない読み込み速度を実現しているらしい･･･
だが、そこで疑問なのはDRAM、同じ舞台に立った状況で比較されたコトがあるのだろうか？ と云う点。
結局以前のアノ商品も、SATAを介しているので、その仕様以上の転送は無理だ。
明らかに、インターフェイスの転送速度がボトルネックとなり、DDR2の動作速度を生かせているとは到底思いがたい。
つまり、今回紹介されている商品のように、PCI-Expressに直接設置可能なDRAMドライブ機器でも出てこない限り、
完全な比較はできないと思う。

いずれにしても、Windowsのページングファイルを配置したり、
Adobe製品のテンポラリドライブとかには向いた商品だとは思う。

が、当座は 価格が問題になるのだろうな･･･(´ﾍ｀；)

ま、前述のような用途に使うなら、今安価なDDR3 4GB板を大量に載めるマザーボードを選択して、
32bitOSで扱えない余剰容量全てをRAMドライブ化したほうが、案外安上がりなのかも知れない･･･
システム自体の安定性がドウなるかは微妙だがw

結局ココの・・・

･･･タイトル(ヘッダ)キャプションは、テンプレに直書きすることにした。 
先のログのテンプレ抜粋中、９～１１行の前後に
    <font class="test">キャプション</font>    
と、云う具合に文章を書き込む。至って単純。

なにせWYSIWYGでの入力だと、ブラウザ毎に文字位置ズレるので、使い物にならん(´ﾍ｀；)

また、日時表記も、くろむたんでは何故かOSのロケール設定が適用されなくて、
一部Gadgetが異なる見栄えになってしまっているし、
<pre></pre> も扱いが異なり、フォントサイズがエラく小さくなってしまっている･･･
IE8では、なんだかタイプライター状になってるし、どうしてこうも統一性がないのか･･･

何の対策もなく、全てのブラウザに、同一の見た目を提供するのなんて、ほぼ無理なんじゃナイのかな、カナ？

マスコミ バカ臭せ・・・

たまたま 伊東家の～ を観てたが、
お約束で、端末の使い方説明で、ロマかな使いを教えてやがる。

キーボードには "かな"キー があるだろうが!!

なに毛唐カブれて ロマかな入力 するかな？ 
日本語キーボードの "かな"キー なんて、日本人以外ダレが使うってんだ？
日本人が使わないんだったら こんな規格のキーボードなんか要らんではないかっ!!!

局の連中も そのヘンちったぁ考えて番組ツクれよ、まったく･･･
いい加減にしろっっ!!!ってカンジだワ･･･(-_-#)

ほーんと バカばっか･･･
＜日本人なら黙って･･･ かなキーを使おう! ロマかな入力断固廃絶 大勢を敵に回してみるw＞

タイトル処理改変･･･

ようやっと完了した。

そもそも、タイトルにアイコンを添えたかっただけなのだが、
既定の、文字でのタイトル表示では、ブラウザにより表示位置がズレ、画像と組み合わせられない。

安易に対応しようと、タイトルを画像として作成し、レイアウト設定でヘッダを、画像のみにしてしまうと、
ブログの説明キャプションが表示されなくなってしまう。

で、テキストのタイトルを透過させて対応しようとしたが、IE限定の拡張機能だった為、断念。

そこで、テンプレートHTMLのヘッダを構築する部分を見てみた。
以下は、その処理部を抜粋したもの。
    <div id="header-wrapper">     
        <b:section class="header" id="header" maxwidgets="1" showaddelement="no">     
            <b:widget id="Header1" locked="true" title="おきつねさまのひまつぶし (Header)" type="Header">     
                <b:includable id="main">     
                    <b:if cond="data:useImage">     
                        <b:if cond="data:imagePlacement == "REPLACE"">     
                            <!--Show just the image, no text-->     
                            <div id="header-inner">     
                                <a expr:href="data:blog.homepageUrl" style="display: block">     
                                    <img expr:alt="data:title" expr:height="data:height" expr:id="data:widget.instanceId + "_headerimg"" expr:src="data:sourceUrl" expr:width="data:width" style="display: block"/>     
                                </a>     
                            </div>     
                        <b:else/>     
                            <!--      
                            Show image as background to text. You can"t really calculate the width     
                            reliably in JS because margins are not taken into account by any of     
                            clientWidth, offsetWidth or scrollWidth, so we don"t force a minimum     
                            width if the user is using shrink to fit.     
                            This results in a margin-width"s worth of pixels being cropped. If the     
                            user is not using shrink to fit then we expand the header.     
                            -->
                            <div expr:style=""background-image: url(\"" + data:sourceUrl + "\"); "+ "background-position: "+ data:backgroundPositionStyleStr + "; "+ data:widthStyleStr+ "min-height: " + data:height + "px;"+ "_height: " + data:height + "px;"+ "background-repeat: no-repeat; "" id="header-inner">     
                                <div class="titlewrapper" style="background: transparent">     
                                    <h1 class="title" style="background: transparent; border-width: 0px">     
                                        <b:include name="title"/>     
                                    </h1>     
                                </div>     
                                <b:include name="description"/>     
                            </div>     
                        </b:if>     
                    <b:else/>     
                        <!--No header image -->     
                        <div id="header-inner">     
                            <div class="titlewrapper">     
                                <h1 class="title">     
                                    <b:include name="title"/>     
                                </h1>     
                            </div>     
                            <b:include name="description"/>     
                        </div>     
                    </b:if>     
                </b:includable>     
                <b:includable id="title">     
                    <b:if cond="data:blog.url == data:blog.homepageUrl">     
                        <data:title/>     
                    <b:else/>     
                        <a expr:href="data:blog.homepageUrl">     
                            <data:title/>     
                        </a>     
                    </b:if>     
                </b:includable>     
                <b:includable id="description">     
                    <div class="descriptionwrapper">     
                        <p class="description">     
                            <span>     
                                <data:description/>     
                            </span>     
                        </p>     
                    </div>     
                </b:includable>     
            </b:widget>     
        </b:section>     
    </div>     
なるほど、

上記で５行目の
    <b:if cond='data:useImage'>    
で、タイトル画像の有無を分岐。

画像アリの場合は次行の
    <b:if cond="data:imagePlacement == "REPLACE"">     
で、ヘッダ中の文字列を排しているコトが判る。

そして、タイトルを除くキャプションの表示は
    <b:include name='description'/>    
で、処理している。
 
だったら、１３行目にある
    <b:else/>    
の直前に、その１行を貼り付けて、処理的なトコロは解決。
タイトル画像の下に、キャプションが表示されるようになった。

元々タイトル画像はヘッダサイズに合わせたものだったので、このままではナンだか間延びして見える。
MSPaintでチョイと高さを低くして対応。

ココで判ったのは、タイトル部分の高さの設定が、HTML中には含まれていないと云うコト。
どうやらBloggerサイドでキャッシュしているようだ。･･･ソレがナンだ と云われそうだが、コレが結構重要で、
つまり、タイトル画像表示フレームのサイズをテキストレベルで指定できないのだ。
で、このまま高さを下げた画像で処理させると、フレームサイズにあわせ、高さが強制的に拡大されてしまう。

っても、対処は簡単、WYSIWYG(Bloggerのタイトル画像設定画面)で、タイトル画像を再度設定し直すと解決する。

つか、タイトルと説明キャプションを、ひとまとめでしか設定できないって時点で、どうなのかね？

そもそも、

・ページタイトル＆キャプション表示・タイトル背景画像アリ／ナシ
・タイトル画像表示のみ表示

と云う、排他的指定しかできないから、こう云う不便が生じる。 GUIとしては かなり考えモノ･･･

・ページタイトル表示／非表示設定
・背景画像指定
・キャプション表示／非表示設定

これらは全く別個に設定できるようにするのが本筋だろう。

IE8.0にジェスチャツールを･･･

ロリちゃんや火狐さんで適用しているアドオン Grab and Drag･･･
ソレが当たり前になった感のある当方、お嬢でうっかり同様の操作をしてしまう･･･
すっかりパブロフの犬状態に･･･^_^;

で、ググるさんに聴いてみる･･･ IE7proですか、そうですか。 ･･･早速充ててみた。

どうだろう、絶対お嬢を使いたい向きでもない限りは、火狐さんのアドオン陣には到底及ばないと思う。
それは、機能毎バラバラに、自分で選んでインストールする手間はあるが、
欲しい機能やデザインのアドオンを、好き勝手に追加できる分、火狐さんに分があると云える。

あと、肝心のGrab and Drag機能に関しては、IE7proに付いてるものでは、カーソルがソレに固定されてしまう。
火狐さんアドオンのGrab and Dragのように、必要な時だけ機能させる細かい設定はないようだ。

まぁコレも結局 戸次さんなツール だったと云えるのかも知れない･･･w
つか、全く別のアプリケーションで、アドインですらナイし･･･

肝心の公開されているアドインにしても、なんかBloggerのショボいGadget程度のものしかない、使えねぇ。
Mozilla勢ほかが伸びてる背景ってのかな、全く理解できてないなMS･･･
あと、ブックマークっつか、ショートカット？ お気に入り？ 
あれらも、未だに実フォルダ上で管理されてるってのも、今時ドウなのかね？
火狐さんみたく、XMLでブラウザに取り込む体のほうが良いと思うのだが、
ホント、学習してねぇワMS･･･

IE8.0、処理躓いてオチた後、再度起動させると、動き出すまでが異常に重い。

また、設定ほかのアイコンをすべて表示させてると、タブを大量に開きづらくなるので、
IE7の頃から、半分は非表示にしてあるのだが、IE8.0では、何故かコレらを表示させるのがバカ重い、
何故だろう？