RoleRotate.vbs

RoleRotate.vbs

' RoleRotate.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <katayama.hirofumi.mz@gmail.com>
' This file is public domain software.
' Usage: cscript RoleRotate.vbs > Output.txt

Option Explicit

Sub Main
    Dim s 
    s = "" _ 
    & "ナミは監禁されて非情な実験台にされている子どもたちを放って置けず" _ 
    & "助けようとし、チョッパーは子どもたちが違法な薬物を投与されて" _ 
    & "いることに気づきナミと共に子どもたちのもとに向かいます。" _ 
    & "サンジはナミを襲おうとする敵を蹴散らし、フランキーはチョッパーが" _ 
    & "止めるにもかかわらず大暴れするのでした" 
    
    Dim DEL
    DEL = Chr(&H7F)

    s = Replace(s, "サンジ", DEL & "0")
    s = Replace(s, "チョッパー", DEL & "1")
    s = Replace(s, "ナミ", DEL & "2")
    s = Replace(s, "フランキー", DEL & "3")

    s = Replace(s, DEL & "0", "ナミ")
    s = Replace(s, DEL & "1", "サンジ")
    s = Replace(s, DEL & "2", "フランキー")
    s = Replace(s, DEL & "3", "チョッパー")

    WScript.Echo s
End Sub

Main