September 27, 2005
ETCセットアップ
＿車載器と車両番号を１対１対応させている
って事は、将来的に、
・ETC車載信号受信機を所定間隔に設置すれば..簡単に速度違反検出が可能
・もっと広域に設置すれば盗難車(犯罪車)追跡が可能
もちろん車載器と決済口座(決済者)との対応もできるのだから．．
・観察対象者の移動が補足可能
・．．．．
究極の個人情報垂れ流し器、おー恐い怖い
やっぱりETCはやめておいた方が。
投稿者 秋天越 : 10:35 PM | コメント (2) | トラックバック (0)
長いスクリプト
＿uさんところより。
うちのコレなど当に円→ポリラインの様なものだけど只でさえ冗長な「なでしこ」で書いても3.5KB位か。
もっとも、こっちの方に置いてるやつは短い代わりに、とってもながーい共通ライブラリ(105KB)をリンクしたりしてるのでとても他所のこと云えた立場じぁないのはよく判ってる、ごめんなさい。
投稿者 秋天越 : 06:46 PM | コメント (2) | トラックバック (0)
September 25, 2005
以前から
＿の予定通り
台風１７号の影響下強風の水戸まで出張った、
小暇を作って観覧散策、弘道館。
投稿者 秋天越 : 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
移動中
＿水分補給、缶珈琲調達した店。
単なる小ネタです。
投稿者 秋天越 : 08:27 PM | コメント (0) | トラックバック (0)
「若しくは」
＿と「又は」の違い
＞ Ａ、Ｂ若しくはＣ又はＤ若しくはＥ
(Ａ、Ｂ若しくはＣ)又は(Ｄ若しくはＥ) と読めってことね。
投稿者 秋天越 : 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
車も
＿健診した。
ついでと云う事でもないし、一度もタイヤ交換していない程度の走行距離で悪い処も見当たらないが、通知が来ていたのを思い出して朝から行ってきた、一時間ほどで完了。
投稿者 秋天越 : 12:46 PM | コメント (0) | トラックバック (0)
September 08, 2005
気休め
＿程度にはなるので
一応健診してきた、白色の液体さえ無ければいい半日休暇なのだが。
投稿者 秋天越 : 12:41 AM | コメント (0) | トラックバック (0)
September 05, 2005
そろそろ
＿当日にうろうろしないように予習した。が、まづ９．１１に何か意味があるのか否か探ろうとして立ち止まる。
投稿者 秋天越 : 11:33 PM | コメント (0) | トラックバック (0)
September 02, 2005
BASP21
＿下の検証するのに使ってみた。
こんなに便利なコンポーネントがあったとは知らなかった、VBSも進化しつづけてるなー。
投稿者 秋天越 : 09:51 PM | コメント (0) | トラックバック (0)
September 01, 2005
メールリンク
＿だいおーさんへのトラックバック
「サブジェクトに２バイト文字不可」が、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)