'################################################### ' GREP 2 (WSH) '  TjSoft-48, Taiju, 2007.10.20 ' 【使い方】 '  「真魚」エディタから実行する。 '  選択テキストについて用語説明ファイルの '  専用フォルダを作り、HTML形式で書き出す。 '################################################### sText = Editor.GetSelText sThisFileName = Editor.GetFileName If Len(sText) < 6 Then sBriefText = sText Else sBriefText = Len(sText, 5) End If Set fs = CreateObject("Scripting.FileSystemObject") Set objFolder = fs.GetFolder(".") sFolderName = fs.GetParentFolderName(sThisFileName) If fs.FolderExists(sFolderName & "gloss") Then sFileName = sFolderName & "gloss\" & sBriefText & ".htm" Else fs.CreateFolder(sFolderName & "gloss") sFileName = sFolderName & "gloss\" & sBriefText & ".htm" End If If fs.FileExists(sFileName) Then Set objGlosFile = fs.OpenTextFile(sFileName, 8) Else Set objGlosFile = fs.CreateTextFile(sFileName) End If With objGlosFile .WriteLine("") .WriteLine("") .WriteLine("") .WriteLine("") .WriteBlankLines(1) .WriteLine("" & sText & "") .WriteLine("") .WriteLine("") .WriteBlankLines(1) .WriteLine("
") .WriteLine("<<<<<") .WriteLine("
") .WriteBlankLines(1) .WriteLine("

" & sText & "

") .WriteBlankLines(1) .WriteBlankLines(1) .WriteLine("") .WriteLine("") End With objGlosFile.Close sText = Editor.SetSelText("" & sText & "")