VB弾投下っ!･･･

VBScript等で、時刻文字列とか、２つの日時から その差異や平均を取得となると、
簡単なようで、厳密にやろうとすると結構面倒な上、難しいと云うのは、
そのヘン触ったコトのある身なら、ダレでも既知のコトと思う。

で、以前公開した、日付文字列取得関数を簡単に改良した版と、日時の差異を色々な形式で取得できる関数、
変数内データ確認関数、簡単な桁揃え関数などを一纏めにし、且つ、ソレらが連携するよう組んだサンプルを、
以下にうpしてみた。

アーカイブはコチラ　･･･今回は サンプルなので、エンコード版は非同梱。


おやくそくの ひけらかしw

    '***** ↓↓↓ScriptTitle↓↓↓ ****************************************************     
        ' dtDiffs (X3FManeger)      
        ' - Created by LazwardFox -      
              
        ' 時間文字列取得関数と、時間差取得関数のテストパッケージ。     
        ' mSecレベルを未処理な為、平均時間取得で、秒の精度が低い。     
         
        ' 特徴)     
            ' 時間差異取得関数 dtDiff で 得られる差異は最大、9999/12/31 23:59:59      
            ' また、比較時刻に差異が無かった場合には、既存日付関数では取得不可能な、     
            ' 0年0ヶ月0日 0時間0分0秒を、様々な形式の値として取得可能。     
         
        ' 注)      
            ' 上記特徴に起因し、時間差異取得関数 dtDiff で 得た値は、     
            ' 概ね、そのまま日付処理関数に代入できない。     
         
        ' Tips 01)      
            ' VBScriptの時刻取得関数で得られた値には、ミリ秒が含まれる。     
            ' が、このスクリプトに含まれる処理だけでは、     
            ' ソレを表示結果に反映させるコトは出来ない。     
            ' (JavaScriptにある、MilliSeconds に、該当する関数はナイ)     
         
        ' Tips 02)      
            ' テストで用いている Sleep関数は、1/1000秒レベルの精度を持たない。     
            ' 故に、テストでのミリ秒の値は安定しない。     
            ' つまり、.Sleep 3000 としても、ジャスト3000mSecでは動作していない。     
            ' (JavaScriptで類似処理を用いても、ほぼ同様)      
         
        ' 単純数値化      
            ' yyyymmddhhnnss と結果を並べて、(倍精度)整数に変換したモノ。     
            ' もし仮に、結果の差異が 11年 6ヶ月 2日 16時間 22分 4秒 であった場合、     
            ' 110602162204 が(文字列ではなく)整数で返される。     
         
         
        ' それら特徴や問題に起因し、平均値を得るに、     
        ' 丁度割り切れる秒数でナイ場合の精度は期待できない。     
         
         
        ' Update -------- ----      
        ' Release -------- ----      
        ' Update 20091206 0307 平均値出力暫定追加(ミリSecレベル未対応版)      
        ' Update 20091206 0247 公開用にX3FManegerから分離し、テストスクリプト化。     
        ' βRelease 20091011 0625      
        ' DevStart 20091010 1549      
          
    '***** ↓↓↓ ObjectDecralations ↓↓↓ *******************************************     
        Public My, Fs ', Parameters, MySh,      
        Set My = WScript     
        With My     
            'Set Parameters = .Arguments ' パラメーター取得      
            'If Parameters.Count <= 0 Then ' パラメータなし起動の無効化      
            '    .Quit     
            'End If     
         
            'Set MySh = .CreateObject("WScript.Shell")     
            Set Fs = .CreateObject("Scripting.FileSystemObject")     
            'Set objSMTP = .CreateObject("CDO.Message") ' SMTP Object     
            'Set objMx = .CreateObject("MSXML2.XMLHTTP") ' URL Check      
        End With     
         
    '***** ↓↓↓ Decralations ↓↓↓ *************************************************     
         
        ' Const - Letters      
        Dim vbWCrLf, vbTc     
        Const vbWq = """"     
        vbWCrLf = vbCrLf & vbCrLf     
        vbTc = vbTab & vbCrLf     
             
        ' Const - Date/Times      
             
         
    '***** ↓↓↓ LocalDecralations ↓↓↓ ********************************************     
        Dim sStartTime, sEndTime, ElapsedTime     
        Dim StartTime, EndTime     
        Dim strReport     
        strReport = "時間差異と平均時間取得テスト" & "　" & vbWCrLf      
         
    '***** ↓↓↓ TestParameter Decralations ↓↓↓ ***********************************     
        Const sPar = 3 ' テスト用平均値取得パラメータ      
         
    '***** ↓↓↓MainRoutine↓↓↓ ****************************************************     
        'On Error Resume Next     
        sStartTime = Now() ' 開始時刻シリアル値取得      
        My.Sleep 6000 ' テスト間隔      
        sEndTime = Now() ' 終了時刻シリアル値取得      
        dtDiff sStartTime, sEndTime, sPar, ElapsedTime ' 経過時間      
        iDT sStartTime,,,, 0, StartTime ' 開始時刻文字列取得      
        iDT sEndTime,,,, 0, EndTime ' 終了時刻文字列取得      
         
        strReport = strReport & "みなし処理回数 - " & sPar & "　" & vbWCrLf      
         
        strReport = strReport & "開始-" & StartTime & "　" & vbCrLf      
        strReport = strReport & "終了-" & EndTime & "　" & vbCrLf      
        strReport = strReport & "経過-" & Join(ElapsedTime(0)," ") & "　" & vbCrLf     
        strReport = strReport & "経過時間単純数値化-" & ElapsedTime(1) & "　" & vbCrLf     
        strReport = strReport & "平均-" & Join(ElapsedTime(2)," ") & "　" & vbCrLf     
        strReport = strReport & "平均時間単純数値化-" & ElapsedTime(3) & "　"     
        Msgbox strReport & "　",,Fs.GetBaseName(My.ScriptName)     
        Set Fs = Nothing     
        'Set MySh = Nothing      
        My.Quit     
         
    '***** ↓↓↓Functions↓↓↓ ******************************************************     
         
        ' X3FManeger (fCopy)     
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－      
        ' iDT - 日時文字列 ないし 日/時配列取得 for VBScript      
        ' - Created by LazwardFox -      
             
            ' VarChk      
         
            ' Update 20091103 1149 パラメータチェックを完全外部化。     
            ' Update 20091010 1736 文字列／シリアル値による日時指定、     
                                '　及び パラメータ省略に対応。     
            ' Update 20090228 0458 変数宣言変更      
            ' Update 20090223 0959 時刻桁処理変更      
            ' Update 20090223 0253 Len記述忘れ修正      
            ' Update 20090223 0135 変数宣言忘れ修正      
            ' Update 20090210 0218      
            ' Update 20090210 0115      
            ' Release 20090209 2035      
         
            '    iDT (      
            '     {tDateTime} - Serial / DateTimeStrings (省略可、既定値 - Now)      
            '    ,{dSplitter} - DateSplitString             (省略可、既定値 - "/")      
            '    ,{dtSeparater} - Date/Time SepaleteString (省略可、既定値 - " ")      
            '    ,{tSplitter} - TimeSplitString             (省略可、既定値 - ":")      
            '    ,{Control} - 戻り値 文字列／配列指定  0 or 1    (省略可、既定値 - 1)      
            '    ,Result - 結果日時文字列    (省略不可)     
            '    )      
         
            ' Memo - いずれかのSplitterに ~|" を設定すると、全ての要素が、配列として返されます。     
            ' iDT ,"|",,,,arDT ' - (0) YYYY / (1) MM / (2) DD / (3) HH / (4) NN / (5) SS      
         
        Public Function iDT(tDateTime, dSplitter, dtSeparater, tSplitter, Control, Result)     
            Dim vDateTime, cDateTime, nD, nS, strYMD, strHNS     
            Dim dVal, cVar, arVar     
            dVal = Array(Now(),"/"," ",":",1) ' 既定値配列      
            cVar = Array(Array(tDateTime,7,False,dVal(0)),Array(dSplitter,10,True,dVal(1)), _     
                    Array(dtSeparater,10,True,dVal(2)),Array(tSplitter,10,True,dVal(3)), _     
                    Array(Control,2,False,dVal(4)))     
            arVar = VarChk(cVar)     
            tDateTime = arVar(0)     
            strYMD = FormatDateTime(DateValue(tDateTime),0)             'Update 20091010 1736      
            nS = ":" & Split(CStr(FormatDateTime(tDateTime,3)),":")(2)  'Update 20090223 0951      
            strHNS =  FormatDateTime(tDateTime,4) & nS                  'Update 20090223 0951      
            If arVar(3) = dVal(3) Then     
            Else     
                strHNS = Replace(strHNS,dVal(3),arVar(3))     
            End If     
            If arVar(1) = dVal(1) Then     
            Else     
                strYMD = Cstr(Replace(strYMD,dVal(1),arVar(1)))     
            End If     
            If arVar(4) = dVal(4) Then     
                Result = Split(strYMD & "|" & strHNS,"|")     
            Else     
                Result = strYMD & arVar(2) & strHNS     
            End If     
        End Function     
         
        ' X3FManeger (fCopy)     
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－      
        ' VarChk      
        ' 変数内データの確認と、既定値への置換をサポート。     
        ' 関数への代入パラメータ確認向け     
        ' - Created by LazwardFox -      
         
            ' Update      
            ' Release      
            ' βRelease 20091103 1152      
            ' DevStart 20091103 1014      
         
            ' VarChk - 結果を配列で返す。     
            '        (      
            '           arVar - 調査対象と条件を配列で代入する。 (省略不可)      
            '        )      
         
            ' arVar = Array(Array(Value,VarTypes,Boolean,DefaultData),Array(Value,VarTypes,Boolean,DefaultData),･･･)      
                 
            ' Value - 確認対象となる値、ないし変数      
            ' VarTypes - VarType定数 (日時値を得る場合は、基が文字列代入であっても 8 を指定)      
            ' Boolean - 条件の可否     
            ' DefaultData - 代替規定値 (データ型自由)      
         
        Function VarChk(arVar)     
            If VarType(arVar) >= 8192 Then     
                ReDim iResult(UBound(arVar))     
                Dim Pc, iVar, cVar ,vVar, vDT, cDT     
                Pc = 0     
                For Each iVar In arVar     
                    cVar = VarType(iVar) >= 8192 And Ubound(iVar) = 3     
                    If cVar Then     
                        cVar = VarType(iVar(1)) = 2 And VarType(iVar(2)) = 11     
                        If cVar Then     
                            If iVar(1) = 8 Then     
                                vDT = VarType(iVar(0))     
                                cDT = vDT <> 10 And (vDT = 7 Or (vDT = 8 And IsDate(iVar(0))))     
                                If cDT Then ' シリアル値／日時文字列 識別      
                                    iResult(Pc) = DateValue(iVar(0)) + TimeValue(iVar(0))     
                                Else     
                                    iResult(Pc) = iVar(3) ' Now()     
                                End If     
                            Else                                 
                                vVar = VarType(iVar(0))     
                                If iVar(2) = (vVar = iVar(1)) Then     
                                    iResult(Pc) = iVar(3)     
                                Else     
                                    iResult(Pc) = iVar(0)     
                                End If     
                            End If     
                        End If     
                    End If     
                    Pc = Pc + 1     
                Next     
            End If     
            VarChk = iResult     
        End Function     
         
        ' X3FManeger      
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－      
        ' dtDiff      
        ' 日時値の差異を取得。     
        ' "各単位の差異のみを単純に取得"するDateDiffとは異なる。     
        ' ※ iDTの仕様起因し、利用する場合、コチラを先に実行する必要がある。     
        ' - Created by LazwardFox -      
         
            ' Digit, VarChk      
         
            ' Update 20091208 0119 平均値取得時のゼロ除算回避を追記。     
            ' Update 20091206 0626 VarChk使用で、Par 省略に対応。     
            ' Update 20091206 0356 暫定版平均値取得機能追加。     
            ' Update 20091206 0217 差異演算基底日付値に伴う修正。     
            ' Update 20091105 0329 単純化した時間差数値を出力可能に      
            ' Update 20091105 0315 文字列桁揃えをサポート      
            ' Release 20091103 1655     
            ' βRelease 20091103 1626      
            ' DevStart 20091103 1606      
         
            ' dtDiff - 各単位別の結果を配列で返す。     
            '           Var(0) 日付 - (0) Y / (1) M / (2) D      
            '           Var(1) 時間 - (0) H : (1) N : (2) S      
            '        (      
            '         Before - Serial / DateTimeStrings (省略不可)      
            '        ,{After} - DateSplitString    (省略可、既定値 - Now())      
            '        ,{Par} - AverageParameter    (省略可、既定値 - 1)      
            '        ,Result - 結果を日／時別の文字列を配列として返す。 (省略不可)     
            '                    Result(0)(0) - "Y/M/D" ／  (1) - "H:N:S"      
            '                    Result(1) - YYYYMMDDHHNNSS を並べ、単純数値化した結果が返る。     
            '                    Result(2)(0) - "Y/M/D" ／  (1) - "H:N:S"      
            '                    Result(3) - YYYYMMDDHHNNSS を並べ、単純数値化した結果が返る。     
            '                            例) 時間差が 4日と２時間１５分５秒 なら 4021505      
            '        )      
         
            ' Result と Join(Var(0),"/") & " " & Join(Var(1),":") は、等価。     
            ' 数値で、単位別の値の取得が不要であれば、以下書式だけで利用可能。     
                 
                ' dtDiff Before, After, Result      
         
        Function dtDiff(Before, After, Par, Result)     
            If VarType(Before) = 7 Then     
                Dim cVar, arVar, lDate, Diffs, avDiffs, iResult     
                cVar = Array(Array(After,7,False,Now()), Array(Par,2,False,1))     
                arVar = VarChk(cVar)     
                lDate = DateSerial(0,1,1) ' 差異演算基底日付値 (0,1,1) = 2000/01/01     
                Diffs = arVar(0) - Before 'After - Before     
                If arVar(1) > 0 Then     
                    avDiffs = Diffs / arVar(1)     
                End If     
                Diffs = lDate + Diffs     
                avDiffs = lDate + avDiffs     
                iResult = Array( _     
                        Array(Digit(Year(Diffs) - 2000, "0000"),Digit(Month(Diffs) - 1, "00"),Digit(Day(Diffs) - 1, "00")), _     
                        Array(Digit(Hour(Diffs), "00"), Digit(Minute(Diffs),"00"), Digit(Second(Diffs),"00")), _     
                        Array(Digit(Year(avDiffs) - 2000, "0000"),Digit(Month(avDiffs) - 1, "00"),Digit(Day(avDiffs) - 1, "00")), _     
                        Array(Digit(Hour(avDiffs), "00"), Digit(Minute(avDiffs),"00"), Digit(Second(avDiffs),"00")))     
                Result = Array(Array(Join(iResult(0),"/"),Join(iResult(1),":")),Cdbl(Join(iResult(0),"") & Join(iResult(1),"")), _     
                                Array(Join(iResult(2),"/"),Join(iResult(3),":")),Cdbl(Join(iResult(2),"") & Join(iResult(3),"")))     
                dtDiff = iResult     
            Else     
                dtDiff = False     
            End If     
        End Function             
         
        ' X3FManeger      
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－     
        ' Digit      
        ' 文字列表記の数値の桁揃えを行う。     
        ' - Created by LazwardFox -      
             
            ' Update      
            ' Release      
            ' βRelease 20091105 0303 ﾁｮｰ暫定発行 そにょ２      
            ' DevStart 20091105 ----      
         
        Function Digit(Num, dig)     
            Digit = Right(Clng("1" & dig) + Num, Len(Dig))     
        End Function     



ココまでヤる意味があるかは、利用側の用途次第かw

mSec対応版も組んでたんだけど、時間無くなったので途中のまま･･･(-_-;)
＜そのまま使えるVBscript 日時文字列 時刻差異取得＞

きゃっ･い～ん♪･･･

真 恋姫†無双を、Vで観つつ、ｸﾞｸﾞってWikiって爆笑!

張飛･･･って、鈴々ちゃん▼のコトね。　･･･で、Wikipediaに掲載の、そのモデルwとなってる御仁の画像▼が、

　　　　　　　　　　　　　　　　　　　　


ドウ観ても、某ポーズをとってるアマノッチにしか見えない件。

火狐さんのアドイン・・・

･･･で、著名ドコロの Grab and Drag

ｺｲｼ、設定によっては、随分と軽くなるコトに驚く。

このアドオン、最新版は日本語化されてて、設定画面に その説明があるので判り易いが、
おきつねさまの嫁は、米帝版しか発行されてないver.2.7.4.3までしか使えないので、知らなかった。

設定と云っても、対象は たった１項目、操作毎のマウスカーソル変更処理を停止させるようにするだけ。







コレだけで、恐ろしいくらいレスポンスが改善する。
マシンパワーに難のあるロリちゃんユーザー、早速お試しアレw


－－－－－
試しに、最新のGrab and Drag(ver.2.7.6)を、ロリちゃんに充ててみたが、やっぱり動かなかった。
ま、仕方ナイやぁね(^_^;)

で？･･･

おっちゃんたち奮闘　人工衛星「まいど１号」、絵本に - asahi.com [ 20091205 0721 ]


やっぱり、

　"J●XAに製造資料丸投げされ、開発には殆ど関われないで、腕だけ体（てい）よく利用されただけ" 

と云う件（くだり）はカットかな、カナ？w

未だに･･･

SIGMAのRAWデータを、適切な画像に現像でき、且つコストの生じないアプリケーションは、
実質、同社が無償発行している PhotoProシリーズのみと云う現状。

ただ このアプリ、ファイル操作に限ってはエクスプローラ程の操作性が無い。
従って、事前のRAWファイル取捨選択くらいは、エクスプローラで出来るほうが望ましいのだ。

しかし、PhotoProをインストールしても、X3F(SIGMA FoveonX3 RAW)ファイルを、
サムネイルする機能をWindowsに対して提供してはくれない。

その上、MS提供の某では、SIGMA機データに対しては、全くの無力･･･
そうなると、ArcSoft RAW Thumbnail Viewer の様なPlugIn的ﾌﾞﾂに頼らざるを得ない。

で、更にソレを便利に使うのに、前ログのようなツールがあったら良かったんだが、
そのまま使えるようなスクリプトは公開されてなくて、で、ﾔｼが役に立ったと･･･

正直アレって、当時、エクスプローラのjpegのサムネイルが小さいことにキレて、組んだんだよねw
＜そのまま使えるVBscript, ThumbnailSizeSettings＞

発掘 ! ･･･

去年春に作成し、HDDの何処かにロストしていたﾌﾞﾂが見つかった。

先頃にも話題にした、Arcsoft の RAW Thumbnail Viewer [日本語解説]を使い、
各社カメラのRAWデータの画像チェックや選択を容易にする為に、
Windowsのエクスプローラの縮小版(サムネイル)画像のサイズ変更をレジストリ操作で行う･･･
コレ、確かに簡単な手順で出来るのだが、意外に、手動で ちまちまヤるのは結構ﾒﾄﾞｲさんだったので、
過去に それっぽいスクリプトを組んでいたのだよ･･･


で、今回はソレを うpすることにした。


まずは、ソースなど ひけらかしw･･･

    '***** ↓↓↓Title↓↓↓ *********************************************************      
         
        'ThumbnailSettings      
        'Developed by LazwardFox      
        'Release 20080507_0410      
         
         
        '◆◆◆ Information ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆      
             
        '本スクリプトでは、エクスプローラでの画像のサムネール(縮小版)表示の      
        'サイズと表示品質を任意に設定できます。     
             
             
             
        ' VBScriptでは、クォーテーション [ ' ] が、行頭にある部分は実行されません。     
        ' 正しくは、クォーテーション以降は注釈扱いとなります。念の為…      
         
        '本スクリプトは、コマンドライン ないし ショートカット中に      
        'パラメータ /t を付加することで、テストモードで動作します。     
         
        'ショートカット中の記述 ▼      
        ' "C:\Documents and Settings\[Account]\デスクトップ\Thumbnail Settings.vbs" /t      
             
             
         
         
    '***** ↓↓↓Decralations↓↓↓ *********************************************************      
         
        On Error Resume Next     
         
        Const vbWq = """"     
        Const strRootKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\"     
        Const strTgtKeys = "ThumbnailQuality,サムネイルのクオリティを数値で指定してください。,50,100,90,DWORD*ThumbnailSize,サムネイルのサイズを入力してください。,32,256,96,DWORD"     
         
        '----- ExtendConstantLiterals      
        Dim vbWCrlf     
        vbWCrlf = vbCrLf & vbCrLf      
        '--------------------------      
         
        Dim strCL1stPar, arTgtKeys, strTgtKey, arTgtValues, strKey     
        Dim numMin, numMax, numDef,valType, strErr, strMsg, strStVal, numStrVal     
        Dim strInVal, numVal, strVal, intDig, strWtVal, strEnd     
         
        Set WSHArguments = WScript.Arguments 'コマンドラインパラメーター取得      
        Set WshShell = WScript.CreateObject("WScript.Shell")     
        Set FS = WScript.CreateObject("Scripting.FileSystemObject") 'レジストリキー作成に使用。     
         
    '***** ↓↓↓MainRoutine↓↓↓ *********************************************************      
         
        strCL1stPar = WSHArguments(0)     
        arTgtKeys = Split(strTgtKeys, "*")     
        For Each strTgtKey In arTgtKeys     
            arTgtValues = Split(strTgtKey, ",")     
            strKey = CStr(Fs.BuildPath(strRootKey, arTgtValues(0)))     
            numMin = arTgtValues(2)     
            numMax = arTgtValues(3)     
            numDef = arTgtValues(4)     
            valType = arTgtValues(5)     
            strErr = ""     
            strMsg = arTgtValues(1) & vbWCrlf & vbTab & "指定可能な値は、" & numMin & "～" & numMax & " で、" & vbCrLf & vbTab & "既定値は " & numDef & " です。"     
            strStVal = WshShell.RegRead(strKey)     
            numStrVal = CInt(strStVal)     
            Do      
                strInVal = InputBox(strErr & strMsg, arTgtValues(0), numStrVal)     
                If strInVal = "" Then      
                    If strEnd = "" Then     
                        strEnd = "処理を中止しました。"     
                    End If     
                    Exit Do     
                End If     
                numVal = Cint(strInVal)     
                strErr = "◆ 入力値が誤っているか、範囲を超えています。◆" & vbWCrlf     
            Loop Until numVal < numMin or numVal > numMax     
            If Not strInVal = "" Then     
                Pc = Pc + 1     
                strEnd = UCase(Pc) & "つの設定を"     
                If valType = "DWORD" Then     
                    strVal = CStr(numVal) 'Cstr(Hex(numVal))     
                    intDig = 8 - Len(strVal)     
                    strWtVal = String(intDig, "0") & strVal     
                Else     
                    strWtVal = strVal     
                End If     
                valType = "REG_" & valType     
                If LCase(strCL1stPar) = "/t" Then     
                    msgbox "RegKey - " & strKey & vbCrlf & "SetValue - " & strWtVal & vbCrlf & "ValueType - " & valType     
                    strEnd = "テストモードです。" & vbWCrlf & strEnd & "表示しました。"     
                Else     
                    WshShell.RegWrite strKey, strWtVal, valType '対象となるレジストリキーへ、値を書き込む。     
                    strEnd = strEnd & "変更しました。"     
                End If     
            End If     
        Next     
        WSHShell.Popup strEnd, 5, "Thumbnail Settings", vbInformation     


