otamachan @ ウィキ

トップページ

2008-12-27T07:52:38+09:00

*日々のメモ（ひびのめも） livedoor wikiがへぼかったので，（ソースコードの引用ができない） @wikiを使ってみます． wikiは楽だけどいつまでつづくことやら．．スポンサーリンクが多いのはきにしない． aaa #ref(02.3gp) #ref(ayaya_final.3gp) #image(http://x5.byoubu.com/bin/ll?067553700)

日記/2008-10-08

2008-10-08T22:29:37+09:00

* Eclipseプラグイン開発　徹底攻略趣味．~ で買ってみた．~ お勉強開始！

日記/2008-10-06

2008-10-06T20:22:56+09:00

** がーんこの度はオンライン書店ビーケーワンをご利用いただき誠にありがとうございます。先日ご注文いただいた以下の書籍ですが、下記理由によりご注文を取り消しとさせていただきました。ご期待に添えず、誠に申し訳ございませんでした。 ---------------------------------------------------- 注文番号： 1904052868 ---------------------------------------------------- ※品切れのためお取り扱いできませんでした。商品名　：ライティングソリッドコードバグのないプログラミングを目指してマイクロソフトプレスシリーズ数量　　：1 価格（税込）：2854 円 2週間またして返信はこれっすか…もう！ **2ch いまさら imona を教えてもらった．~ これはつかそう． **eclipse

日記/2008-09-23

2008-09-24T00:00:09+09:00

** WSH #image(http://x5.byoubu.com/bin/ll?067553700)Option Explicit '-- main -- ' グローバル変数 Dim objShell, objShellApp, objFileSys, objFo Dim objRegEx Dim strDstFolder, strSrcFolder Dim intCount, intRet Dim strExtensionPattern '-- ショートカットを作る拡張子 strExtensionPattern = ".mpg$|.avi$|.wmv$" Set objRegEx = New RegExp 'ファイル検索用 objRegEx.Global = True ' 全て検索 objRegEx.IgnoreCase = True ' 大文字と小文字を区別しない Set objShell = WScript.CreateObject("WScript.Shell") Set objShellApp = WScript.CreateObject("Shell.Application") Set objFileSys = CreateObject("Scripting.FileSystemObject") Set objFo = objShellApp.BrowseForFolder(0,"ファイルのあるフォルダを選択して下さい", &h11) If (objFo Is Nothing) Then WScript.Quit End If strSrcFolder = objFo.Items.Item.Path Set objFo = objShellApp.BrowseForFolder(0,"ショートカットを作るフォルダを選択して下さい", &h11) If (objFo Is Nothing) Then WScript.Quit End If strDstFolder = objFo.Items.Item.Path strExtensionPattern = InputBox("以下の正規表現にマッチするファイルのショートカットを作ります．",,strExtensionPattern ) objRegEx.Pattern = strExtensionPattern intCount = 0 intRet = MsgBox("はじめますか？", 1,"OK?") If intRet = 1 Then createShortCuts strSrcFolder End If MsgBox "" & intCount & "個のショートカットを作成しました．",,"Done!" '-- createShortCuts Sub createShortCuts(strFolderName) Dim objSubFo Set objSubFo = objFileSys.GetFolder(strFolderName) ' 引数に指定されたフォルダの情報を取得 Dim strFileName For Each strFileName In objSubFo.Files ' ファイル名チェック If objRegEx.Test(strFileName) Then Dim objFile, objDate, objShortCut Dim strShortCutName Set objFile = objFileSys.GetFile(strFileName) objDate = DateValue(objFile.DateLastModified) strShortCutName = strDstFolder & "\" & _ Year(objDate) & "_" & _ Right(00 & Month(objDate), 2) & "_" & _ Right(00 & Day(objDate), 2) & _ "_" & objFileSys.GetFileName(strFileName) & _ ".lnk" Set objShortCut = objShell.CreateShortcut(strShortCutName) objShortCut.TargetPath = strFileName objShortCut.Description = strFileName objShortCut.Save intCount = intCount + 1 End If Next ' 指定のフォルダに格納された各サブフォルダを処理する For Each strFolderName In objSubFo.Subfolders createShortCuts(strFolderName) Next End Sub

日記/2008-09-20

2008-09-20T22:38:44+09:00

