生きながらにして･･･

･･･逝っとるなぁ

１７キロ逆走「ここはどこね」　九州道で７９歳女性 - asahi.com [ 20100118 2258 ]

･･･巻き込まれが無くて良かったよな･･･ としか云えん(´ﾍ｀；)
自動車道路のみに重点を置いた地域の開発ってぇのの結末が、ココに集約されていると断言できるな ┐(´_｀)┌


以前にも述べた、コレに関連した持論･･･

＞ Motorizationで 地方の地域社会が廻るのは、都市の人口構成が若いウチだけ。


を、導き出したロジックの基準に、新たな情報を追加して改めて鑑みるに、
ぢつはソレさえも、極めて楽観的な思考だったと断ざるを得ない。

つまり、それらは、関東／関西圏クラスの都市にのみで有効な手段であって、
昨今の如く疲弊しきっている地方都市の場合、尽く効果を表すコトなく、
衰退から そのまま終焉に至る可能性が見えてきたのだ。


おきつねさまはキホン的に、現在の道路メインの都市開発の発想には否定の立場だったワケだが、
ソレでも、高齢者の割合が低ければ まだ、地方都市と云えど、その手法での地域活性化が、
それなりには見込めるのでは？との希望も、若干は持っていた。

しかし、解析結果は惨憺たるモノで、現在の地方都市に於いては、まず実現不可能な条件が提示されるコトとなった。
その最大の難関が 主要構成年齢･･･ 20代かソレ以下でなければ、幾ら道路の開発を行い、
大型産業を呼び込もうとも、近い将来の衰退を止められない可能性･･･ 
否、確実に衰退に向かうであろうコトが、明白。

つか、年齢云々と云う以上に、元々の住民を蔑ろにした行政や開発では、
どんなに優れた産業や観光資源を有していても、有効に生かされることはまずナイ点が大きい。

当然だが、自然な世代交代により、そのまま構成年齢だけ下げたとしても、この場合全く意味を成さない。
年齢帯域問わず、充分な市民サービスを提供できる行政や企業の体質を構築できなければ、発展はナイのだ。


因みにソレに関連して、ココでは以前から、開発の重点に鉄道押しな記述も多くした。
しかし それは、分担としてソレが必要なのであって、ソレが全てではナイ点をしっかり理解しておく必要がある。

具体的には、現在この地域、全国でも稀に見る重複路線での潰し合いをしている。
全く以ってナンセンス、無駄の極みと断ずるべきだろう ┐(´_｀)┌
コレを即時に止め、JR－私鉄(鉄道)－私鉄／バス の明確な棲み分けを計画した上で、
新たに開発を進めるべき と述べているのだ。

現状は･･･と云えば、田舎モノのイヤらしいトコロばかりが前面に出た、どうしようもない経営が成されていて、
地域路線を構成する上で、協力している要素が微塵も見受けられず、ぢつに 見苦しい限りの有様である。
確かにそれで、地域が潤滑に廻っていれば然して問題はナイのだろうが、
時代はもう、ソレを許さない事態である と、中央／地方問わず、そろそろ気付くべきだ。

まずは明確に棲み分けるコトから始められれば、互いが協力し合う関係が自然と生まれ、総じて業務の効率化も可能。
また、それによる地域へのメリットは、恐らく、どんなアナリストの解析結果をも上回る効果を得られるだろう。

つか、関東圏をじっくり観察すれば、誰でも そのくらいの結論は、容易に見出せる筈なんだがねぇ･･･(´ﾍ｀；)
･･･っても、表向きの見た目だけ猿ﾖﾛｼｸ模倣しても成功はない、少しは考えてウゴけと云ってるのだよ。


つ～か、考えるのがイヤなのなら、知的生命体辞めてしまえ! バカは要らん。


･･･っても、どうにもﾉｰﾐｿ糞イナカ者のままでいたいつ～んなら、まぁ、好きにするがいい。
その場合 おきつねさまは、滅び逝く愚民共を高みの見物～♪ と シャレ込むだけだしなΨ(｀∀´)Ψ－－－－－
思うに、関東圏で活動している地方出身著名人なんかも、似たような目線で地元を見てる場合は、
里帰りとか まずしないだろうね、もう見限っててw

ﾀﾞﾒﾀﾞﾒ～♪･･･

ドコモが一時通信障害　関東地方で最大１８０万人に影響 - asahi.com [ 20100118 1839 ]


あの糞グループは逝ってﾖｼ。
ま、キャリアは、禿か猿か潰にしとけ ってコトやねΨ(｀∀´)Ψ

ほぼ役立たず･･･

家は決まっても職探しはこれから　東京の「派遣村」終了 - asahi.com [ 20100118 1127 ]


"年末に死人に出られるとﾏｽｺﾐ他で叩かれるので、とりあえず、年末年始だけは生かしとくしかねぇなぁ･･･"