結構前に組んだので、ブログ幅全く気にしてなかったり、余計な解説入ってたり、変数名の付け方違ったり と、
最近のとは かなり趣が異なっているのだが、このトコロ、とんと公開していないので、
殆どの閲覧されている諸兄には、何のコトやらサッパリなコトかとｵﾓﾜﾚw


で、コレ▼ が、アーカイブ。　中身の実行ファイルがインストーラなので、手間はナイ。

 ThumbnailSizeSettings.zip

設定が済み、端末を再起動すると、変更が適用されます。
以後は、管理ツール内にできる [ThumbnailSize Settings] を使い、何度でも設定変更可能です。


まぁ、スクリプトベースの"なんちゃってGUI"も、インストーラ仕立てで なんとなく様になってて、
この程度仕上げてあれば、なんとかまだ、使い良いほうかと･･･

･･･って、ホントは VB2k8でスライダ使った仕様のを用意していたのだが、
結局同時期に、途中のまま放置されていると云う事実もあったりww


なにせ 一度設定してしまえば要らないモノなんでねぇ、そりゃモチベーション揚がらない罠(´ﾍ｀；)－－－－－
今年夏に発行されたばかりの、RAW Thumbnail Viewer2 な、サイトから消えてるw
やっぱりExif取得失敗バグの修正、容易には出来なかったか･･･

