タグ:オススメ ( 94 ) タグの人気記事
腕時計を買った。CITIZEN ATTESA AT8040-57E
こんヴァンヘイレン。どーもボキです。

腕時計を買ったよ。CITIZEN ATTESA AT8040-57E

嫁はんからもらったアニエスを10年以上使っていたが、こないだ床に落としてガラスを欠けさせてしまった。
欠けはムーブメント側だったので利用には支障がなかったし、ガラス交換も可能らしかったが、
もういい年だし、それなりの時計にしようと、この盆連休に買い替えた。

機械式も魅力的だが、時間がズレない電波時計。国内メーカに決めてた。だって日本人ですから。
エコ・ドライブ電波時計なので、メンテナンスフリーですよ。

アニエスに比べるとずいぶん大きくなったが、チタン製&スリムボディで重さはまったく気にならない。
主張しすぎないクロノグラフで時刻も読みやすいし、高級感もあるし、長く使えそう。とても気に入ってる。
a0021757_12423100.jpg
a0021757_1815859.jpg
夜間の視認性も良い。


分針は10秒ごと進む。秒針が50秒で分針は次の分を指す。そのため0秒では1/6分だけ進んだ状態となる。(これは仕様?)



[PR]
by yozda | 2013-08-25 01:23 | 物・モノ・もの | Trackback(1) | Comments(0)
[VBScript] youkuの分割動画をリネームする
こんヴァンヘイレン。どーもボキです。

youkuから(一時的に)ダウンロードした動画ファイルは、訳の分からん長ったらしい名前がついている。
それを短くリネームするスクリプト。

動画ファイルを保存したフォルダをスクリプトファイルにドロップすれば、
以下のようにリネームしてくれる。
a0021757_2042648.gif
Const cPos = 9  ' 16^1の位の文字位置

If WScript.Arguments.Count = 0 Then WScript.Quit ' フォルダドロップでない

Set objFS = CreateObject("Scripting.FileSystemObject")

For idpth = 0 To WScript.Arguments.Count -1: Do
dpth = WScript.Arguments(idpth)
If Not objFS.FolderExists(dpth) Then Exit Do ' フォルダでない

dname = objFS.GetFileName(dpth) ' フォルダ名

' フォルダ内のファイル処理
Set Folder = objFS.GetFolder(dpth)
For Each File In Folder.Files: Do
fname = File.Name
If InStr(fname, dname) <> 0 Then Exit Do ' リネーム済み

If Len(fname) > cPos Then
' 16^1の位
i = CInt(Mid(fname,cPos,1))
' 16^0の位
s = Mid(fname,cPos+1,1)
If s < "A" Then
j = CInt(s)
Else
j = Asc(s) -Asc("A") +10
End If

' ファイル番号を生成
s = CStr(i*16 +j)
If Len(s) = 1 Then s = "0" & s

' ファイル名の変更
fname = dname &"_"& s & Right(fname,4)
ElseIf (Len(fname) = 6) And IsNumeric(Left(fname,2)) Then
fname = dname & "_" & fname
End If

File.Name = fname
Loop Until 1: Next
Loop Until 1: Next

[youku] オススメ動画サイトyouku(= 中国版Youtube)、そのダウンロード方法
[PR]
by yozda | 2013-06-29 20:38 | プログラミング | Trackback | Comments(0)
[iPhone] 無線写真転送 が使いやすい
連休2日目だっちゃ。どーもボキです。

iPhoneアプリの「無線写真転送」が使いやすい。
このアプリは、無線LANを利用し iPhone⇔iPhone/PC で写真や動画をやり取りするもの。

無線LAN環境が家庭にあれば、無線LANに対応していないデスクトップでも、
ケーブルを接続することなくiPhoneの写真を取り出せる。
Bluetoothを利用したアプリもあったが、無線LANをつかったこのアプリの方が格段に転送が速い。
a0021757_9402588.gif
無線写真転送を利用し、PC→iPhoneにアクセスしている図