役所の人間の発想など、得てしてソンなモンだろw　アレは結局「偽善村」ってのがホントのトコだな。
所詮NPOがやってるのとは、志の水準が違いすぎる罠･･･ ┐(´_｀)┌

平和ﾎﾞｹ国家の聞屋って･･･

ハイチ大地震：遺体の山、尊厳なく　廃棄物に交じり - 毎日.jp [ 20100118 1211 ]


"尊厳なく"とか云ってられる状況なのか、ちったぁ考えろ。

つか、そもそも、死になんてぇモノに 下らぬ精神性を感じてるって時点で既にバカ臭い。
死体になっちまったら産廃だろ、アカの他人にしてみれば(断言)

ソレを否定する輩は、得てして 偽善者か、
御大層な口上宣うて、無知なｲﾊﾟｰﾝ人を欺き煽動する宗教屋くらいだ。
総じて死人に群がって商売してるような連中は全てコノ類に該当する。

国内に目を転じて論じるなら、墓なんてぇモノの為に、
森林破壊してまで無駄な空間浪費してるって時点で、理解の価値を感じない。
しかも、霊園などヤってるﾔｼらの大半が、税金対策だっつ～から腹立たしい。

大体、"知的生命体"名乗るってぇのなら、
宗教とかに騙されない程度にくらい、精神進化してクレよ･･･ ┐(´_｀)┌

ソレすらも出来ないのなら、もう逝ってﾖｼΨ(｀∀´)Ψ

うわぁ･･･ ( ; _ ;)

千葉県警木更津署刑事１課長、女性フィギュア盗んだ疑い - asahi.com [ 20100117 2022 ]


つか、給料幾ら貰ってるかは知らんが、喰いっぱぐれのない公務員、6.5kの商品くらい買えるだろ･･･(´ﾍ｀；)


＞「魔が差してしまった」
今まで発覚してなかっただけで、ホントは常習犯なんじゃないの？ ┐(´_｀)┌


＞ 殺人や窃盗事件を担当する刑事１課長に就任
こんなﾔｼでも(←むしろ "だから"？w)、公務員にはなれるっつ～典型っスねΨ(｀∀´)Ψ
＜ 窃盗 楠見和彦(42) 千葉県木更津市潮見４丁目 フィギュア盗 茨城県神栖市 リサイクルショップ ＞

ヒドかぁ (←博多弁で)･･･

おきつねさまは、その方言の地区とは全く縁がない。
ツマるトコ、同県内でも方言錯綜しているのが、FUKという県だ。


ＳＵＧＯＣＡ　ヒドいカ－ド？　ジュース１本８９８３円
設定ミスで誤徴収　博多駅、ほかに２件 - 西日本新聞 [ 20100117 0620 ]


ヒドくてSugoca～ ってコトですネ～♪ 流石クソ田舎ww

しかし、しRグループも非効率極まりない、東日本のSuicaをそのまま採用してしまえばイイものを、
わざわざコストと時間を浪費して出来上がったシステムが、その始末･･･ ┐(´_｀)┌

大体、記事のしR九州のICカード、ネーミングとキャラクターの不細工さで、
全国中 群を抜いていると云うのも痛過ぎる点だ。
ココで散々酷評の対象としてきた西日本鉄道のほうが、断然センスが良くて、マスコットも かぁいいので、
極めて対照的と云える。

コチラに撤収しても、Suicaユーザーな おきつねさま。
もし、地元カードを選ぶなら、企業としては毛嫌いしている にしてつのNimocaを選択するだろう。

一眼デジカメをラクに･･･

･･･持ち歩く。　コレが意外に鬼門なのだ(-_-;)

そもそも 

おきつねさまは、首にナニかを掛けておくのは大キライだ。･･･どうにも落ち着かない(´ﾍ｀；)
なので、デジイチも常時手持ちしていて、付属していたストラップは使っていなかった。

･･･が、常に、PowerGripにバッテリ２個、玉も17-70か70-300の何れかが付いてる状態である。
実際のトコ、かなり疲れる、悪くすると腱鞘炎になりかねないホドに(-_-;)

確かに昨今のカメラは、

軽量高強度なエンジニアリングプラスチックやマグネシウム製のモノが多くて、非常に軽い。
レンズも、昔のアルミ削り出し製品を思い返せば、その重さの比は、天国と地獄と云っても過言ではない。
しかし、いくら軽くなったとは云え、長時間ガッチリ握って街を往来するのは、慣れても結構ツラいのが正直なトコだ。
とは云え、軽すぎるカメラはキライなので要らない･･･

以前にも記述したが、

おきつねさま、35mmフィルムMFスチル機から入って、３板ビデオカメラに移行した後、
デジタルとは云えスチル機に先祖返りした身、その点云えば、正直、Vの楽さは忘れられない･･･