あと、RAW Thumbnail Viewer のほう、DLサイトはEnglishのみなのだワ、コレが。
それに、同画面には、"Download Trial" とあるが、無償ツールだ。
疑うなら コチラを観てもらえば判る、一覧中の このアプリには、購入ボタンはナイのだよ。
＜そのまま使えるVBscript インストーラ仕様w＞

この呪いは･･･

Ｆ１５水平尾翼の一部落下、けが人なし　福岡・築城基地 - asahi.com  [ 20091129 1500 ]
Ｆ１５の尾翼落下、築城基地航空祭で曲技飛行中 - Yomiuri Online  [ 20091130 ]
航空祭帰りのツアーバスが出火、全焼…九州道 - Yomiuri Online  [ 20091130 0059 ]


･･･おきつねさまのせいじゃないんだからねっ!ヽ(*≧д≦)ﾉ

ふっ、思わずｼﾝﾃﾞﾚ入っちまっだぜぃ ┐(;´д｀)=3┌このヘンでは、一寸前から雨が降り出してる。

きっしょちょ～のNowCast画面▼を診るに、



築城辺りも そこそこキてるとｵﾓﾜﾚΨ(｀∀´)Ψ

意外(いが～い)♪･･･

以前ココでも紹介した 統合アーカイバツール EXPLZH