ちなみに、iPhone ⇔ iPhone での転送はまだ試せてない。
ときどき無料化(元は、250円)されてるので、そんときにでも嫁のiPhoneに入れて試そう。


[PR]
by yozda | 2013-04-28 09:50 | パソコン全般 | Trackback | Comments(0)
B'z Live動画 高解像度なもの
おはこんにちは。どーもボキです。

下の動画はかなり画質がいい。
B'z LIVE-GYM 2007 SHOWCASE -19- at Zepp Tokyo
a0021757_12144725.jpg


B'z LIVE-GYM 2010 “Ain't No Magic” at TOKYO
a0021757_1210649.jpg



B z LIVE-GYM 2012 -Into Free- in LA 2012
[PR]
by yozda | 2013-03-31 12:10 | ギター | Trackback(1) | Comments(0)
B z LIVE-GYM 2012 -Into Free- in LA 2012
おはヨーグルト。どーもボキです。

某国は著作権に関してはブレがないね。
まったくケシカラン。また見つけたわ。見たかったやつ。

B’z LIVE-GYM 2012 -Into Free- in LA 2012 Part1
B’z LIVE-GYM 2012 -Into Free- in LA 2012 Part2
a0021757_126115.jpg


けどこの動画、某国大陸専用らしいわ。ケシカラン。
a0021757_126103.gif


でも大丈夫。FLVcdを使って【一時的に】PCに残せばいい。
a0021757_1261053.gif



FC2動画でWOWOWの特集ドキュメントも見つけた。まったく持ってケシカラン。
wowow20121209

これもFirefoxのDownload Helperを使えば、【一時的に】PCに残せるらしい。
いやーケシカランね。


[PR]
by yozda | 2013-01-27 12:08 | ギター | Trackback(1) | Comments(0)
[iPhone] To Do管理アプリ「Do! Spring」が便利
もうすぐ駅につくわ。どーもボキです。

標準のリマインドは、指定日時になると通知センターに表示されるが、
一度でも確認すると通知から消えてしまう。これじゃリマインドできんわ。

その点、Do! Springは便利だ。チェックするまで通知センターに表示され続けるから。
a0021757_23152986.jpg
時計のマークを押して、Alarm Onにするだけ。
つまり、アラート表示時間の設定が「今」になる = 設定したタイミングでアラート時間を過ぎる = 通知センターに表示される ってこと。
a0021757_23152810.jpg
ホーム画面でも(数字はTo Do件数)と通知されて分かりやすい。
a0021757_23171624.jpg


[PR]
by yozda | 2012-11-05 08:55 | パソコン全般 | Trackback | Comments(0)
[Excel] コピーした文字列を改行ごとにテキストボックス化して張り付ける
『やっぱ今年はやめとくか?』 と言われそう。どーもボキです。

コピーした文字列を、選択セル位置を基準に一行ごとにテキストボックス化して貼り付けるマクロ。

ひとつのテキストボックスや行ごとに 箇条書きで書き溜めたアイデアを、
グループ分けしたり、前後関係で並べてみたり、そんなのに使えそう。

というかそのために作ったんだが、そもそも考えがまとまらないこととは関係なかったわ。
a0021757_1315010.gif
以下Excelマクロのソース。
Sub ClipBoardToTextBox()
' クリップボードの文字列を取得
s = CreateObject("htmlfile").parentwindow.clipboarddata.GetData("text")
If s = "" Then Exit Sub

' 表示更新を停止
Application.ScreenUpdating = False

' アクティブセルの座標を取得
x = ActiveCell.Left
y = ActiveCell.Top

' 改行ごとに格納
slst = Split(s, vbCrLf)

For i = 0 To UBound(slst): Do
If slst(i) = "" Then Exit Do

' テキストボックスを該当行に作成
ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, x, y, 0#, 0#).Select

' テキストボックスに文字を反映
Selection.Characters.Text = slst(i)