業務機ですら、手持ちするのにグリップを握っている必要はないトコロは特筆に価する。
ソレは、民生家庭用Vカムでも御馴染み、"グリップベルト／グリップストラップ"のおかげである。

一眼レフカメラには、

元来この手のアクセサリーは存在していなかった、写真の場合、撮影向きを通常(横)から縦にして撮影するコトが頻繁で、
もし、そう云ったアクセサリーがあっても、結局ジャマになるから、総じて需要が無かったのだろう。

そんな折、

KONICA MINOLTA から Sony配下のブランドとなってしまったαシリーズで、
その既成概念を覆す(無視した？)が如き商品が、アクセサリーにラインナップされ身震いを覚えたものである。

･･･って、この買収劇自体は、製品クオリティを危惧するwイミで議論は分かれたが、
カールツァイスレンズが使えるようになった点など、評価が高い点も多い。
しかし、おきつねさま的には むしろ、如何にも古参Vカムメーカー的発想で
グリップベルト STP-GB1AMを投入してキたトコロを大きく評価したい。

その後、廉価版 STP-HS1AM も発売されたようだが、
コレのラクさは、Vカムサイドの人間にしか判り得ないモノであろう。

"重くて嫌なら一眼なんぞ使ってんなよ"って意見もあろうかと思う、が、
もし、可能なら少しでもラクなほうが･･･と考えるのも また然りでもあり、
Sonyのソレは、ソレら欲求を十二分に満たすモノであるのだ。

しかし、Sonyロゴの付いてる商品をSIGMA機につけるのは、著しく おきつねさまポリシーに反する。
無地で出してくれれば、間違いなく飛びついたのだがねぇ･･･(´ﾍ｀；)

その後ほど無く、カメラのアクセサリサプライとしても著名なHakubaからも、
汎用の向きでグリップベルト発売された点からも、やはりそう云った声は少なくなかったのだろう。


しかし、それらも無視して今日、

ついに全く異なるアプローチで策を講じるコトとした。

そもそも、

ドコのメーカーのカメラを買っても、ネックストラップ１本くらい付いてくるだろう。

SD14も御他聞に洩れずだったワケで、しっかりSIGMAロゴが入っていて、見た目は気に入っている。
しかし、冒頭に述べた通り、全く使っていなかった･･･ 今回はコレを加工して利用するコトにしたのだ。

･･･っても、大して凝った作業はない、事務用ホールパンチで最適位置に穴を開けるだけ(爆)。

但し、この方法には、満たすべき２つの最低条件がある。

そにょ１～
　パワーグリップ PG-21 必須で、常設であるコト。
　コレは、SD14のコンパクト化に因る代償として、必然的にグリップの高さが低くなり、掌の幅に満たない為。

そにょ２～
　三脚の雲台(うんてい)用にホットシューを常設しているコト。
　コレを利用するコトに因り、ストラップ幅を生かして、しっかり固定し、且つ 充分な強度を確保できる。
　他にもヤりようが無い訳ではナイが、この手法が、最もラクと考える。

おきつねさまは、

 Velbon PHD-51Q　　　　　　　　　　　　　　　　　　　　QRA-35Lシュー 
 を使っていて、 を常設していたので、

まずコレを一旦ハズし、このシューのネジを、ストラップの穴を開けた箇所に通し･･･
再度 シューごとPG-21に固定した･･･

アトは、本体ストラップ固定金具に、▼のように固定して完了･･･

たったコレだけで、コストも 労も要するコトも無く、純正グリップベルトの完成～♪


･･･って、なんて手抜き(^_^;)

被写体が唯一所有するカメラなだけに、今回のログ分だけケータイのカメラで撮影するしかなかった･･･
ただ判ったのは、撮りにくいのなケータイカメラって･･･ 色も(思い通りに)出ないし(-_-;)




＜ SIGMA SD14(一眼デジカメ)をラクに持ち歩く･･･ ＞

随分猛々しいな･･･

石川議員逮捕　鈴木宗男氏「異常としか言えない」 - asahi.com [ 20100116 0115 ]


ｵﾏｲﾗみたいなのが、国の運営に携われるコトのほうが「異常としか言えない」┐(´_｀)┌

このマシン見てふと･･･

シューマッハ GP2のマシンでテスト走行 - AFP BB [ 20100113 1156 ]


･･･気付いたのだが、今となっては大抵のF1車両に、複数のHDオンボードカメラが付いている時代である。
なのに どう云う訳か、空力考えたらジャマな突起でしかないバックミラーが未だに付いているのが既にｲﾐﾌ･･･

どうせカメラ積むなら、ピットやプレス向け画像取得よりも、パイロットへの情報増強に使うほうが有効だ。
"そのついでにプレスへデータを分ける" と云うカタチの方が、まだ理に適っている。