ZIP/RAR/LZH/ISOなどあらゆるファイルの解凍・圧縮が
一発でできるようになるフリーソフト「Explzh」 - Gigazine [ 20091128 2155 ]


Gigazineでは、もう とっくに記事になってるモノだとばかり思っていたよ(´ﾍ｀；)

しかし EXPLZH、あのユーザビリティは他の追随を許さない。
他の大手アプリケーションベンダ、見習え!!


･･･MSﾃﾒのコト云ってんだよｺﾞﾙｧ!!! 凸（￣ヘ￣）

航空自衛隊 築城基地･･･

本日濃ゆメの曇り。 ･･･こんな微妙な天候に日に ご近所の基地で お祭りとかw　





このテのイベント、おきつねさまが逝かないトキには、曇りか雨と相場が決まっているのだΨ(｀∀´)Ψ

･･･ココ数年、決まって この時期になると、身内のｺﾞﾀｺﾞﾀでｼｺﾞﾄもナイのにドコにも逝けない事態に(;_;)

昔は航空祭 他、良く廻ったなぁ(遠い目)　･･･ケド、TVCMなんてのは初めて観たよ(^_^;)
コチラでは、結構前からCM打たれてた、あるイミ必死感ｱﾘｱﾘw　去年来場者少なかったか？ 不況の影響トカでww 

