MeryWiki - 利用者の投稿記録 [ja]

ファイルロック (排他制御) 的なもの

2019-03-09T06:00:45Z

PebblePot:

Mery で開いた文書を、
無理やり(!?) ファイルロックするマクロです。

ようは、Mery で文書を開いている間、
その文書を、他から弄られないようにします。

== 欠点 ==
*マクロにて、文書を閉じる (Document.Close) 処理を行っている場合、そのマクロに手を加える必要がある
:　Utility\FileLock.vbs を非同期で呼び出し、少し待機するという処理を追加
*ファイルロック処理が、常にフラグ用ファイル有無を確認するという処理なので、文書をたくさん開くと、フォルダへのアクセスが頻発する。。
:　フォルダへのアクセスを抑えたバージョンは、現状非公開 (コードが長ったらしいので..)

== 構成 ==
:Mery\Macros
:│
:｜　　　　　【必須】
:├─ Utility
:│　　└ FileLock.vbs
:│　　→ マクロへの追加は不要
:│
:├─ FileLock｜Lock.vbs
:│　　→ イベント [ファイルを開いた時] [ファイルを保存した時] に登録を
:├─ FileLock｜Unlock.vbs
:│　　→ イベント [文書を閉じた時] [ファイルを保存する前] に登録を
:├─ FileLock｜Unlock all.vbs
:｜　　→ 文書を全アンロック (非常時用)
:│
:│　　　　　【おまけ (サンプル) 】
:├─ Close｜Documents.vbs
:│　　→ すべての文書を閉じる (新規文書１つは残す)
:└─ Open｜Again.vbs
:　　　→ 自動選択で読み直し

== ソースコード ==

■ '''FileLock.vbs'''　… Macros\Utility フォルダの中に置く
<source lang="vbscript">
'==============================================================================
' ファイルロック (Mery用)
'==============================================================================
' 指定されたファイル(１つ)の、ファイルロック状態を切り換える
'
' 仕様
' - 非同期で呼び出されることを想定
' ( 同期だと、Mery が待機中のまま固まってしまう )
' - コマンドライン引数で、動作を指定する
' - １) モード
' - 1：ロック … 実行ファイルなどの場合、実行だけは可能
' - 0：アンロック
' - -1：全アンロック (非常時用!?)
' - ２) ロック対象ファイルの絶対パス (全アンロックの場合は不要)
' - 監視は、各々のスクリプトが非同期で行う
'
' 例 (Mery用マクロ)
' - 準備
' | Set sh = CreateObject("WScript.Shell")
' - ロック
' | sh.Run """Utility\FileLock.vbs"" 1 """ & Document.FullName & """"
' - アンロック
' | sh.Run """Utility\FileLock.vbs"" 0 """ & Document.FullName & """"
' | Window.Sleep 350
' | '└ 監視する間隔を考慮し、少し待機 (Sleep) する必要あり
' | ( 設定値より長く Sleep をすべき / ただし、長すぎてもＮＧ.. )
' - 全アンロック (非常時用!?)
' | sh.Run """Utility\FileLock.vbs"" -1"
' | Window.Sleep 350
' | '└ 監視する間隔を考慮し、少し待機 (Sleep) する必要あり
' | ( 設定値より長く Sleep をすべき / ただし、長すぎてもＮＧ.. )
' - 補足
' - Sell.Run の第３引数を、省略 or False にすると、非同期で実行される
' ( ちなみに第２引数は、実行時のウィンドウの外観 )
'
' 仕組み
' - ロックは、まずロック中フラグ用のファイルを作成し、
' そのファイルが削除されるまで、スクリプトで対象ファイルを開いたまま待機
' - アンロックは、ロックの際に作成したロック中フラグ用のファイルを削除
'
' その他
' - 管理者権限が必要な場合や、既にロック状態なものは、ロックできない
' - ロック中フラグ用の一時フォルダ内のファイルは、ロックの対象外
' - 手動でアンロックしたい場合、ロック中フラグ用のファイルを削除すればＯＫ
'------------------------------------------------------------------------------
' [x] 文書を開いたら開いただけ、バックグランドで VBScript (WSH) が動作する
' [x] ロック対象の絶対パスが長すぎると、正常に動作しない可能性がある
' [x] コマンドライン引数は、厳密なチェックは行っていない (不正な値はＮＧ)
' [x] 一時ファイルの作成先に管理者権限が必要な場合、正常に動作しない
' [x]バグ/欠陥 [･]その他
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