' テキストボックスの装飾
Selection.ShapeRange(1).TextFrame.AutoSize = msoTrue
Selection.ShapeRange.Line.Visible = msoTrue
' Selection.ShapeRange.Line.Style = msoLineThinThin ' 縁取り線「=」
' Selection.ShapeRange.Line.Weight = 3#
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid

' テキストボックスの作成座標を更新
y = y + Selection.Height
Loop Until 1: Next

' 表示更新を再開
Application.ScreenUpdating = True
End Sub
ここの下のほうにあるDataObjectを使うやり方を試したんだが、
Microsoft Forms 2.0 Object Libraryを参照設定するために、ユーザフォームを追加したり面倒。
クリップボードから文字列の取得する方法もわからんかった(Formatなんとかってエラーが出る)のであきらめた。


[PR]
by yozda | 2012-11-04 13:19 | プログラミング | Trackback | Comments(0)
[VBScript] メモ帳のフォントを「MS ゴシック」「9pt」「装飾なし」にする
今朝は、朝から頭痛が痛い。どーもボキです。

レジストリを書き換えて、メモ帳のフォントを「MS ゴシック」「9pt」「装飾なし」に書き換えるスクリプト。
プロポーショナルフォントを使うやつぁ、わしゃSEとして認めんけぇの。
key  = "HKCU\Software\Microsoft\Notepad\"
font = "MS ゴシック"
Set objWS = CreateObject("WScript.Shell")
r = objWS.RegWrite(key & "lfFaceName", font, "REG_SZ") ' フォント
r = objWS.RegWrite(key & "lfItalic", 0, "REG_DWORD") ' イタリック 0/1
r = objWS.RegWrite(key & "lfWeight", 400, "REG_DWORD") ' ボールド 400/700
r = objWS.RegWrite(key & "lfStrikeOut", 0, "REG_DWORD") ' 取り消し線 0/1
r = objWS.RegWrite(key & "lfUnderline", 0, "REG_DWORD") ' 下線 0/1
r = objWS.RegWrite(key & "iPointSize", 90, "REG_DWORD") ' 9pt×10



[PR]
by yozda | 2012-10-21 18:19 | プログラミング | Trackback | Comments(0)
[iPhone] ギター練習に使えるアプリ
笑っていいとも?どーもボキです。

iPhoneアプリで、ギター練習に使える音楽・動画の再生アプリを見つけた。
バックグラウンド再生、任意の区間ループ再生、速度変更 が出来るもの。

バックグラウンド再生 は必須。これがないと、ロック画面になると再生できなくなる。
任意の区間ループ再生 や 速度変更が練習にもってこい。

音楽再生には、カプリチオ Free (Capriccio Free)
a0021757_11345511.jpg

動画再生には、SpeedUpTV (数日前まで無料だった、今は250円)
a0021757_11345654.jpg


[PR]
by yozda | 2012-10-14 11:23 | ギター | Trackback | Comments(0)
[VBScript] 右クリックメニューのカスタマイズ 他
こんばんワイン。どーもボキです。

ファイルやフォルダを右クリックした際に表示されるメニューをカスタマイズするスクリプト。
出来ることは以下。
a0021757_2243191.gif
実行結果イメージ
ファイル 右クリックメニュー
 ・選択ファイルの親フォルダ基準ででエクスプローラを開く
 ・選択ファイルの親フォルダ基準でコマンドプロンプトを開く

フォルダ 右クリックメニュー
 ・選択ファイルの親フォルダ基準ででエクスプローラを開く
 ・選択ファイルの親フォルダ基準でコマンドプロンプトを開く

拡張子がないファイルのテキストファイル関連付け

(サクラエディタがインストール済みの場合、以下をサクラエディタに関連付け)
 ・全ファイルの右クリックメニューにサクラエディタで編集を追加
 ・IEのソースエディタ
 ・VBScriptの編集エディタ
Set objWS = WScript.CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")