つまり、７インチ程度のLCDモニタをコックピットに配し、
リアビュー向けカメラの映像を表示するよう構成したほうが、パイロットの負担も遥かに減り、
且つ、サイドミラーが省けた分の空力特性改善が可能なのだ･･･

まぁレギュレーションの縛りもあるだろうから開発陣を一概に断ずるのは あまりに乱暴だろう。
ならば、規格のほうを時代に合わせたものに改善していくべきではないだろうか？

ソレでなくても、"GPはパイロット同士の戦い" とか欺瞞の賜うて、
EU陣に不利なテクノロジーは尽く排除した結果、米帝陣営からは総ｽｶﾝ喰らい、
日本では、観るのもつまらない と 悪名高いスポーツの代名詞と成り下がったF1･･･

本来ソレは、カテゴリを問わない技術力勝負の大舞台だった。

だからこそ、出場車両メーカーにとってもメリットがあった筈なのだ。
そして、それら自国メーカーの活躍には、肩入れもしたし、その浮き沈みに一喜一憂できたからこそ楽しめたのだ。

そろそろ、各国の観客も、自国チームと一丸となって楽しめるような、
面白い仕掛けを各自工夫できるようなレギュレーションであってもイイんじゃナイのかね？

つか、いい加減EU陣営本位な考えを捨てないと、F1なんざ、全く見向きもされなくなるやも知れんな･･･
いい加減危機感持てよFIA ┐(´_｀)┌

どうしようもなく･･･

「妊娠されたら困る」元准教授発言　東大で「アカハラ」 - asahi.com [ 20100113 0450 ]


･･･クズいﾔｼらが教授とか准教名乗ってられるウチは、この國に将来などない(断言)

ま、60にもなって"准"なんだから、結局ロクな研究もせず、
大した論文も書かずに、ただソコに居ただけの糞MoratoriumだったんだろうよΨ(｀∀´)Ψｹｹｹ＞ 元准教授の性別や所属の詳細は「被害者のプライバシーへの配慮」を理由に明らかにしていない。
ムダな配慮だコト┐(´_｀)┌ 　どうせ今頃、2chで実名やら曝されてんだろうにw

ぢつのトコロは役立たず･･･

消費者ホットライン：全国運用始まる　共通番号で被害相談 - 毎日.jp [ 20100112 1129 ]


