'################################################### ' 文字の繰り返し 2(VBScript) '  TjSoft-34, Taiju, 2007.9.23 ' 【使い方】 '  「真魚」エディタから使用する。 '  選択語句を、指定の回数繰り返して表示する。 '################################################### sTargetString = Editor.GetSelText iTimesCount = UCase(InputBox("繰り返す回数を入力","文字の繰り返し")) For i = 0 To iTimesCount - 1 sConStr = sConStr & sTargetString Next sTargetString = Editor.SetSelText(sConStr)