'=== Global ===================================================================
Dim cfg : Set cfg = WScript.CreateObject("Scripting.Dictionary")
cfg.Add "Enable" , True
'└ ファイルロックを行わせる (当スクリプトを有効にする) かどうか <真理値>
cfg.Add "Interval" , 250
'└ ロック中フラグ用のファイルを監視する間隔 (ミリ秒) <整数:100~>
cfg.Add "TempFolder", "Temp"
'└ 一時フォルダの名前 <文字列>
' - 変更の際は、Mery を終了させておくべき (ロック中の変更はＮＧ)
' - 当スクリプトと同じディレクトリに作成される
' - フォルダ名に使える文字限定
cfg.Add "LockFix" , Array("Lock：", ".tmp")
'└ ロック中フラグ用のファイル名に付ける辞 (接頭辞，接尾辞) <文字列の配列>
' - 変更の際は、Mery を終了させておくべき (ロック中の変更はＮＧ)
' - ファイル名に使える文字限定

Const MODE_LOCK = 1 'ロック
Const MODE_UNLOCK = 0 'アンロック
Const MODE_UNLOCK_ALL = -1 '全アンロック (非常時用!?)
Const MODE_INELIGIBLE = 99 '対象外

Dim fso, sh
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set sh = WScript.CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(WScript.ScriptFullName)
If 0 = WScript.Arguments.Count Then
MsgBox Join( Array( _
"--- ファイルロック ---", _
"", _
"コマンドライン引数", _
" - １) モード … [1] ロック [0] アンロック [-1] 全アンロック", _
" - ２) ロック対象ファイルの絶対パス (全アンロックの場合は不要)", _
"", _
"※今回は、何もせずに終了します。" _
), vbLf ), vbInformation, _
"VBScript (WSH) for Mery's macros"
ElseIf cfg("Enable") Then
Main
End If
Set cfg = Nothing
Set sh = Nothing
Set fso = Nothing

'=== Procedure ================================================================
Sub Main()
Dim reg, oFile, bReadOnly, nMode, sLock, sFix(1)
Set reg = WScript.CreateObject("VBScript.RegExp")

