2007/11/08
EmEditor私のマクロその4 アンカータグ付加
Scripting Weblog
http://blogs.wankuma.com/mutaguchi/
という文字列を選択して実行すると
というアンカータグをつくってくれるマクロ。IEと連携するにはこのBookmarkletを併用するといい感じです。
URLだけ選択してもそのURLへのアンカータグを作ってくれます。
便利ー。
'URLにアンカータグを付ける Set RegEx = New RegExp RegEx.Global = True RegEx.MultiLine=True RegEx.Pattern = "(http\:\/\/[\:\w\/\.\?\&\#\~\=\-\+\@\%\,\(\)]+)" Set sel=document.selection If Not sel.IsEmpty Then sText=sel.Text If InStr(sText,vbCrLf)<>0 Then sNewLine=vbCrLf ElseIf InStr(sText,vbCr)<>0 Then sNewLine=vbCr ElseIf InStr(sText,vbLf)<>0 Then sNewLine=vbLf Else sNewLine=vbCrLf End If If InStr(sText,sNewLine)<>0 Then aLine=Split(sText,sNewLine) If Ubound(aLine)=1 Then '2行の場合、1行目をタイトル、2行目をURLとみなしてリンク化 sel.Text="" & aLine(0) & "" Else '複数行の場合、URLのみをリンク化 sel.Text=RegEx.Replace(sText,"$1") End If Else sel.Text=RegEx.Replace(sText,"$1") End If sel.Collapse End If元記事:http://blogs.wankuma.com/mutaguchi/archive/2007/11/08/106982.aspx
プライバシーポリシー