DouKaku?

#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" )