もしかして、９月の芦屋のトキとかにもヤってたのかな、カナ？


－－－－－
記念切手出したり、CM系では広報に力入ってるケド、後者に至っては どローカル局放映CMなワケで、
全国区的に集客を考える場合に、一番照会利用率の高いハズのWebサイトが、以前よりショボくなってる。
あのﾁｰﾌﾟさから推すに、管理者、りんご使いカモ(-_-;)

－－－－－
しかし、なにやら規制だらけになってる･･･　交通規制、前日からあるトコも･･･(-_-;)

脚立ダメって、ソレ ドウよ？　そもそも座席など無いイベントではイス代わりでもあるし、
ｼﾞﾓﾋﾟが、思わぬ大きさのを持ってきて上に座ってる様ナンてぇのは、
あれだけでもう、風物詩みたいなモノだと思うし、やっぱりナイとナンかねぇ･･･(´ﾍ｀；)

その上、三脚もダメって･･･　なんか一番肝心メインの客逃がすようなコトしてるのが、全く理解の余地がナイ。
つか、腕に因っては うっかり長玉撮影出来んぞww

で、ペットもか･･･　まぁ確かに邪魔なんだが、ソコはソレ、祭りなんだしなぁ･･･ 
ココらヘンは 開催／参加側共に、米帝基地イベント視察してきて おべんきおｼﾛ!! ってカンジ ┐(´_｀)┌