nMode = CInt( WScript.Arguments(0) )
If 1 < WScript.Arguments.Count Then
If fso.GetAbsolutePathName( cfg("TempFolder") ) _
= fso.GetParentFolderName( WScript.Arguments(1) ) _
Or Not fso.FileExists( WScript.Arguments(1) ) Then
nMode = MODE_INELIGIBLE
Else
reg.Pattern = ":?\\"
reg.Global = True
sLock = fso.BuildPath( _
cfg("TempFolder"), _
cfg("LockFix")(0) _
& reg.Replace( WScript.Arguments(1), "-" ) & "-" _
& reg.Execute( WScript.Arguments(1) ).Count _
& Hex( InStrRev( WScript.Arguments(1), "\" ) ) _
& cfg("LockFix")(1) )
End If
End If

Select Case nMode
'ロック
Case MODE_LOCK
'ロック中フラグ用のファイルを作成し、
'それが削除されるまで、ファイルロックを行う (待機)
'※ロック方法は、読み取り専用で開く＆読み取り専用にする
' ( 既にロック中だった場合は、何もしない )
If Not IsLocked( WScript.Arguments(1) ) Then
On Error Resume Next
fso.CreateFolder cfg("TempFolder")
fso.GetFolder( cfg("TempFolder") ).Attributes = 2
On Error GoTo 0
Set oFile = fso.GetFile( WScript.Arguments(1) )
If 1 And oFile.Attributes Then
bReadOnly = True
Else
oFile.Attributes = oFile.Attributes + 1
End If
fso.CreateTextFile(sLock).Close
Set oFile = fso.OpenTextFile( WScript.Arguments(1), 1 )
Wait(sLock) : oFile.Close
If Not bReadOnly Then
Set oFile = fso.GetFile( WScript.Arguments(1) )
oFile.Attributes = oFile.Attributes - 1
End If
End If

'アンロック
Case MODE_UNLOCK
'ロック中フラグ用のファイルを削除
If fso.FileExists(sLock) Then fso.DeleteFile sLock

'全アンロック
Case MODE_UNLOCK_ALL
'ロック中フラグ用のファイルと思しきものを、すべて削除
reg.Pattern = "([\^\$\+\.\[\]\{\}])"
reg.Global = True
sFix(0) = reg.Replace( cfg("LockFix")(0), "\$1" )
sFix(1) = reg.Replace( cfg("LockFix")(1), "\$1" )
reg.Pattern = "^" & sFix(0) & ".+" & sFix(1) & "$"
reg.Global = False
For Each oFile In fso.GetFolder( cfg("TempFolder") ).Files
If reg.Test(oFile.Name) Then _
fso.DeleteFile fso.BuildPath( cfg("TempFolder"), oFile.Name )
Next
End Select

Set oFile = Nothing
Set reg = Nothing
End Sub

'--- 待機 ---------------------------------------------------------------------
' Summary | 指定ファイルが存在する間、待機する
' Param | - フラグ用ファイルのパス
' Return | －
' Note | －
Sub Wait( ByVal sFile )
Do While fso.FileExists(sFile) : WScript.Sleep cfg("Interval") : Loop
End Sub

'--- ファイルロックの判定 -----------------------------------------------------
' Summary | ファイルロックされているかどうかを返す
' Param | - ファイルの絶対パス
' Return | ファイルロックされているかどうか
' Note | ・ファイル名を変更できるかどうかで判定している
' | ・ファイルロックされていない＆読み取り専用の場合は、False が返る
Function IsLocked( ByVal sFile )
Dim oFile, sName

IsLocked = False
Set oFile = fso.GetFile(sFile)
sName = oFile.Name
On Error Resume Next
oFile.Name = fso.GetTempName() '読み取り専用でも成功する (変更される)
If 0 <> Err.Number Then
IsLocked = True
Else
oFile.Name = sName
End If
On Error GoTo 0

Set oFile = Nothing
End Function
</source>

■ '''FileLock｜Lock.vbs'''　… イベント登録を忘れずに
<source lang="vbscript">
#title = "文書をロック"
'------------------------------------------------------------------------------
' Summary | 開いてある文書をファイルロックする
' Assumption | イベントで実行 (ファイルを開いた時 / ファイルを保存した時)
'
' ・バグ/欠陥
' - マクロによるアクションの場合、
' イベントは発生せず、よってこのマクロが実行されない
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
For i = 0 To Editor.Documents.Count - 1
sh.Run """Utility\FileLock.vbs"" 1 """ _
& Editor.Documents.Item(i).FullName & """"
Next
Set sh = Nothing
Set fso = Nothing
</source>

■ '''FileLock｜Unlock.vbs'''　… イベント登録を忘れずに
<source lang="vbscript">
#title = "文書をアンロック"
'------------------------------------------------------------------------------
' Summary | ファイルロックしてある文書をアンロックする
' Assumption | イベントで実行 (文書を閉じた時 / ファイルを保存する前)
'
' ・バグ/欠陥
' - マクロによるアクションの場合、
' イベントは発生せず、よってこのマクロが実行されない
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
If "" <> Document.FullName Then
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
sh.Run """Utility\FileLock.vbs"" 0 """ & Document.FullName & """"
Window.Sleep 350
'└ 必ず、Utility\FileLock.vbs の Interval 設定より大きな値にすべき
' ( ただし、大きすぎると再ロックまでの時間がかかってしまう.. )
End If
Set sh = Nothing
Set fso = Nothing
</source>

■ '''FileLock｜Unlock all.vbs'''
<source lang="vbscript">#title = "文書を全アンロック"
'------------------------------------------------------------------------------
' Summary | ファイルロックしてある文書をすべてアンロックする
' Assumption | ポップアップメニュー etc. (非常時用!?)
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
sh.Run """Utility\FileLock.vbs"" -1"
Window.Sleep 350
'└ 必ず、Utility\FileLock.vbs の Interval 設定より大きな値にすべき
' ( ただし、大きすぎると再ロックまでの時間がかかってしまう.. )
Set sh = Nothing
Set fso = Nothing
</source>

■ '''Close｜Documents.vbs'''
<source lang="vbscript">
#title = "すべての文書を閉じる"
'------------------------------------------------------------------------------
' Summary | 現エディタウィンドウの、すべての文書を閉じる (新規文書１つは残す)
' Assumption | ポップアップメニュー，ツールバー
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
Do While 1 < Editor.Documents.Count
sh.Run """Utility\FileLock.vbs"" 0 """ _
& Editor.ActiveDocument.FullName & """"
Editor.ActiveDocument.Close
Loop
If 0 < Editor.Documents.Count Then
sh.Run """Utility\FileLock.vbs"" 0 """ _
& Editor.ActiveDocument.FullName & """"
Editor.ActiveDocument.Close
End If
Set sh = Nothing
Set fso = Nothing
</source>

■ '''Open｜Again.vbs'''
<source lang="vbscript">
#title = "自動選択で読み直し"
'------------------------------------------------------------------------------
' Summary | 編集中の文書を、エンコーディング自動選択で読み直す
' Assumption | ポップアップメニュー，ツールバー
'
' ・バグ/欠陥
' - タブ位置が、一番右側に開き直されてしまう (本当は同じ位置に開き直したい)
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh, sPath, nCount
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
sPath = Editor.ActiveDocument.FullName
nCount = Editor.Documents.Count
sh.Run """Utility\FileLock.vbs"" 0 """ & sPath & """"
Window.Sleep 350
'└ 必ず、Utility\FileLock.vbs の Interval 設定より大きな値にすべき
' ( ただし、大きすぎると再ロックまでの時間がかかってしまう.. )
Editor.ActiveDocument.Close
If 1 < nCount Then Editor.NewFile
Editor.OpenFile(sPath)
Set sh = Nothing
Set fso = Nothing
</source>

ファイルロック (排他制御) 的なもの

2019-03-09T05:53:00Z

PebblePot: ページの作成:「Mery で開いた文書を、無理やり(!?) ファイルロックするマクロです。ようは、Mery で文書を開いている間、その文書を、他か...」

Mery で開いた文書を、
無理やり(!?) ファイルロックするマクロです。

ようは、Mery で文書を開いている間、
その文書を、他から弄られないようにします。

== 欠点 ==
*マクロにて、文書を閉じる (Document.Close) 処理を行っている場合、そのマクロに手を加える必要がある
:　Utility\FileLock.vbs を非同期で呼び出し、少し待機するという処理を追加
*ファイルロック処理が、常にフラグ用ファイル有無を確認するという処理なので、文書をたくさん開くと、フォルダへのアクセスが頻発する。。
:　フォルダへのアクセスを抑えたバージョンは、現状非公開 (コードが長ったらしいので..)

== 構成 ==
:Mery\Macros
:│
:｜　　　　　【必須】
:├─ Utility
:│　　└ FileLock.vbs
:│　　→ マクロへの追加は不要
:│
:├─ FileLock｜Lock.vbs
:│　　→ イベント [ファイルを開いた時] [ファイルを保存した時] に登録を
:├─ FileLock｜Unlock.vbs
:│　　→ イベント [ファイルを開いた時] [ファイルを保存した時] に登録を
:├─ FileLock｜Unlock all.vbs
:｜　　→ 文書を全アンロック (非常時用)
:│
:│　　　　　【おまけ (サンプル) 】
:├─ Close｜Documents.vbs
:│　　→ すべての文書を閉じる (新規文書１つは残す)
:└─ Open｜Again.vbs
:　　　→ 自動選択で読み直し

== ソースコード ==

■ '''FileLock.vbs'''　… Macros\Utility フォルダの中に置く
<source lang="vbscript">
'==============================================================================
' ファイルロック (Mery用)
'==============================================================================
' 指定されたファイル(１つ)の、ファイルロック状態を切り換える
'
' 仕様
' - 非同期で呼び出されることを想定
' ( 同期だと、Mery が待機中のまま固まってしまう )
' - コマンドライン引数で、動作を指定する
' - １) モード
' - 1：ロック … 実行ファイルなどの場合、実行だけは可能
' - 0：アンロック
' - -1：全アンロック (非常時用!?)
' - ２) ロック対象ファイルの絶対パス (全アンロックの場合は不要)
' - 監視は、各々のスクリプトが非同期で行う
'
' 例 (Mery用マクロ)
' - 準備
' | Set sh = CreateObject("WScript.Shell")
' - ロック
' | sh.Run """Utility\FileLock.vbs"" 1 """ & Document.FullName & """"
' - アンロック
' | sh.Run """Utility\FileLock.vbs"" 0 """ & Document.FullName & """"
' | Window.Sleep 350
' | '└ 監視する間隔を考慮し、少し待機 (Sleep) する必要あり
' | ( 設定値より長く Sleep をすべき / ただし、長すぎてもＮＧ.. )
' - 全アンロック (非常時用!?)
' | sh.Run """Utility\FileLock.vbs"" -1"
' | Window.Sleep 350
' | '└ 監視する間隔を考慮し、少し待機 (Sleep) する必要あり
' | ( 設定値より長く Sleep をすべき / ただし、長すぎてもＮＧ.. )
' - 補足
' - Sell.Run の第３引数を、省略 or False にすると、非同期で実行される
' ( ちなみに第２引数は、実行時のウィンドウの外観 )
'
' 仕組み
' - ロックは、まずロック中フラグ用のファイルを作成し、
' そのファイルが削除されるまで、スクリプトで対象ファイルを開いたまま待機
' - アンロックは、ロックの際に作成したロック中フラグ用のファイルを削除
'
' その他
' - 管理者権限が必要な場合や、既にロック状態なものは、ロックできない
' - ロック中フラグ用の一時フォルダ内のファイルは、ロックの対象外
' - 手動でアンロックしたい場合、ロック中フラグ用のファイルを削除すればＯＫ
'------------------------------------------------------------------------------
' [x] 文書を開いたら開いただけ、バックグランドで VBScript (WSH) が動作する
' [x] ロック対象の絶対パスが長すぎると、正常に動作しない可能性がある
' [x] コマンドライン引数は、厳密なチェックは行っていない (不正な値はＮＧ)
' [x] 一時ファイルの作成先に管理者権限が必要な場合、正常に動作しない
' [x]バグ/欠陥 [･]その他
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

'=== Global ===================================================================
Dim cfg : Set cfg = WScript.CreateObject("Scripting.Dictionary")
cfg.Add "Enable" , True
'└ ファイルロックを行わせる (当スクリプトを有効にする) かどうか <真理値>
cfg.Add "Interval" , 250
'└ ロック中フラグ用のファイルを監視する間隔 (ミリ秒) <整数:100~>
cfg.Add "TempFolder", "Temp"
'└ 一時フォルダの名前 <文字列>
' - 変更の際は、Mery を終了させておくべき (ロック中の変更はＮＧ)
' - 当スクリプトと同じディレクトリに作成される
' - フォルダ名に使える文字限定
cfg.Add "LockFix" , Array("Lock：", ".tmp")
'└ ロック中フラグ用のファイル名に付ける辞 (接頭辞，接尾辞) <文字列の配列>
' - 変更の際は、Mery を終了させておくべき (ロック中の変更はＮＧ)
' - ファイル名に使える文字限定

Const MODE_LOCK = 1 'ロック
Const MODE_UNLOCK = 0 'アンロック
Const MODE_UNLOCK_ALL = -1 '全アンロック (非常時用!?)
Const MODE_INELIGIBLE = 99 '対象外

Dim fso, sh
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set sh = WScript.CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(WScript.ScriptFullName)
If 0 = WScript.Arguments.Count Then
MsgBox Join( Array( _
"--- ファイルロック ---", _
"", _
"コマンドライン引数", _
" - １) モード … [1] ロック [0] アンロック [-1] 全アンロック", _
" - ２) ロック対象ファイルの絶対パス (全アンロックの場合は不要)", _
"", _
"※今回は、何もせずに終了します。" _
), vbLf ), vbInformation, _
"VBScript (WSH) for Mery's macros"
ElseIf cfg("Enable") Then
Main
End If
Set cfg = Nothing
Set sh = Nothing
Set fso = Nothing

'=== Procedure ================================================================
Sub Main()
Dim reg, oFile, bReadOnly, nMode, sLock, sFix(1)
Set reg = WScript.CreateObject("VBScript.RegExp")

nMode = CInt( WScript.Arguments(0) )
If 1 < WScript.Arguments.Count Then
If fso.GetAbsolutePathName( cfg("TempFolder") ) _
= fso.GetParentFolderName( WScript.Arguments(1) ) _
Or Not fso.FileExists( WScript.Arguments(1) ) Then
nMode = MODE_INELIGIBLE
Else
reg.Pattern = ":?\\"
reg.Global = True
sLock = fso.BuildPath( _
cfg("TempFolder"), _
cfg("LockFix")(0) _
& reg.Replace( WScript.Arguments(1), "-" ) & "-" _
& reg.Execute( WScript.Arguments(1) ).Count _
& Hex( InStrRev( WScript.Arguments(1), "\" ) ) _
& cfg("LockFix")(1) )
End If
End If

Select Case nMode
'ロック
Case MODE_LOCK
'ロック中フラグ用のファイルを作成し、
'それが削除されるまで、ファイルロックを行う (待機)
'※ロック方法は、読み取り専用で開く＆読み取り専用にする
' ( 既にロック中だった場合は、何もしない )
If Not IsLocked( WScript.Arguments(1) ) Then
On Error Resume Next
fso.CreateFolder cfg("TempFolder")
fso.GetFolder( cfg("TempFolder") ).Attributes = 2
On Error GoTo 0
Set oFile = fso.GetFile( WScript.Arguments(1) )
If 1 And oFile.Attributes Then
bReadOnly = True
Else
oFile.Attributes = oFile.Attributes + 1
End If
fso.CreateTextFile(sLock).Close
Set oFile = fso.OpenTextFile( WScript.Arguments(1), 1 )
Wait(sLock) : oFile.Close
If Not bReadOnly Then
Set oFile = fso.GetFile( WScript.Arguments(1) )
oFile.Attributes = oFile.Attributes - 1
End If
End If

'アンロック
Case MODE_UNLOCK
'ロック中フラグ用のファイルを削除
If fso.FileExists(sLock) Then fso.DeleteFile sLock

'全アンロック
Case MODE_UNLOCK_ALL
'ロック中フラグ用のファイルと思しきものを、すべて削除
reg.Pattern = "([\^\$\+\.\[\]\{\}])"
reg.Global = True
sFix(0) = reg.Replace( cfg("LockFix")(0), "\$1" )
sFix(1) = reg.Replace( cfg("LockFix")(1), "\$1" )
reg.Pattern = "^" & sFix(0) & ".+" & sFix(1) & "$"
reg.Global = False
For Each oFile In fso.GetFolder( cfg("TempFolder") ).Files
If reg.Test(oFile.Name) Then _
fso.DeleteFile fso.BuildPath( cfg("TempFolder"), oFile.Name )
Next
End Select

Set oFile = Nothing
Set reg = Nothing
End Sub

'--- 待機 ---------------------------------------------------------------------
' Summary | 指定ファイルが存在する間、待機する
' Param | - フラグ用ファイルのパス
' Return | －
' Note | －
Sub Wait( ByVal sFile )
Do While fso.FileExists(sFile) : WScript.Sleep cfg("Interval") : Loop
End Sub

'--- ファイルロックの判定 -----------------------------------------------------
' Summary | ファイルロックされているかどうかを返す
' Param | - ファイルの絶対パス
' Return | ファイルロックされているかどうか
' Note | ・ファイル名を変更できるかどうかで判定している
' | ・ファイルロックされていない＆読み取り専用の場合は、False が返る
Function IsLocked( ByVal sFile )
Dim oFile, sName

IsLocked = False
Set oFile = fso.GetFile(sFile)
sName = oFile.Name
On Error Resume Next
oFile.Name = fso.GetTempName() '読み取り専用でも成功する (変更される)
If 0 <> Err.Number Then
IsLocked = True
Else
oFile.Name = sName
End If
On Error GoTo 0

Set oFile = Nothing
End Function
</source>

■ '''FileLock｜Lock.vbs'''　… イベント登録を忘れずに
<source lang="vbscript">
#title = "文書をロック"
'------------------------------------------------------------------------------
' Summary | 開いてある文書をファイルロックする
' Assumption | イベントで実行 (ファイルを開いた時 / ファイルを保存した時)
'
' ・バグ/欠陥
' - マクロによるアクションの場合、
' イベントは発生せず、よってこのマクロが実行されない
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
For i = 0 To Editor.Documents.Count - 1
sh.Run """Utility\FileLock.vbs"" 1 """ _
& Editor.Documents.Item(i).FullName & """"
Next
Set sh = Nothing
Set fso = Nothing
</source>

■ '''FileLock｜Unlock.vbs'''　… イベント登録を忘れずに
<source lang="vbscript">
#title = "文書をアンロック"
'------------------------------------------------------------------------------
' Summary | ファイルロックしてある文書をアンロックする
' Assumption | イベントで実行 (文書を閉じた時 / ファイルを保存する前)
'
' ・バグ/欠陥
' - マクロによるアクションの場合、
' イベントは発生せず、よってこのマクロが実行されない
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
If "" <> Document.FullName Then
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
sh.Run """Utility\FileLock.vbs"" 0 """ & Document.FullName & """"
Window.Sleep 350
'└ 必ず、Utility\FileLock.vbs の Interval 設定より大きな値にすべき
' ( ただし、大きすぎると再ロックまでの時間がかかってしまう.. )
End If
Set sh = Nothing
Set fso = Nothing
</source>

■ '''FileLock｜Unlock all.vbs'''
<source lang="vbscript">#title = "文書を全アンロック"
'------------------------------------------------------------------------------
' Summary | ファイルロックしてある文書をすべてアンロックする
' Assumption | ポップアップメニュー etc. (非常時用!?)
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
sh.Run """Utility\FileLock.vbs"" -1"
Window.Sleep 350
'└ 必ず、Utility\FileLock.vbs の Interval 設定より大きな値にすべき
' ( ただし、大きすぎると再ロックまでの時間がかかってしまう.. )
Set sh = Nothing
Set fso = Nothing
</source>

■ '''Close｜Documents.vbs'''
<source lang="vbscript">
#title = "すべての文書を閉じる"
'------------------------------------------------------------------------------
' Summary | 現エディタウィンドウの、すべての文書を閉じる (新規文書１つは残す)
' Assumption | ポップアップメニュー，ツールバー
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
Do While 1 < Editor.Documents.Count
sh.Run """Utility\FileLock.vbs"" 0 """ _
& Editor.ActiveDocument.FullName & """"
Editor.ActiveDocument.Close
Loop
If 0 < Editor.Documents.Count Then
sh.Run """Utility\FileLock.vbs"" 0 """ _
& Editor.ActiveDocument.FullName & """"
Editor.ActiveDocument.Close
End If
Set sh = Nothing
Set fso = Nothing
</source>

■ '''Open｜Again.vbs'''
<source lang="vbscript">
#title = "自動選択で読み直し"
'------------------------------------------------------------------------------
' Summary | 編集中の文書を、エンコーディング自動選択で読み直す
' Assumption | ポップアップメニュー，ツールバー
'
' ・バグ/欠陥
' - タブ位置が、一番右側に開き直されてしまう (本当は同じ位置に開き直したい)
'------------------------------------------------------------------------------
' 2019-03-09
Option Explicit

Dim fso, sh, sPath, nCount
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
sPath = Editor.ActiveDocument.FullName
nCount = Editor.Documents.Count
sh.Run """Utility\FileLock.vbs"" 0 """ & sPath & """"
Window.Sleep 350
'└ 必ず、Utility\FileLock.vbs の Interval 設定より大きな値にすべき
' ( ただし、大きすぎると再ロックまでの時間がかかってしまう.. )
Editor.ActiveDocument.Close
If 1 < nCount Then Editor.NewFile
Editor.OpenFile(sPath)
Set sh = Nothing
Set fso = Nothing
</source>

マクロライブラリ

2019-03-09T05:47:08Z

PebblePot:

Mery で使用できるマクロを集めたライブラリです。

スクリプトを拡張子「js」 (JavaScript、JScript の場合) にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。

マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

== テキスト操作補助 ==

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (Kuro)
*[[Zen Coding]] (Kuro)
*[[CSV のカーソル位置の列を削除]] (Kuro)
*[[対応する括弧に移動]] (Kuro, kurama, masme) update 2017/05/27
*[[選択文字列を強調]] (Kuro)
*[[行頭に移動]] (Kuro, 他) update 2014/03/15
*[[バイト数]] (Kuro, ks, sukemaru) update 2018/11/18 文書全体の文字数・行数表示にも対応
*[[日付と時刻を挿入]] (n, masme, sukemaru) update 2018/12/09
*[[日付と時刻を挿入（カレンダー版）]] (papagoat) update 2016/05/24
*[[選択範囲を上下に移動]] (ks)
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (papagoat) update 2013/11/22
*[[非選択状態でも逆インデント]] (papagoat)
*[[ラクラク罫線]] (手石) Update 2012/12/22
*[[ファイル:XHTML.zip]] (アラフォー親父) HTMLタグを、ショートカット・キーに登録して入力するマクロ（文章挟み込み仕様）
*[[矩形ペースト]] (手石)
*[[自動箇条書き]] (手石) update 2013/03/15
*[[インデントを考慮した折り返し（改行挿入）]] (手石) update 2013/02/23
*[[青空文庫用整形補助]] (ks, 有志)
*[[部分編集]] (ks)
*[[文字カウント]] (masme) 2014/02/01, update 2018/08/04
*[[字下げ・字上げ]](インデント・逆インデント) (masme, sukemaru) 2014/02/09, update 2018/11/16
:*「[[字下げ・字上げ#インデント|インデント／逆インデント]]」を追加
*[[数値を増減]](インクリメント・デクリメント) (masme) 2014/06/17, update 2016/02/28
*[[少し便利な Undo/Redo]] (ks)
*[[自動ルビ振り]] (急急如律令)
*[[貼付け実行後のカーソル位置を貼付け文字列の先頭にする]] (yuko, sukemaru) update 2018/11/14
*[[ドイツ語特殊文字]] (鯉)
*[[矩形選択範囲の各行先頭に文字挿入]] (yuko)
*[[文章で使用されている文字をユニーク抽出]] (Kuro)
*[[アウトライン用ノード追加]] (mik) 2018/06/25
*[[アウトラインのノードレベルを上げる]] (mik) 2018/06/25
*[[アウトラインのノードレベルを下げる]] (mik) 2018/06/25
*[[アウトラインのノードの完了/未完了を切り替える]] (mik) 2018/10/18 update
*[[ハルナアウトライン用の完了/未完了フラグをノード名に反映する]] (mik) 2018/10/18 update
*[[Markdown文書で改行時にリスト、引用ブロック開始記号を自動入力する]] (catfist, yuko) 2018/10/15 update
*[[行を複製 (複数行可)]] (sukemaru) 2018/08/24
*[[行の先頭に貼り付け]] (sukemaru) 2018/08/24
*[[カッコで囲う]] (ポップアップメニューあり)　(sukemaru) last modified 2018/11/19
: ・簡易版「カッコで囲う (ポップアップメニューなし)」 ・「引用符を追加／削除」 ・人柱版追加コード「行頭/行末から任意の文字数／文字列を削除」
*[[引用符／コメント]] (※旧「引用の追加」マクロを増補改訂)　(sukemaru) 2018/10/28
*[[TrueとFalse_を切り替える|YES／NO マクロ]] (sukemaru) update 2018/11/27 ※「TrueとFalseを切り替える」
*[[行頭か行末または選択範囲の始点か終点]] (sukemaru) 2018/12/03
*[[定型文を挿入]] (sukemaru) 2018/12/03

== ファイル操作補助 ==

*[[文字列中のパス起動]] (ks)
:*[[選択範囲のURL・パスを開く|ひらけゴマ！]] (sukemaru) update 2018/12/05 ※「選択範囲のURL・パスを開く」
*[[自動バックアップ]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]] (ks)
*[[パスを取得]] (Kuro)
*[[フォルダ内のファイルをすべて開く]] (Kuro)
*[[ファイルを比較]] (Kuro)
*[[ファイル名を引数にしてアプリ起動]] (Kuro, miso)
*[[ブックマーク一覧ジャンプ]] (goat) update 2012/09/24
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[SDIウィンドウの記憶と復帰]] (papagoat) Update 2012/10/23 (説明文変更 2013/11/22)
*[[よく使うフォルダ]] (手石) Update 2014/02/22
*[[ファイル（選択範囲）の仮保存]] (手石)
*[[ポップアップメニューでファイル選択]] (手石)
*[[フォルダツリーをポップアップ表示]] (n)
*[[タグジャンプ]] (o)
*[[ウィンドウの位置とサイズを拡張子で指定]] (papagoat) Update 2014/04/17
*[[編集モードの自動選択]] または '''書き換え禁止で開く''' (sukemaru, Bleat) Update 2019/02/15
*[[書き換え禁止モード色反転]] (Bleat)
*[[特定のフォルダで「ファイルを開く」ダイアログ]] (sukemaru) fixed 2018/12/19
*[[ファイルのプロパティ]] (sukemaru) 2018/12/18
*[[すべて閉じる]] (sukemaru) 2018/12/19
*[[文書が変更されていなければ変更マークを消す]] (Noah)
*[[変更なしのタブをすべて閉じる]] (Noah)

== 変換・ソート・整形 ==

*[[可変長を固定長に変換]] (Kuro)
*[[SHA でハッシュ化]] (Kuro)
*[[標準変換]] (Kuro)
*[[昇順で並び替え]] (Kuro)
*[[降順で並び替え]] (Kuro)
*[[連続する重複行を削除]] (Kuro)
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)
**[[テキスト整形]] (masme) 2013/09/15, update 2018/01/15
*[[旧漢字から新漢字に変換]] (furu)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[連番の挿入]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石) update 2013/04/16
*[[行並べ替え]] (masme) 2013/08/25, update 2018/04/15
*[[連番を挿入]] (masme) 2013/08/25
*[[GFMをHTMLに変換]] (noonworks) 2014/03/09
*[[基数変換10_16]] (シリル) 2019/02/10
*[[スネークケース ⇔ キャメルケースの変換]] (Noah)
*[[罫線変換]] (シリル) 2019/03/09

== 検索・置換 ==

*[[文書から検索]] (Kuro)
*[[単語を抽出]] (Kuro)
*[[このファイルから検索(マッチしない行)]] (Kuro)
*[[このファイルから検索(マッチする行)]] (Kuro)
*[[タグの外側（内側）だけ置換]] (手石)
*[[ポップアップメニューで検索先にジャンプ]] (手石, sukemaru) Last Update 2018/12/20
*[[検索(SJIS以外)]] + 検索強調を解除 (masme) 2014/09/16, update 2017/06/26
*[https://github.com/TakamiChie/mery-scripts/blob/master/SearchWithMode.js 現在開いているファイルの言語名をつけてWeb検索] (高見知英)→[[https://vine.co/v/eeY59rFMail 実際の動作例]]
*[https://github.com/GunseiPaseri/Mery_macro 文字出現量ランキング] (群生系パセリ) 2015/12/28
*[[検索ヒット数表示]] (ks)
*[[任意の検索エンジンで検索]] (Noah)
*[[デフォルトの検索フラグを設定して検索ウィンドウ表示]] (yuko)
*[[簡易検索一覧]] (シリル) 2018/12/24
*[[簡易検索一覧などをアウトプット]] (シリル) 2018/12/31
*[[複数置換]] (Noah)

== プログラミング補助 ==

*[[Eclipse風コメントアウト]] (ks)
*[[Eclipse風コメントアウト(改)]] (pizz)
*[[スマートインデント(C 構文)]] (ks)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[コードスニペットもどき]] (手石) Update 2012/12/20
*[[コメントマーク付け外し]] (手石, masme, sukemaru) last update 2018/11/19 ※sukemaru版に「人柱用追加コード」
*[[TeX文書のコンパイル]] (手石)
*[[TeX数式のチェック]] (手石)
*[[簡易数式計算]] (ks)
*[[定義へ移動]] (ks)
*[[タブの桁数]] (手石)
*[[行末の空白を削除]] (n) 2014/12/19
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを実行(掲載時点ではバッチファイル・Javascript・Lua・PHP・Perl・Python・Ruby・UWSCに対応。順次追加予定)] (高見知英)
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを構文チェック(掲載時点ではPHP・Perlに対応。順次追加予定)] (高見知英)
*[[説明を出力]] (s) Create 2015/08/16
*[[拡張子からコンソール実行]] (YOS G-spec) 2016/12/11更新

== おもしろ ==

*[[テキストブラウザ]] (Kuro)
*[[Yahoo!天気情報]] (Kuro)
*[[メール送信]] (ks)

== その他 ==

*[[最新版を確認]] (diaphragm)
*[[キーアサイン集]] (ks, masme, 有志) last update 2018/10/08
*[[マテリアルデザインっぽいアイコンと『小マクロ集』]] (sukemaru) last update 2018/12/04
*[[SAPI 使って単語読み上げ]] (miso)
*[[フォルダ選択ダイアログ]] (手石)
*[[HTA(HTML)の自作ダイアログを表示]] (noonworks)
*[[JavaScript を実行]] (n)
*[[ポップアップメニューを手軽に扱う]] (komorebikoboshi)
*[[マクロ・関数をメニューで呼び出す]] (aliquis) 2013/08/19
*[[階層化マクロメニュー]] (ks)
*[[シェルコマンドを実行]] (sasaki)
*[[ポップアップメニューでチェックボックス]] (手石)
*[[ポップアップメニューでラジオボタン]] (手石)
*[[includeライブラリ]] (ks)
*[[マクロ覚え書き（開発者向け）]](ks)
*[[Editor.OpenFile()のポリフィル]](kazy)
*[[折り返しトグル切り替え]] (Bleat, sukemaru) update 2019/02/19
*[[ファイルロック (排他制御) 的なもの]] (PebblePot)