2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« 2012年6月 | トップページ | 2012年8月 »

2012年7月31日 (火)

Webページ内のツールチップ表示(TITLE属性)を短縮するブックマークレット

Webページ中のエレメントにマウスをかざすと、TITLE属性のテキストがポップアップします。このテキストが長いと、表示に手間取り、その間操作不可になります。これが鬱陶しいときはテキストを短縮します。

javascript:for(var k=0;k<document.all.length;k++){if(document.all(k).title){document.all(k).title=document.all(k).title.substr(0,256);}}void(0);

2012年7月29日 (日)

IEのタイトルバーにタイトルが表示されない代替ブックマークレット

Webページ上どこにマウスを置いてもタイトルを表示する。

javascript:void(document.body.title=document.title)

ステータスバーにタイトルを表示する。ただし、セキュリティレベルで許可が必要。

javascript:void(status=document.title)

2012年7月28日 (土)

Webページ内のツールチップ表示(TITLE属性)を除去するブックマークレット

Webページ中のエレメントにマウスをかざすと、TITLE属性のテキストがポップアップします。これが鬱陶しいときはTITLE属性を除去します。

javascript:for(var k=0;k<document.all.length;k++){if(document.all(k).title){document.all(k).title='';}}void(0)

2012年7月18日 (水)

ショートカット、インターネットショートカットをリセットする。

インターネットショートカットをメモ帳で変更したとき、それを有効にするには?

ライブラリフォルダのショートカット(シェルフォルダのパス)をディレクトリのショートカット(ファイルシステムのパス)に変えるには?

ショートカットやインターネットショートカットをドロップします。

reLink.vbs {ショートカット|インターネットショートカット}

Set Link=CreateObject("WScript.Shell").CreateShortCut(WScript.Arguments.Item(0))
Link.TargetPath=Link.TargetPath
Link.Save

2012年7月 8日 (日)

非シフトJIS文字のファイル名を変更する。

フォルダをドロップすると、その中のファイル名の非シフトJIS文字をシフトJIS文字に変換します。シフトJIS文字に変換できない非シフトJIS文字は_に変更します。

xFileName.VBS フォルダ

Set fso=CreateObject("Scripting.FileSystemObject")
For Each Folder In WScript.Arguments
  For Each File In fso.GetFolder(Folder).Files
    FileName=xFileName(File.Name)
    If FileName<>File.Name Then
      File.Name=Replace(FileName,"?","_")
    End If
  Next
Next

Function xFileName(FileName)
For k=1 To Len(FileName)
  xFileName=xFileName & Chr(Asc(Mid(FileName,k,1)))
Next
End Function

2012年7月 7日 (土)

エクスプローラのカラムヘッダを表示する。

VistaやWindows7では、詳細表示以外ではカラムヘッダが非表示です。さらに詳細表示でさえカラムヘッダが表示されないケースがあります。
そこで、開いているすべてのフォルダについてカラムヘッダを表示するように表示設定を変更します。
この表示設定はそのエクスプローラ実行中はそのフォルダについて有効ですが、保存されません。

ShowColumnHeader.vbs

'FWF_NOHEADERINALLVIEWS 0x01000000. Windows Vista and later. Only show the column header in details view mode.
'FWF_NOCOLUMNHEADER 0x00800000. Windows Vista and later. Do not display a column header in the view in any view mode.
Option Explicit
Dim ie
Const FWF_NOHEADERINALLVIEWS=&H01000000
Const FWF_NOCOLUMNHEADER=&H00800000
For Each ie In CreateObject("Shell.Application").Windows()
  If InStr(LCase(ie.FullName),"explorer.exe") Then
    ie.Document.FolderFlags=CLng(ie.Document.FolderFlags) And Not (FWF_NOCOLUMNHEADER Or FWF_NOHEADERINALLVIEWS)
    ie.Refresh
  End If
Next

2012年7月 3日 (火)

NTFSストリーム内のfaviconを指定する。(その2)

GUIでの方法です。
インターネットショートカットのプロパティを開き、「セキュリティ」タブからオブジェクト名をコピーする。
「Webドキュメント」タブ、「アイコンの変更」のファイル名入力欄に、
オブジェクト名:favicon
を入れてエンター。アイコンを選択して「OK」。

2012年7月 2日 (月)

Windows7 エクスプローラのナビゲーションウィンドウ

スタートメニューのカストマイズで
□リンクとして表示する
□メニューとして表示する
があるように、エクスプローラのナビゲーションウィンドウで
□リンクとして表示する、にはお気に入りに追加する。
□メニューとして表示する、にはライブラリに「お気に入り」を作って、そこに追加する。

« 2012年6月 | トップページ | 2012年8月 »