･･･って、いずれも持ってないか、飼ってない おきつねさまには無関係だけどw
あ、月撮影用の玉を使うとしたら要るかな、三脚･･･

端末から・・・

・・・メールでうpしてみた。
　
先のケータイからのうpで判ったのだが、ケータイからでもHTMLをチョイと打って
うp出来るのかと思ったら、サにあらずだった(´ヘ｀；)
　
１行の文字数も、改造前テンプレートの幅しか容認しないらしく、
勝手に改行されてしまう始末・・・
　
しかも、ココのテンプレ、本文ケツに改行３つ入れないと見た目が辛いのに、
空の改行は、行間に挟んだモノすら、トリムされてしまってダメだった・・・
(全角空白１つと改行で問題回避)
　
ラベルも入れられない・・・
　
元々無かった機能だし、仕方ないのカモ知れないが、
他ブログのシステムと比較すると、随分脆弱で使い勝手が悪い・・・
　
やはりブログだけは、国内鯖のほうが、
数段上を行く多彩で使い良い機能満載のサービスが多いことを思い知らされる・・・
　
移行もメドイんで、Blogger自身に精進願いたいモノだ・・・(-_-;)
　
　
　

ケータイから・・・

・・・うpしてみた。
　
　
　

ムダなコトを･･･

