blog - Stop maintaining the status quo | strayDuck in a Nutshell

明日は引っ越し

電気ガス水道プロバイダ、あとどこへ連絡すればいいんだろう

宮崎に着いたよ

雨。9℃。空港のカフェにて。

リアルタイム更新はTwitterで。

いろんな人に会えてちょっとホッとした

あわよくば追いコンを覗きに行こうとしたものの，結局かなわず．

ところが，今朝打ち合わせでガストに行ったらなんかいっぱいいて．なんか伸びてるのもいるし，やたらハイテンションなのもいるし．少し嬉しかった．

次期正指揮の方に初めて声を掛けられた．一目惚れしそうになったけどそこは自重．

久しぶりに学年のメーリングリストにもメールが届いたし，みんなにわかにサークルっ気づいてる？いいなぁ．なんか裏旅行とか言ってるし．うらやま．

2008年にいろいろ持ち越し

明けましておめでとうございます。本年もどうぞよろしくお願い致します。

論文も書かずにこんなスクリプト書いててどうすんだ俺

因みに、URLがまた変わるかもです。Drupalの中身を吸いだしたら、再び/blog/に戻すかも知れない、そうでないかも知れない

TODO

100: Atom Feed対応
90:  Twitterとか、よそのサービス読み込み対応
80:  Cool URI
75:  AtomPub対応
70:  マルチ記法対応(いまはMarkdownのみ、そのうちTexy, S5, tDiaryは対応させないと)
50:  デザイン改良
30:  目指せセマンティックブログ
20:  トラックバック、コメント対応

ショートカットをドラッグ&ドロップすると、PATHを通してくれるスクリプト

Windows + R は素晴らしいランチャ。単に文字を付け足しているだけなので、削除は手動。

' ドラッグドロップで、パスを通します。
' プログラムにパスを通すときに便利です。
' 
' a. ファイル(のショートカット)をドロップすると
'    そのファイルの(ターゲットの)親フォルダ、
' b. フォルダ(のショートカット)をドロップすると
'    その(ターゲットの)フォルダ
' がユーザーのPATH環境変数に追加されます。

Option Explicit

Dim objArgs
Set objArgs = WScript.Arguments
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim strTargetPath
Dim objFolder
Dim objFile
Dim objShortcut

If objFSO.FolderExists(objArgs(0)) Then
''Folder
    Set objFolder = objFSO.GetFolder(objArgs(0))
    strTargetPath = objFolder.Path
Else
''File or Shortcut
    Set objFile = objFSO.GetFile(objArgs(0))

    If objFSO.getExtensionName(objFile) = "lnk" Then
''Shortcut
        Set objShortcut = objWshShell.CreateShortcut(objArgs(0))
        If objFSO.FolderExists(objShortcut.TargetPath) Then
''Shortcut of Folder
            Set objFolder = objFSO.GetFolder(objShortcut.TargetPath)
            strTargetPath = objFolder.Path
''Shortcut of File
        Else
            strTargetPath = objFSO.GetParentFolderName(objShortcut.TargetPath)
        End If
    Else
''File
        strTargetPath = objFSO.GetParentFolderName(objFile)
    End If
End If

objWshShell.Environment("User")("Path") = _
objWshShell.Environment("User")("Path") & ";" & strTargetPath
WScript.Echo strTargetPath & " をユーザのPATH環境変数に追加しました。"

Set objWshShell = Nothing
Set objArgs = Nothing
Set objFSO = Nothing
Set objFolder = Nothing
Set objFile = Nothing
Set objShortcut = Nothing

2007-12-04

今年はGoogle Earthらしい NORAD TRACKS SANTA 2007

2007-11-25

手抜きーのテスト

さて、今年最後の？ぼっち遠征に行ってきます。