' サクラエディタのインストールパス
cmd = "サクラエディタで開く"
fpth = ""
On Error Resume Next ' 未インストールへの対応 (RegReadでエラーになる)
s = Replace(objWS.RegRead("HKEY_CLASSES_ROOT\Applications\sakura.exe\shell\open\command\"),"""","",1,-1,1)
fpth = Left(s,InStr(s,"
%1")-1)
On Error GoTo 0

' エディタのパスを設定
If Not objFS.FileExists(fpth) Then
cmd = "
メモ帳で開く"
fpth = "
notepad"
End If
'--------------------------------------------------------------------------------------------------------
' ファイル 右クリメニュー
root = "
HKEY_CLASSES_ROOT\*\shell\"

key = root & cmd & "
\"
val = cmd & "
(&E)"
r = objWS.RegWrite(key, val, "
REG_SZ")
key = key & "
command\"
val = "
""" & fpth &""" ""%1"""
r = objWS.RegWrite(key, val, "
REG_SZ")

cmd = "
エクスプローラ"
key = root & cmd & "
\"
val = cmd & "
(&X)"
r = objWS.RegWrite(key, val, "
REG_SZ")
key = key & "
command\"
val = "
explorer /e , ""%1\.."""
r = objWS.RegWrite(key, val, "
REG_SZ")

cmd = "
エクスプローラ (このフォルダ基準)"
key = root & cmd & "
\"
val = cmd & "
(&X)"
r = objWS.RegWrite(key, val, "
REG_SZ")
key = key & "
command\"
val = "
explorer /e ,/root, ""%1\.."""
r = objWS.RegWrite(key, val, "
REG_SZ")

cmd = "
コマンドプロンプトを開く"
key = root & cmd & "
\"
val = cmd & "
(&W)"
r = objWS.RegWrite(key, val, "
REG_SZ")
key = key & "
command\"
val = "
cmd.exe /k ""cd %1\.."""
r = objWS.RegWrite(key, val, "
REG_SZ")

'--------------------------------------------------------------------------------------------------------
' フォルダ 右クリメニュー
root = "
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory\shell\"

cmd = "
エクスプローラ (このフォルダ基準)"
key = root & cmd & "
\"
val = cmd & "
(&X)"
r = objWS.RegWrite(key, val, "
REG_SZ")
key = key & "
command\"
val = "
explorer /e ,/root, ""%1"""
r = objWS.RegWrite(key, val, "
REG_SZ")

cmd = "
コマンドプロンプトを開く"
key = root & cmd & "
\"
val = cmd & "
(&W)"
r = objWS.RegWrite(key, val, "
REG_SZ")
key = key & "
command\"
val = "
cmd.exe /k ""cd %1"""
r = objWS.RegWrite(key, val, "
REG_SZ")

'--------------------------------------------------------------------------------------------------------
' 拡張子のないファイルを関連付け
fpth_bat = objFS.GetSpecialFolder(2) &"
\tmp.bat"
Set txt = objFS.OpenTextFile(fpth_bat,2,True)
txt.WriteLine "
assoc .=txtfile"
txt.Close
r = objWS.Run(fpth_bat,0,True)
objFS.DeleteFile(fpth_bat)

If fpth = "
notepad" Then WScript.Quit

' IEソース表示エディタの変更
key = "
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\View Source Editor\Editor Name\"
val = fpth
r = objWS.RegWrite(key, val, "
REG_SZ")

' テキストの編集用エディタを変更
key = "
HKEY_CLASSES_ROOT\txtfile\Shell\Edit\command\"
val = fpth & "
%1"
r = objWS.RegWrite(key, val, "
REG_SZ")

' VBScriptの編集用エディタを変更
key = "
HKEY_CLASSES_ROOT\VBSFile\Shell\Edit\command\"
val = fpth & "
%1"
r = objWS.RegWrite(key, val, "
REG_SZ")



[PR]
by yozda | 2012-06-25 22:08 | プログラミング | Trackback | Comments(0)