'################################################### ' 分割・結合マクロ 1(VBScript) '  TjSoft-25, Taiju, 2007.9.11、11.29 改訂 ' 【使い方】 '  「真魚」エディタから使用する。 '  選択テキストを指定の文字数・文字種で区切る。 '  あるいは改行コードを削除して結合する。 '################################################### sTargetStrings = Editor.GetSelText iSelectNum = InputBox("文字数で分割=1、文字種で分割=2、結合する=3","操作を選択") Select Case iSelectNum Case 1,"1" iLength = InputBox("何文字ごとに区切るかを指定。") sTargetStrings = Replace(sTargetStrings, Chr(10), "") For i = 1 To Len(sTargetStrings)/iLength sSplittedStrings = sSplittedStrings & Mid(sTargetStrings, i, iLength) & vbCrLf sTargetStrings = Mid(sTargetStrings, iLength, Len(sTargetStrings)) Next sTargetStrings = Editor.SetSelText(sSplittedStrings) Case 2,"2" sSplitter = InputBox("区切りとする文字を入力。") sTargetStrings = Replace(sTargetStrings, Chr(10), "") aryString = Split(sTargetStrings,sSplitter) For i = 0 To UBound(aryString) aryString(i) = aryString(i) & sSplitter & vbCrLf sConcatStrings = sConcatStrings & aryString(i) Next If Right(sTargetStrings,Len(sSplitter)) = sSplitter Then sTargetStrings = Editor.SetSelText(sConcatStrings) Else sConcatStrings = Left(sConcatStrings, Len(sConcatStrings) - Len(sSplitter) -2) sTargetStrings = Editor.SetSelText(sConcatStrings) End If Case 3,"3" sTargetStrings = Replace(sTargetStrings, Chr(10), "") sTargetStrings = Editor.SetSelText(sTargetStrings) End Select