September 27, 2005

ETCセットアップ

_車載器と車両番号を1対1対応させている
って事は、将来的に、
・ETC車載信号受信機を所定間隔に設置すれば..簡単に速度違反検出が可能
・もっと広域に設置すれば盗難車(犯罪車)追跡が可能
もちろん車載器と決済口座(決済者)との対応もできるのだから..
・観察対象者の移動が補足可能
・....
究極の個人情報垂れ流し器、おー恐い怖い
やっぱりETCはやめておいた方が。

投稿者 秋天越 : 10:35 PM | コメント (2) | トラックバック (0)

長いスクリプト

_uさんところより。
うちのコレなど当に円→ポリラインの様なものだけど只でさえ冗長な「なでしこ」で書いても3.5KB位か。
もっとも、こっちの方に置いてるやつは短い代わりに、とってもながーい共通ライブラリ(105KB)をリンクしたりしてるのでとても他所のこと云えた立場じぁないのはよく判ってる、ごめんなさい。

投稿者 秋天越 : 06:46 PM | コメント (2) | トラックバック (0)

September 25, 2005

以前から

_の予定通り
kodo-kan.jpg
台風17号の影響下強風の水戸まで出張った、
小暇を作って観覧散策、弘道館。

投稿者 秋天越 : 10:37 PM | コメント (0) | トラックバック (0)

September 24, 2005

Vine

_Linux3.2
公開されていたのでアップデートした、aptを使用するので簡単。
Vineはカーネル2.4系で安定しているのは良いのだけれど、2.6系のアレが欲しいと思った時に少し悔しい思いをしたりしたが。最近は新しいもの次々試したいといった欲求は確実に減って来ていてその意味ではだからどうって事も無く、自然に付き合えるOSになったってことかな。

投稿者 秋天越 : 06:29 PM | コメント (0) | トラックバック (0)

September 23, 2005

秋分

_墓参、
あっち と そっち、こっちは明日にでも寄る予定。春には一日で回ったはずなのだが途中の寄道がいけなかった、しかし美味いうどんを食せたので由としよう。

投稿者 秋天越 : 06:01 PM | コメント (0) | トラックバック (0)

September 20, 2005

岩槻区丹過町



街自体はかなり古いのですが、やはりこういったものが残るのは難しい。05-09-20



投稿者 秋天越 : 08:55 PM | コメント (0) | トラックバック (0)

September 16, 2005

移動中

_水分補給、缶珈琲調達した店。
P050915b.jpg単なる小ネタです。

投稿者 秋天越 : 08:27 PM | コメント (0) | トラックバック (0)

「若しくは」

_と「又は」の違い

> A、B若しくはC又はD若しくはE

(A、B若しくはC)又は(D若しくはE) と読めってことね。

投稿者 秋天越 : 12:47 PM | コメント (0) | トラックバック (0)

September 14, 2005

コモンダイアログ

_がスクリプトからでも簡単に使える。

某所で仕入れたので試してみたのだが、この方法はXP限定らしい、
うちの2Kには'safrcdlg.dll'というファイルは入ってなかった。

たとえばこの辺から拾ってきて、
# regsvr32 /i safrcdlg.dll
とかすれば使える様にはなるけど、反則っぽいしな、どうしたものか。

'!vbs -----comdlg.vbs-----
dim wshshell, dialog1, dialog2
set wshshell = CreateObject("WScript.Shell")
set dialog1 = CreateObject("SAFRCFileDlg.FileOpen")
dialog1.OpenFileOpenDlg
oname = dialog1.FileName
wshshell.popup (oname)
set dialog2 = CreateObject("SAFRCFileDlg.FileSave")
dialog2.FileName = "c:\*.txt"
dialog2.FileType = "テキストファイル(*.txt)"
dialog2.OpenFileSaveDlg
cname = dialog2.FileName
wshshell.popup (cname)

投稿者 秋天越 : 10:35 PM | コメント (0) | トラックバック (0)

September 10, 2005

車も

_健診した。
tenken01.jpgついでと云う事でもないし、一度もタイヤ交換していない程度の走行距離で悪い処も見当たらないが、通知が来ていたのを思い出して朝から行ってきた、一時間ほどで完了。

投稿者 秋天越 : 12:46 PM | コメント (0) | トラックバック (0)

September 08, 2005

気休め

_程度にはなるので
ken-001.jpg
一応健診してきた、白色の液体さえ無ければいい半日休暇なのだが。

投稿者 秋天越 : 12:41 AM | コメント (0) | トラックバック (0)

September 05, 2005

そろそろ

_当日にうろうろしないように予習した。が、まづ9.11に何か意味があるのか否か探ろうとして立ち止まる。

投稿者 秋天越 : 11:33 PM | コメント (0) | トラックバック (0)

September 02, 2005

BASP21

_下の検証するのに使ってみた。
こんなに便利なコンポーネントがあったとは知らなかった、VBSも進化しつづけてるなー。

投稿者 秋天越 : 09:51 PM | コメント (0) | トラックバック (0)

September 01, 2005

メールリンク

_だいおーさんへのトラックバック
「サブジェクトに2バイト文字不可」が、E-mail本来の仕様であって、普通に通ってしまうOLや携帯のメーラーが普通じぁない、のですが。とは云え人情的には使いたいところですね。
subject=以降をURLエンコードしておけば日本語でもOKということでエンコーダースクリプト載せておきます。
---------------------------------------------------------------------
'!vbs
' UrlEncode.vbs 2005/09/01 by akitenh

' URLエンコード
Function getURL(ByVal Word)
dim Enchar, c
for i = 1 to len(Word)
c = mid(Word, i, 1)
if RegExpTest("[\-+\*/,\.0-9a-z]", c) = False then
Enchar = Enchar & getHex(c)
else
Enchar = Enchar & c
end if
next
getURL = Enchar
End Function

Function getHex(ByVal Char)
Char = right("0000" & hex(asc(Char)), 4)
if left(Char, 2) = "00" then
getHex = "%" & left(Char, 2)
else
getHex = "%" & left(Char, 2) & "%" & right(Char, 2)
end if
End Function

' 文字検索
Function RegExpTest(patrn, strng)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
RegExpTest = regEx.Test(strng)
End Function

' Main
dim sWord, sURL
msg = "エンコードする文字列を入力してください"
sWord = inputbox(msg)
if sWord <> "" then
sURL = getURL(sWord)
sWord = inputbox(sWord, "エンコード結果", sURL)
end if

'end of script

投稿者 秋天越 : 09:04 PM | コメント (3) | トラックバック (0)