'################################################### ' 文字列の切り出し 2(WSH) '  TjSoft-64, Taiju, 2007.12.9 ' 【使い方】 '  「真魚」エディタから実行すると、 '  指定文字以後の文字について切り出しを行い、 '  別ファイルに転記する。 '################################################### sTargetString = Editor.GetSelText aryData = Split(sTargetString,Chr(10)) sCStr = InputBox("どの文字から?","文字範囲を指定") For i = 0 To UBound(aryData) If InStr(aryData(i), sCStr) <> 0 Then iSPosI = InStr(aryData(i), sCStr) aryWordI = Mid(aryData(i), iSPosI, Len(aryData(i))) aryData(i) = aryWordI aryWordI = "" Else aryData(i) = "Ω" End If Next sConStr = Join(aryData, vbCr) sConStr = Replace(sConStr, "Ω" & vbCr, "") sConStr = Replace(sConStr, "Ω", "") Mana.NewEditor sTargetString = Editor.SetSelText(sConStr) sConStr = "" Erase aryData