/*コメント*/を取り除く in HSP DouKaku?

/コメント/を取り除く

与えられた文字列から「/*」と「*/」で挟まれた部分を取り除くコードを書いてください。

なお、「/*」と入力末尾で挟まれた部分も取り除いてください。つまり、入力が「AAA/*BBB」なら出力は「AAA」です。また、コメントは入れ子になりません。入力が「AAA/*BBB/*CCC*/DDD*/EEE」のとき、ひとつめの「*/」でコメントが終わるので出力は「AAADDD*/EEE」になります。「//」や「**」が混ざる場合の挙動は失敗しやすいので要注意です。

Pythonでの実行例は下のようになります：

>>> remove_comment('AAA')
'AAA'
>>> remove_comment('AAA/*BBB*/')
'AAA'
>>> remove_comment('AAA/*BBB')
'AAA'
>>> remove_comment('AAA/*BBB*/CCC')
'AAACCC'
>>> remove_comment('AAA/*BBB/*CCC*/DDD*/EEE')
'AAADDD*/EEE'
>>> remove_comment('AAA/a//*BB*B**/CCC')
'AAA/a/CCC'

このお題は匿名での投稿を参考にして作成しました。ありがとうございます。

post comment

Posted feedbacks - HSP

単純に実装するとこれが最もシンプルでしょうか。
入力文字列が複数行にわたることも考えられるので、getstrは利用していません。

#module
#defcfunc remove_comment str p1
    source = p1
    result = ""
    index = 0
    repeat
        ins = instr( source, index, "/*" )
        if ( ins < 0 ) {
            result += strmid( source, index, strlen( source ) - index)
            break
        }
        result += strmid( source, index, ins )
        index += ins + strlen( "/*" )

        ins = instr( source, index, "*/" )
        if ( ins < 0 ) {
            break
        }
        index += ins + strlen( "*/" )
    loop
    return result
#global
    mes remove_comment( "AAA" )
    mes remove_comment( "AAA/*BBB*/" )
    mes remove_comment( "AAA/*BBB" )
    mes remove_comment( "AAA/*BBB*/CCC" )
    mes remove_comment( "AAA/*BBB/*CCC*/DDD*/EEE" )
    mes remove_comment( "AAA/a//*BB*B**/CCC" )

DouKaku?

/コメント/を取り除く

Posted feedbacks - HSP

Index

Feed

Other

Link

Pathtraq