自民が党名見直し、新綱領も検討　新基本理念の原案 - 西日本新聞 [ 20091125 2047 ]

どう繕っても、クソは糞。

未だ･･･

･･･愚かなサル共は気付いていないのか？

The Healthy-Healthy2 驚くべき心臓移植手術の話～
『Girl's heart heals itself 10 years after transplant』 - マイコミ [ 20091123 ]


▲なんてぇレベルじゃナイ、チョイと考えればガキでもスグに答えが出そうなくらいに
簡単で確実な治療法があるというのに･･･　人間って やっぱバカか知らん(´ﾍ｀；)


まず このテの病で、通常の薬物治療で問題となるのは、排除したい病変へのアクセス。

対象部位に対し確実に利く薬も、他の臓器へは毒でしかない場合が殆どと云える。
カテーテールなどの施術などで効果もあるが、結局副作用を最小限に抑える程度。
しかし、他の処方では対策が取れないとかでは、さて どうするか？

対象臓器を摘出、で、臓器移植･･･ 否、臨時なので他種生物のでも充分、豚とかのな。
で、摘出した臓器のみ、生体環境を模倣した外部機材にて治療し、完治したら体に戻す。
この場合、副作用の殆どを無視して適宜薬物を利用できるワナ。

外部治療中だけ免疫抑制していればいいし、移植したのが機能しなくなってきたら容易に差し替えが利く。
元の臓器を戻したアトには、余計な薬は必要ない。
(後々死ぬまで薬代をボッたくりたい薬物メーカーにしてみれば迷惑なのかもなw)

ﾁﾝﾀﾗ 且つ、患者を苦しめながら治療するなんざ、極めてナンセンスと云えよう。
(治療モノのドキュメントとか観てるとツクヅク思うワ)


･･･云うて、コレとて、おきつねさま的には、間に合わせ技術ではある。
癌などの場合、転移が無いことが大前提となってしまうからな。
って、今の技術水準下で、口外にして支障のない最高位の術式でもある。

ツマるトコ、更に上が有る訳だが、ソレらに至ると、医療技術なのか兵器なのか、
使い手によって随分と認識分かれちまうブツだし、
んなモノ、居もしないモノを随分と有り難そうに崇拝している人間みたいな、
進化レベルも精神水準も低い生物に持たせるコト自体が、この上なく危険とも判断できる。

ま、別段、おきつねさまが無能な人間なんぞに手を貸さねばならない云われもナイしな ┐(´_｀)┌
精々苦しんで辿り着くが良い (←王様風)


つか、聞かれた訳でもないのに、ヒント撒いちまう おきつねさまも、
ひまつぶしココに極まれり感ｱﾘｱﾘだな･･･(´ﾍ｀；)


って、おきつねさまが いい加減呆れて人間滅ぼしたくなったら、データそのモノを撒くかもねw
尤も、ソレで滅亡選ぶか、更なる繁栄を得るかは、真に人間次第ってワケだが、
バカで無知なテロリストなども多い昨今、間違いなく滅ぶだろう と
ほくそ笑んでいる おきつねさまがココに居るΨ(｀∀´)Ψp.s.
マイコミの記事ネタな、随分前に他サイトで読んだ記憶がある、多分Gigazine辺りな希ｶﾞｽ･･･
AFPかな、カナ？(´ﾍ｀；)

もみじ･･･

登山の男女２人遭難か「紅葉狩りで迷った」と電話　宮崎 - asahi.com [ 20091124 0018 ]

･･･狩るつもりが野生動物のエサに。
なんてコトにならないよう、装備すべきモノには金掛けろっつーコトだ。
今は知識足りてないシロウトでも使えるGPSユニット安く売ってる。

まぁ今の時期、本格的な冬に向け、生き抜くために蓄えに勤しむ動物も多い。
それらに、喰われたければ勝手にしろΨ(｀∀´)Ψ


しかし、「紅葉狩り」で 思わず吹いた おきつねさまがココに居る。


･･･ちっ ＜ 200911252245 Update ＞
＜山村･･･＞

山田クン･･･

･･･非常口に座布団１０枚! ってコトですよねw(^_^;)

非常口の前に座布団、防火管理調査へ　居酒屋火災 - asahi.com [ 20091124 0315 ]


"焼き鳥焼いてもヒト焼くな～" ってコトでもあるよね～ コン・が・りとww
＜"焼き鳥焼いても店焼くな～" が正しいかな、カナ？＞

にほんのらくじつ･･･

デカい企業や大学に入らなければ、高度な開発は出来ませんよ ってぇ 社会と国家のあり方が、
そもそも大きな問題と云える。
･･･つか、底辺支えられないで、ナニが技術立国だが ホント笑わせる┐(´_｀)┌

コレも間違いなく経団連の犬共たる前政権までの垢である。
さて、コン政権は、コレら綺麗に払拭できるのか？ 大掃除のお手並みや如何にw