随分と鳴物入りなようだが、IPTELからは掛けられないとかヌかしてたぜ (# ﾟДﾟ)
流石クソ国家、使用回線は 元国営企業じゃなきゃ対象外ってワケだ。

つ～か、互換システム組むのに 今時そんなに手間はないよな？
IPつったって みかかクオリティ満たしてるトコなんて幾らでもあるしな!

しかし、ソコまでしてまで使い物にならない固定回線の被害者(ユーザ)を
増やしたいのかね みかか共･･･　ホント、サモしいねぇ


で、無知な愚民共は、その(通話)品質が使い物にならないコトに気付いてねぇしな･･･

そもそも サンプリングレート11KHzってナニ？クソ過ぎなんだよ!!
そんな回線の電話で声聞いて、一体どのくらい 相手を正しく識別可能だと云うのか？ 

･･･そりゃ犯罪の温床になるハズだワな ┐(´_｀)┌

こんな低水準が続いて逝くっつ～んなら、
犯罪防止とかでやってるネットワーク内情報取り締まりより、電話回線傍受のほうが先だろ!


本来、今の技術水準基で考えるべき品質のBorderLineは44.1KHz(CD音質)だな、電話と云えど･･･
ソコまでヤれば、オレオレ詐欺は まず成り立たん(断言)

帯域消費に一考の余地のあるワイヤレス(無線)基な ｹｰﾀｲに関しては、
半導体によるﾛｽﾚｽ圧縮CODECの適用などで、データサイズを抑える必要があるが、
ワイヤードな固定回線やIPTELでなら、その心配もナイ。

総じて 技術／コスト共に問題とならなくなった昨今において、
音声通話の品質が旧態依然とした水準では、"音声通信キャリアは犯罪天国"と呼ばれても、
反論する術など微塵もナイだろう。


･･･つかよぅ、あのグループのCM観る度ムカつくんだよな、
ネットワークテクノロジ発展の足引っ張りまくってた企業のクセしやがってよ!
低品質でボッたくり、将来性のあった通信新興企業ツブしまくって、顧客の選択肢と利益を奪い続けてきた。

都内だけでも、過去、少なくとも２社は意図的に潰された、そのウチ１つは ADSLの先駆者だ。
あの当時 みかかは高価で(今となっては)低速な光回線を展開しつつも苦戦していた、
会社で使うにしても、費用対効果の悪すぎる回線だったと断言できる品質だった。
そんな、自社での努力では低価格化の難しかった光回線普及を一旦棚上げにした状態で、
ADSL回線事業に無茶な低価格で参入し、"東京めたりっく"を、潰した。

それ以前にも、1990年代中頃、東京は文京区に、いち早くワイヤレス公衆LANを手掛け、
広めようと頑張っていた小さな企業があった。
一部ヘビーなネットワーカーからは、早期のサービス開始を熱望されたモノだが、
そんな小さな芽さえも、みかかは無慈悲に、周囲からじわじわと真綿で首を絞めるが如く抹殺した。
その後、極昨今に至るまで、ワイヤレス公衆LANが実現しなかった経緯の発端と云っていいだろう。


ｲﾊﾟｰﾝ人共よ、もうそろそろ、元国営企業にロクなトコなどナイと知るべきだ。


テメェのサービス水準の低さを、財力だけで誤魔化し、企業の図体のデカさだけ、
ムダに誇示し続けてきただけの元国電電なんざ、とっととツブれちまえっつ～の!!Ψ(｀∀´)Ψおきつねさまは永劫忘れない、巨悪に真っ向勝負を挑み、遭えなく散った 志高き先駆者の姿を･･･

呆れるワ･･･

徴収金の滞納、生徒にバイト勧めて回収　鳥取の県立高校 - asahi.com [ 2010019 0430 ]


確かに、授業料払ってないのは問題なのだが、だからといって生徒に勤労強要するってドウよ(´ﾍ｀；)

そんな発想にしか至れない教師ばかりのガッコなんぞに いくら通ったトコロで、
ロクな人間には育たぬな、間違いない! (￣ー￣)ﾆﾔ


そもそも この駄国の場合、根本がオカしくて、その中でも最も判り易い例が、奨学金制度。
実際、ナニが"奨学"だかねぇ･･･　先進国家では殆どありえない 貸付 って時点で、
教育に力入れる気ナイのを、海外に曝してて御寒い限りだよな。

そもそも この不況で就職難な時代に、卒業して働いて返せって、ムリだろ？

しかも、程度の低い教育体制下では、全く即戦力にならない、
飼い犬並みに従順なのが唯一の取柄ってな人材ばかり排出する だけ が取柄の
教育制度なんぞ、まぁ使えねぇ、余りに無様過ぎるワ ┐(´_｀)┌

ロリ巫女ｷﾀｰ(>_<)･･･

･･･などと云う品もクソも無いタイトルを付けてみたくなった おきつねさまがココに居るw


小学生巫女、七草祭で奉納舞　伊佐市の八坂神社 - 南日本新聞 [ 20100107 2230 ]っても、最近は"ロリ"の定義が微妙なようで、更なる低年齢化が危惧されていたりするので、
このくらいの娘さん達は、コトによっては対象外になってしまうヤも知れん(´ﾍ｀；)

昔"ロリ"っつったら、大学生辺りがソレだったと聴く。
(某局ドラマ ハングマン1stSeasonとか、タイムボカンシリーズとかを参考にするなら･･･w)

･･･まったく、ニッポンの日暮は近いぜよ! (←ドコ人なんだか･･･)


つか 来年は、 某鷺宮神社でも、この仕様を適用されることを、激しく推奨しますw

アレが落ちてくると･･･

･･･どうなるのだろうか？　そんな疑問をさっぱりして解決してくれる事故が起こったようで(^_^;)


落下事故：静岡の神社で境内の鈴が落ちる　中学生が鼻骨折 - 毎日.jp [ 20100130 1922 ]はぁ～さっぱりさっぱり♪(踊)

アレ対応版･･･

前の版で困難だった、ネットワークドライブ／フォルダ上のファイルアクセスも容易にする為、
対象ファイル読み込み処理だけ、ADODB.Streamから FileSystemObject.OpenTextFileに差し替えました。

以前のログにも記述した通り、ADODB.Streamでは、どう処理の順序を変えても、
ネットワーク先からローカルドライブへ、無条件にテンポラリってしまい、
大量のファイルを連続処理するのはおろか、１つのファイルだけでも多大な時間を要していたのです。

で、今朝･･･ つーか深夜だけどw　夜通しでFSO版を試作してみて、その問題の解消に至りました。
やっぱり餅は餅屋、ファイルアクセスなら、DB向けオブジェクト使うより、FSOってコトですかね･･･(^_^;)
って、書き込みとかはADOのままですケドww以下はアーカイブです。

    X3FSIR.zip βReleaseArchive - 20100103 0739 launch -    
▲ を、右クリックしてファイルとして保存してください。


とは云え まだまだ、

　　　　　アクマで暫定版デスから。結局こんなん出ました～w

    '***** ↓↓↓ScriptTitle↓↓↓ *********************************************************     
        ' X3FSIR.vbs - X3F ShootingInformationsReader      
        ' FoveonX3 RAWファイルから、撮影情報を文字列として取得する。     
         
        ' - Created by LazwardFox -      
              
        '      
         
        ' Update -------- ----      
        ' Release      
        ' Update      
        ' βRelease      
        ' Update 20100103 0706 Source読み込み部のみ、ADODB.Streamから     
        '                       FileSystemObject.OpenTextFileに差し替えるコトで、     
        '                       ファイルへのアクセスを最小限化、LANファイルアクセス対応へ。     
        ' Update 20091231 1814 0byteファイルに因るエラーへ対策。     
        ' Update 20091231 0425 処理集約の誤りを修正。     
        ' Update 20091230 0315 複数ファイル指定に暫定対応。     
        ' Update 20091230 0130 撮影日時文字列化処理追加／テキストデータの範囲可変に対応。     
        ' αRelease 20091226 2150 単一ファイル取得版、データも内容のまま列挙。     
                                ' 日本語／最適化準備中。     
        ' DevStart 20091226 2040      
          
    '***** ↓↓↓ ObjectDecralations ↓↓↓ *************************************************     
        Option Explicit     
        Public My, Parameters, Fs, objADO ', MySh, objSMTP, objMx     
        Set My = WScript     
        With My     
            Set Parameters = .Arguments ' パラメーター取得      
            If Parameters.Count <= 0 Then ' パラメータなし起動の無効化      
                .Quit     
            End If     
         
            Set Fs = .CreateObject("Scripting.FileSystemObject")     
            Set objADO = .CreateObject("ADODB.Stream")     
            'Set MySh = .CreateObject("WScript.Shell")     
            'Set objSMTP = .CreateObject("CDO.Message") ' SMTP Object     
            'Set objMx = .CreateObject("MSXML2.XMLHTTP") ' URL Check      
        End With     
         
    '***** ↓↓↓ Decralations ↓↓↓ *************************************************     
        'Public ThisScriptFull, ThisScript, Start     
        Const vbWq = """"     
         
        ' Const - Letters      
        Dim vbWCrLf, vbTc, vbNullB     
        vbWCrLf = vbCrLf & vbCrLf     
        vbTc = vbTab & vbCrLf     
        vbNullB = chr(&h00)     
         
        ' Const - Date/Times      
         
         
    '***** ↓↓↓ LocalDecralations ↓↓↓ *************************************************     
        Dim X3FSet     
         
    '***** ↓↓↓MainRoutine↓↓↓ *********************************************************     
        'On Error Resume Next     
         
        'X3FSet = Array("X3F",, 264, 1500, "VERSION_BF", "BURST", "TIME", "1970/1/1")     
        X3FSet = Array("X3F",, 0, 1800, "VERSION_BF", "BURST", "TIME", "1970/1/1")     
        BPS Parameters, X3FSet     
         
         
        ' ----- ExitProcess      
        Set Fs = Nothing     
        Set objADO = Nothing     
        My.Quit     
         
    '***** ↓↓↓Functions↓↓↓ *********************************************************     
        ' X3FSIs      
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－      
        ' Binary Pickup to Strings      
        ' バイナリファイル中 範囲を指定し、任意の文字列群を抽出する。     
         
        ' - Created by LazwardFox -      
         
            ' Fs、objADO、cnvDateTime      
         
            ' Update      
            ' Release      
            ' βRelease      
            ' Update 20091231 1814 0byteファイルに因るエラーへ対策。     
            ' Update 20091231 0425 処理集約の誤りを修正。     
            ' Update 20091230 0315 複数ファイル指定に暫定対応。     
            ' αRelease 20091230 0300      
            ' DevStart 20091230 0200 X3FSIsを汎用用途向けに修正。     
         
            ' BPS (      
            '       arFileNames - 対象ファイル群配列。     
            '      ,arSet - 動作パラメータを、下記スキーマ準拠の配列で指定。     
            '      )      
         
         
            ' ▼▼ arSet Schema ▼▼▼▼▼     
         
            '     = Array(strEx, SaveFileName, StartBit, ReadByte, Firstkey, Lastkey, strTimeKey, BaseDate)      
         
            '    arSet      
            '        (0)    {strEx}         対象拡張子                      (String)      
            '        (1)    {SaveFileName}  保存ファイル名                  (String)      
            '        (2)     StartBit       読み取り先頭位置(Bit)           (Number)      
            '        (3)     ReadByte       読み込み範囲(byte)              (Number)      
            '        (4)     Firstkey       先頭キー名                      (String)      
            '        (5)     Lastkey        最終キー名                      (String)      
            '        (6)    {strTimeKey}    時間キー名                      (String)      
            '        (7)    {BaseDate}      時間変換基日付文字列("y/m/d")   (String)      
         
         
        Function BPS(arFileNames, arSet)      
            Dim kNothing, iADO, strTarget, Pc, fKey, rSource, rHeader, lHeader     
            Dim pResult, arResult, rUnits, sResult     
            kNothing = String(5, vbNullB) ' キーも値も存在しない範囲の、データ排除向け      
            Set iADO = objADO      
            For Each strTarget In arFileNames     
                If Fs.GetExtensionName(strTarget) = arSet(0) Then     
                    arSet(1) = Replace(strTarget,"." & arSet(0),".txt") ' ＜ 暫定      
                    Set rSource = Fs.OpenTextFile(strTarget,1)  ' 対象ファイルを読み取りモードで開く     
                    With rSource     
                        ' ファイルから指定範囲をメモリへ取得      
                        If arSet(2) > 0 Then     
                            .Skip(arSet(2)) ' 先頭位置をセット      
                        End If     
                        rHeader = .Read(arSet(3)) ' 指定範囲を取得      
                    End With     
                    Set rSource = Nothing     
                    With iADO     
                        If LenB(rHeader) > 0 Then     
                            ' Convert to PlainText      
                            rHeader = CStr(rHeader) ' 次処理に備え、文字列データ化      
                            rHeader = Replace(rHeader, "SECc", "") ' 無効キー排除      
                            rHeader = Replace(rHeader, kNothing, "") ' 無効範囲の消去      
                            .Type = 2 ' AccessMode - Text      
                            .Charset = "_autodetect" '"Shift_JIS" "Unicode" "utf-8"      
                            .Open     
                            .Position = 0     
                            .WriteText = rHeader     
                            lHeader = .Position ' 取得データ長      
                            rHeader = ""     
                            For Pc = 1 To lHeader Step 2     
                                .Position = Pc     
                                pResult = pResult & .ReadText(1)     
                            Next     
                            .Close     
                            arResult = Split(pResult, vbNullB) ' 配列化。     
                            pResult = ""     
                            For Each sResult In arResult     
                                If sResult = arSet(4) Or fKey > 0 Then ' スタートキー      
                                    If fKey = 4 Then ' 日付データ変換      
                                        sResult = cnvDateTime(arSet(7), sResult)     
                                    End If     
                                    rUnits = rUnits & sResult ' 値書き込み      
                                    ' ▼ 末尾符号／キー検出処理 ▼▼▼▼▼      
                                    If fKey < 2 Then     
                                        If sResult = arSet(5) Then ' 終了キー      
                                            fKey = 5     
                                        ElseIf sResult = arSet(6) Then ' 時刻値変換対象      
                                            fKey = 4     
                                        Else     
                                            fKey = 3     
                                        End If     
                                        rUnits = rUnits & "," ' キー末尾処理      
                                    Else     
                                        rUnits = rUnits & vbCrLf  ' データ末尾処理      
                                        If fKey = 5 Then ' 処理終了      
                                            Exit For     
                                        End If     
                                        fKey = 1     
                                    End If     
                                    ' ▲ 末尾符号／キー検出処理 ▲▲▲▲▲      
                                End If     
                                sResult = ""     
                            Next     
                            arResult = ""     
                            fKey = 0     
                            ' 指定ファイルへ書き込み      
                            .Type = 2 ' AccessMode - Text      
                            .Charset = "_autodetect"     
                            .Open     
                            .Position = 0     
                            .WriteText rUnits     
                            .SaveToFile arSet(1), 2     
                        End If     
                        .Close     
                    End With     
                    rUnits = "" ' ＜ 暫定      
                End If     
            Next     
            Set iADO = Nothing     
        End Function     
         
        '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－      
        ' cnvDateTime      
        ' 秒整数で構成された日時データを、Windowsシリアル値に変換。     
        ' 基準日の異なる値の変換にも対応。     
         
        ' - Created by LazwardFox -      
         
            '      
         
            ' Update      
            ' Release      
            ' βRelease 20091230 0300      
            ' αRelease 20091229 1635      
            ' DevStart 20091229 1500      
         
            ' cnvDateTime (      
            '               strBaseDate - "y/m/d"形式の日付文字列、基準日を指定。     
            '               ,SourceDateTime - Secベースの経過時間を表す整数      
            '               )      
         
        Function cnvDateTime(strBaseDate, SourceDateTime)     
            Dim sDate     
            sDate = DateValue(strBaseDate)     
            cnvDateTime = (((SourceDateTime / 60) / 60) / 24) + sDate     
        End Function     
         



＜ ファイルの一部へのみアクセスするなら、FileSystemObject(FSO) ＞

年明け直前に･･･

･･･CFアダプタを新調した。

200807に購入した ハギワラシスコム HPC-ADP01 が、
ベンチマーク採っても、CFのスペックを遥かに下回る転送レートしか出ない･･･
CFメディアの性能を "全く生かせない程遅い" と云う事実が判ったからだ。

また、著名なドライブユーティリティ Active@ Hard Disk Monitorが、
HPC-ADP01経由のCFを、ドライブとして認識しないなど、多くの問題があるコトを示唆する症状も･･･

しかしソレらも、ｸﾞｸﾞって難なく解決。 って、ナンてぇコトはナイ、HPC-ADP01 では、それ自体のスペックが低くて、
UDMAドライブとしてすら機能してなかったのだ!　･･･つーか、買う前に調べろよっつ～ハナシかな、カナ？(^_^;)
真に 安物買いの銭失い、価格のみに釣られての大失態･･･

で 今回、ソレを教訓にチョイスしたのは、飛鳥(現 Kenko)のCF32F。
･･･価格コム比で最安値ってワケではなかったが、送料￥0 を加味し、またまたCOMPMOTOで、4k強払って調達。
注文２日後の20091227(Sun)午前には程なく届いて、早速ベンチを取った。

･･･結果詳細を曝すまでもない、何故なら一言で片が付くからだ。
なんと実測値で、前のﾔｼ(HPC-ADP01)の倍出てる!(ﾟДﾟ;)

･･･DMA使うか否か だけでも随分スペックに差が出るものだ(-_-;)

ま、CFが高速なモノであれば、更に良い結果が期待できるアダプタだったが、
肝心のメディアが、廉価な200倍速CFだし、こんなモノかな。


因みに、秒間転送容量で並べると、

　SD14 USB2.0接続 ＜ HagiwaraSyscom HPC-ADP01 ＜ ASKA CF32F 

と云う構図になるようだ。


できればそろそろ高速CFに手を出したいが、SD14本体の記録エラー問題が解決しないと、
結局無駄な出費になり兼ねんので、財政厳しい折、とても調達に踏み切れない･･･ ┐(´_｀)┌

そろそろファームウェアの決定版、お願いしたいねSIGMAさん･･･

不況･ドン底下の･･･

･･･年末年始番組編成に辟易、尽く再編集／総集編／再放送
地上／衛星／ケーブル局問わず、無様なくらい ┐(´_｀)┌

そんなにもスポンサー付かんのな、不況だと･･･(´ﾍ｀；)

番組表見るに、気を吐いているのは、有料局のAT-Xくらいと云う有様･･･
末期症状キてるねぇ(￣ー￣)ﾆﾔ

ぢつに朗報･･･

昨年末、某キー局番組の功績により、我々の嫌疑は晴れました。


　　　　　　　　虎の威を借る狐

この故事は、盛大な誤りであるコトが、実験により、明確に証明されたのです。
そもそも我々はトラごときの威など借りません(断言)

･･･つーか故事の通りに解釈すると、トラのほうは相当バカw( ｀∀´)

今年になりはしたけれど･･･

･･･とまぁ、某十兵衛ちゃんサブタイトル風に始めてみましたが、
結局ナニをして "めでたい" と考えるべきかを熟考し過ぎて、新年の挨拶を全くしない おきつねさまですm(_ _)m

でも、宗教トカには関わり無いようだし、コレは"発行しても良いコマンド"なのかな、カナ？
とか、考えたりもするのデスよ･･･

･･･てぇ 結論に至るのに、年末跨いで36時間以上要してしまいましたが、改めて


　　　　　　　　　　ことよろデスm(_ _)m


･･･っても、"ナニがめでてぇ？" ってぇ疑問については、なんら解決していないんデスけどネ(^_^;)

期待して待つ･･･

･･･って、日本語のおかしなログタイトルだけど、ソレはソレとして、


肥薩線「山線」　ＳＬ復活計画　資金１０億円　「一口機関士」募る　
人吉市と湧水町 - 西日本新聞 [ 20091231 0642 ]


ホントに走るようになるとイイね。


･･･つーのも 全国には、静態保存とか云う名目で、場所によっては 野晒し雨曝しガキが悪戯し放題、
完全な死に体で放置されているSLが まだまだ多数あったりするのが現実なのだ(-_-;)

確かに、もう部品がナイとか云うハナシも よく聞くが、今のテクノロジを"適切"に以ってすれば出来ない構造物などナイ。
おきつねさまに云わせれば、考えもしないで諦めている程度の低い技術屋の云い訳にしか聞こえない･･･

しかし、金銭だけで解決すると思っている田舎モノも少なくない･･･
コストを抑えるのも、技術を最適化して用いて初めて成せるコトなのだが ┐(´_｀)┌

あと、"修復する"ってぇコトを取り違えてて、結局新造してるのと変わらない結果となってる例も多い。


ｵﾏｲﾗ 頭使えアタマ!! (#｀Д´)ι
＜ 全国の放置SLを復活させよ! ＞

風呂からアガったら･･･

･･･年が変わってたw

まぁ、おきつねさま的には そんなモンですかね。