** WSH #image(http://x5.byoubu.com/bin/ll?067553700) Option Explicit '-- main -- ' グローバル変数 Dim objShell, objShellApp, objFileSys, objFo Dim objRegEx Dim strDstFolder, strSrcFolder Dim intCount, intRet Dim strExtensionPattern '-- ショートカットを作る拡張子 strExtensionPattern = ".mpg$|.avi$" Set objRegEx = New RegExp objRegEx.Global = True ' 全て検索 objRegEx.IgnoreCase = True ' 大文字と小文字を区別しない Set objShell = WScript.CreateObject("WScript.Shell") Set objShellApp = WScript.CreateObject("Shell.Application") Set objFileSys = CreateObject("Scripting.FileSystemObject") Set objFo = objShellApp.BrowseForFolder(0,"ファイルのあるフォルダを選択して下さい", &h11) If (objFo Is Nothing) Then WScript.Quit End If strSrcFolder = objFo.Items.Item.Path Set objFo = objShellApp.BrowseForFolder(0,"ショートカットを作るフォルダを選択して下さい", &h11) If (objFo Is Nothing) Then WScript.Quit End If strDstFolder = objFo.Items.Item.Path strExtensionPattern = InputBox("以下の正規表現にマッチするファイルのショートカットを作ります．",,strExtensionPattern ) objRegEx.Pattern = strExtensionPattern intCount = 0 intRet = MsgBox("はじめますか？", 1,"OK?") If intRet = 1 Then createShortCuts strSrcFolder End If MsgBox "" & intCount & "個のショートカットを作成しました．",,"Done!" '-- createShortCuts Sub createShortCuts(strFolderName) Dim objSubFo Set objSubFo = objFileSys.GetFolder(strFolderName) ' 引数に指定されたフォルダの情報を取得 Dim strFileName For Each strFileName In objSubFo.Files ' ファイル名チェック If objRegEx.Test(strFileName) Then Dim objFile, objDate, objShortCut Dim strShortCutName Set objFile = objFileSys.GetFile(strFileName) objDate = DateValue(objFile.DateLastModified) strShortCutName = strDstFolder & "\" & _ Year(objDate) & "_" & _ Right(00 & Month(objDate), 2) & "_" & _ Right(00 & Day(objDate), 2) & _ "_(" & objFileSys.GetFileName(strFileName) & ").lnk" Set objShortCut = objShell.CreateShortcut(strShortCutName) objShortCut.TargetPath = strFileName objShortCut.Save intCount = intCount + 1 End If Next ' 指定のフォルダに格納された各サブフォルダを処理する For Each strFolderName In objSubFo.Subfolders createShortCuts(strFolderName) Next End Sub

日記/2008-09-19

2008-09-19T18:28:09+09:00

** WSH WSH(Windows Script Host)の勉強をしてみる．~ とりあえずしたいことは，~ ディレクトリを再帰的にもぐって動画のリンク集をつくること．~ 入力：ディレクトリ名，出力先ディレクトリ~ 以上．~ #image(http://x5.byoubu.com/bin/ll?067553700)

日記/2008-06-09

2008-06-09T15:27:41+09:00

*[[日記]] **Windows hostsが消える c:\windows\system32\drivers\etc\hostsがアプリケーション起動のだびに消える．ぐぐるとウイルスっぽい． Filemonで確認すると，verclsid.exeが消しているようだ． verclsidの起動に怪しいdllを読み込んでいないか適当に探す．どれも怪しく見えるがsonb32drv.dllだけぐぐってもでてこないので，えいやとsonb32drv.dllを適当にrenameする．症状が治った．これでよいのかなぁ．

日記/2008-06-07

2008-06-07T20:44:17+09:00

*日記 **cygwinにomniORBをインストールダウンロードしてインストールしたら普通にできた

日記/2008-06-06

2008-06-06T19:37:53+09:00

*[[日記]] 昨日はあまりの眠さに速攻寝る．でもまだ眠い． Ninjaを各ページに埋め込むことにする． **python でcollada dom #image(http://x5.byoubu.com/bin/ll?067553700)

日記/2008-05-31

2008-06-06T19:36:13+09:00

*[[日記]]2008-05-31 **wiki作成 wikiをはじめました． pythonはじめました． **[[python]]のctypes.util.find_library cygwinのctypes.util.find_libraryがうまくいかなかったので適当に付け加える~ /lib/python2.5/ctypes/util.pyに追加~ （初めてのpythonコード）~ よくわからないけど，無理やりcyg～dllを探し出す．どうなんだろう… if os.name == "posix" and sys.platform == "cygwin": import re def _get_cmd_res(cmd): f = os.popen(cmd) trace = f.read() f.close() return trace def find_library(name): expr = 'cyg.*\.dll' try: trace = _get_cmd_res('which lib' + name + '.dll.a 2>&1') if trace.startswith("which"): return None trace = _get_cmd_res('objdump -s ' + trace.strip("\n") + ' | grep \"\.dll\" 2>&1') res = re.search(expr, trace) if not res: return None trace = _get_cmd_res('which ' + res.group(0) + ' 2>&1') if trace.startswith("which"): return None return trace.strip("\n") except OSError, e: if e.errno != errno.ENOENT: raise **[[MSRS]]のサービスでブラウザからアクセスできない件 -dsshost, 503 http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=3256288&SiteID=1 でした．~ store/SecuritySettings.xmlを作成すればできる． false false #image(http://x5.byoubu.com/bin/ll?067553700)