･･･そ、云や、世界一がドウの 廃止がドウのって話題になってたアレな、ムダだらけだから(断言)
国から湯水の如く絞り取れるので、メーカーも吹っ掛けられるだけ吹っ掛けてっから あんな額になる。

開発段階から、省ける部分は省かないと、昨今に於いては無意味と云える。
低消費電力、省スペース、メンテナンスレス、低価格を実現できないのなら、
高度な開発など何ら意味を成さないコトに気付けﾎﾞｹ共!!

箱モノ用意してまで環境整えて設置しないと使えない軟弱な機材など、もう必要ない。

維持費とかにしても実際は、高価なプロセッサが(バグで)壊れたら、
コソっと差し替えるとかしてるのは間違いないだろアレ。
･･･真空管時代かっ! と、某お笑い芸人ﾖﾛしくツッ込みたくなるワな、あんな額提示されたら。


ってもなぁ、某工業大学模倣して海外製機材の寄せ集めしまくっといて、
"国産スーパーコンピューターです" とか云われた日にゃ、笑えないのも事実ではある(´ﾍ｀；)
そのヘン、純粋な国産って意味で考えるに、Fujitsuが うっかりSPRAC石でソレやっても 充分恥ずかしい希ｶﾞｽ･･･
アーキテクチャも含めて全て国産とか云い出したら、
今、そのヘンで気を吐けるのって、国内だとT芝くらいしか残ってないんじゃ無かろうか？ とか、
T芝ギライの おきつねさまをして、そう思う昨今･･･(´ﾍ｀；)

自国開発ｼﾛ!!･･･

次期戦闘機にF35採用へ、40機購入で調整 防衛省 - AFP BB [ 20091123 1535 ]

国防と云う重要点を、米帝製品なんぞに頼りきりだから、
いつまで経っても安保切り捨てられないで、米帝は云うに及ばず、中朝にすらデカい顔されるんだよ･･･

判んないかなぁ～ 判んないだろうなぁ～ 黄色い犬猿の寄せ集め国家風情にゃ┐(´_｀)┌

もしかしたら･･･

都内の銀杏が見ごろ - AFP BB [ 20091123 2316 ]

･･･便所でお尻を拭く会長が居るのでは？
と、写真を隅から隅まで診てしまった おきつねさまがココに居る･･･(^_^;)

ぢつにジコ厨･･･

妻子殺害容疑、「心中図った」と自首の夫を逮捕　兵庫 - asahi.com [ 20091124 0012 ]

･･･且つﾉｰﾐｿ厨房以下の発想でヒトの命を見ているとしか云い様がナイ事件だ。
つかアレかね、自分の家族は自分の"モノ"程度にしか意識してなかったんだろうな、ｺｲｼは。


ネクタイで夫を絞殺容疑　逮捕の妻「夫婦げんかで逆上」 - asahi.com [ 20091124 0034 ] 
コチラも、被疑者の供述を信用するなら、結局殺られたﾔｼの身勝手が生んだ悲劇と云えよう。


この系の事件は、得てして精神根底からのｲﾅｶ者か その複製品たる２世３世が起こしやすいモノだと、
データ取ればスグに判るハズだが、そんな酔狂な調査はダレもやってないようだ(´ﾍ｀；)

今となっては･･･

たまたま ウチ鯖の にじ蔵見てて、久々に見た画像見てフいた。

結局、

な、こと云ってたから



な、経営状態になったんだろうなぁ、あの会社･･･(´ﾍ｀；)


とか、ふと過ぎってw

朗報？･･･

おきつねさまも随分昔に購入して未だ使ってる、ちょ～オススメのアーカイバツール Explzh 
本体やDLLの自動更新やコンテキストメニュへの統合機能など、利便性が極めて高い。
動作は軽量級なので、骨董端末利用の向きでもストレス無く使えている。

解凍するコトなく、事前にファイルの一覧のみ取得できる構造になっているので、
おきつねさま環境では、不正自動解凍書庫の判別にも活躍している。(セキュアアプリとの連携も可能)

CDイメージ(.iso)の閲覧／展開も出来るようになっていて、仮想ドライブアプリを煎れたくない機材では重宝する。


で、さっき更新が表示されたのでアップデート済ませ、久々に公式サイトを訪問･･･
何時の間にやらリニューアルしてたw

ぢつは このアプリケーション、
以前は完全なシェアウェアだった為、知り合いとかに薦めるのにチョイと難だったのだが、
なんだか知らないウチにライセンスの扱いが変わってた。

　　Explzh for Windows のライセンス形態


要約すると、個人利用の場合に限り、フリーウェアとして使用できるようにしてくれたらしい。
でも、プロの作家さんとかは、SOHO扱いになると思うので注意が必要だろうw

まぁ、やたらと高価なモノならイザ知らず、あの利便性をして商用／法人利用でも税込みで 1050円･･･
(以前は)手持ち機材複数台導入しても追加アカ購入は必要ないって云われたし(一般での利用だったから？)、
せめて このくらいは、個人でも購入して使って欲しい希ｶﾞｽ･･･(´ﾍ｀；)


　　・ Explzh for Windows 公式サイト
　　・ 窓の杜 -Explzh-