18
April, 2007*
[出張]3日目 *
ホテルのインターネットがつながったり切れたり 
ちょうど、ゲートウェイのIPが重複している感じだ。
arp見てみると、やっぱりIPがかぶっている。 
きっと宿泊者の誰かがIP固定のままつないでしまったのだろう。
17
April, 2007*
[出張]2日目 *
やっぱり温泉付きがよかったー
ちなみに1,000円違いました。
16
April, 2007*
[出張]1日目 *
今日からまたしばらく出張。
今回は安いというだけで、別の場所に宿泊 
安くてもインターネット接続環境完備...便利な世の中になったものです。
15
April, 2007*
100円均一でノギス *
ダイソーでノギス発見。大興奮
よく見たら、この商品は1,000円って書いてあったよ
最近の100円ショップは100円以上の商品もあるんだから、2個100円のヤツを1個50円にしてくれないかな。
1個余るよ。
14
April, 2007*
spam対策 *
目的のわからないspamほど対策が困難で、最近のスパムはそのパターン
リジェクトした書き込みはログにも残さず破棄するようにしていたのですが、フィルタの確認をかねて保存するようにした。
ログを消すのは手動
13
April, 2007*
[出張]5日目 *
今日で急遽一旦引き上げ。
5日連続朝夜温泉に入っているせいか、肌がすべすべ 
09
April, 2007*
[出張]1日目 *
今日からしばらく出張。
今回は近所が温泉地ということで、温泉宿に宿泊
風呂も源泉かけ流しで24時間入れてグッド
05
April, 2007*
パソコンのファンがうるさくなった２ *
自宅ではメインで、
Dell
の
ウルトラスモールフォームファクターコンピュータ
を使っていて、置き場所的になかなか便利なんですが、最近ファンの音がうるさくて本当に困っている次第です。
（本体は小さくても、ACアダプタは大きいのですが、そこは我慢）
パソコンは24時間稼働させておきたいので、音はかなり重要。
とりあえずバラして、静音ファンに変えてみようか模索中。
回転数が落ちると、診断プログラムには引っかかるような気もしますが...
04
April, 2007*
03
April, 2007*
[買い物] *
るくるくの新刊買った。
１冊しか入荷しておらず、平積みもされていなかったので、気づくのが遅くなりました
24
March, 2007*
大雨 *
久々に大雨。コレで明日晴れたりしたら桜の開花も加速しそう。
駅までの途中の道が川のようになっていて、靴が水浸しで気持ち悪い
阿部さんに別れを... *
このサイトと共にお世話になった*1BBIQと最後のお別れ。
工事業者のおねぃさんが、屋内配線をニッパーでブチブチ切って帰ったよ。
屋外配線はそのままらしい。撤去も大変だから？...電柱の使用量は？...
そういえば、清のほうが長かったかな
23
March, 2007*
PDFのファイル名をリネーム２ *
そういえば私のパソコンにもAcrobatは入っていないので、別の方法を検討。
（Elementsでも使えればイイのにー）
検索すると、Xpdfが使えそうなので、サックリダウンロード。
xpdfのpdfinfo.exeを同じフォルダにコピーすれば動きます。
Shift-JIS Unicode 変換テーブルは http://unicode.org/ のヤツをテキトウに変換しただけなので間違えている可能性あり。
- 遅ればせながら、さっき試してみました。ちゃんと動作するようですよ。 -- shirou
22
March, 2007*
パソコンのファンがうるさくなった *
DELLのデスクトップパソコンのファンが少しずつうるさくなってきた
買ったときはそんなにうるさくなかったので、ファンが痛んできたのか？
動画なんて見ているとファンの回転数が上がっていくので、結構つらい。
同じサイズのファンを買ってきて交換できないか検討中。
でもOptiPlexは本来業務用で標準保証が３年なので、保証が効かなくなるのもつらい
21
March, 2007*
PDFのファイル名をリネーム *
http://www.shirou.jp/blog1/?p=441
shirouさんとこでの話題。
私はPDFの内部プロパティのタイトル名を取得し、ファイル名をリネームするvbsを書いて半自動化しています。
タイトルがちゃんと入っていないPDFファイルには使えないけど...
要Acrobat（Readerじゃないやつ、Elements不可）
拡張子vbsにして、ドラッグドロップで実行。
| Set FSO = CreateObject("Scripting.FileSystemObject")
Set PDDoc = CreateObject("AcroExch.PDDoc")
Set Args = WScript.Arguments
For i = 0 to Args.Count - 1
FullName = Args(i)
If FSO.FileExists(FullName) And (LCase(FSO.GetExtensionName(FullName)) = "pdf") Then
FileName = FSO.GetFileName(FullName)
PathName = FSO.GetParentFolderName(FullName)
PDDoc.Open FullName
Title = Trim(PDDoc.GetInfo("Title"))
PDDoc.Close
If Title <> "" Then
NewFileName = Title & ".pdf"
Else
NewFileName = FileName
End If
NewFileName = Trim(InputBox("新しいファイル名", FileName, NewFileName))
If NewFileName <> "" Then
NewFileName = Replace(NewFileName, """", "”")
NewFileName = Replace(NewFileName, "\", "￥")
NewFileName = Replace(NewFileName, "/", "／")
NewFileName = Replace(NewFileName, ":", "：")
NewFileName = Replace(NewFileName, "*", "＊")
NewFileName = Replace(NewFileName, "<", "＜")
NewFileName = Replace(NewFileName, ">", "＞")
NewFileName = Replace(NewFileName, "|", "｜")
If NewFileName <> FileName Then
Set File = FSO.GetFile(FullName)
File.Name = NewFileName
Set File = Nothing
End If
End If
End If
Next
Set PDDoc = Nothing
Set FSO = Nothing
|
ショートカットを作るだけなら、こんな感じかな。
自宅にAcrobatがないので未確認。
| Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set PDDoc = CreateObject("AcroExch.PDDoc")
Set Args = WScript.Arguments
For i = 0 to Args.Count - 1
FullName = Args(i)
If FSO.FileExists(FullName) And (LCase(FSO.GetExtensionName(FullName)) = "pdf") Then
FileName = FSO.GetFileName(FullName)
PathName = FSO.GetParentFolderName(FullName)
PDDoc.Open FullName
Title = Trim(PDDoc.GetInfo("Title"))
PDDoc.Close
NewFileName = Title & "(" & FileName & ")"
NewFileName = Trim(InputBox("ショートカット名", FileName, NewFileName))
If NewFileName <> "" Then
NewFileName = Replace(NewFileName, """", "”")
NewFileName = Replace(NewFileName, "\", "￥")
NewFileName = Replace(NewFileName, "/", "／")
NewFileName = Replace(NewFileName, ":", "：")
NewFileName = Replace(NewFileName, "*", "＊")
NewFileName = Replace(NewFileName, "<", "＜")
NewFileName = Replace(NewFileName, ">", "＞")
NewFileName = Replace(NewFileName, "|", "｜")
With Shell.CreateShortCut(FSO.BuildPath(PathName ,NewFileName & ".lnk"))
.TargetPath = FullName
.WorkingDirectory = PathName
.Save
End With
End If
End If
Next
Set PDDoc = Nothing
Set FSO = Nothing
Set Shell = Nothing
|
TOSHIBA VARDIA *
いま買うならこの辺かな？
20
March, 2007*
部屋の片付け *
パソコンをまだ箱から出していないので、ノートパソコン生活
画面は狭いけど、ニコニコ動画を見るにはちょうどいい感じ...メンテ中でつながらないけど
まだ何がどこにあるかわかりません。
19
March, 2007*
喉の調子が悪い *
昨日埃を吸い込んだのか喉が痛い
しかも微熱で頭があまり回らない。
[買い物]もじぴったんDS *
もじぴったん買った
今日は調子が悪いので、遊ぶのはまた今度。
- ふたりのもじぴったん入ってました -- JuJu
18
March, 2007*
部屋の片付け *
朝５時に起床して部屋の片付け
協力ありがとうございました。
17
March, 2007*
最後の更新 *
ここから更新するのは多分最後
しばらくはAIR-EDGE経由になりそう...
16
March, 2007*
温度センサ *
Kick4で何度も話題になったDS18B20。
DS1820は確か大量に買った個人が、サイトでばら売りしていたような気がするけど見つからず。
DS18B20はエリスショップが取り扱っているので、それほど入手は難しくないはず。少し高くなるけど
自宅に数個は在庫があるので、しばらくは持ちそう
15
March, 2007*
pdfconv.zip
