Threaded Mode | Linear Mode

Skul · 08-20-2012 11:51 PM

sure

Code:

[FUNCTION char_parse]

LOCAL.ARGS=<ARGS>x

WHILE (<EVAL <STRPOS -1 <STRSUB -1 1 <LOCAL.ARGS>> <LOCAL.ARGS>> +1> >= <dLOCAL.X>)

    LOCAL.ASC=<ASC <STRSUB <dLOCAL.X> 1 <LOCAL.ARGS>>>

    IF (<LOCAL.ASC>==022) || (<LOCAL.ASC>==023) || (<LOCAL.ASC>==025) || (<LOCAL.ASC>==026) || (<LOCAL.ASC>==027) || (<LOCAL.ASC>==028) || (<LOCAL.ASC>==029) || (<LOCAL.ASC>==02A) || (<LOCAL.ASC>==02B) || (<LOCAL.ASC>==02C) || (<LOCAL.ASC>==02D) || (<LOCAL.ASC>==02F) || (<LOCAL.ASC>==03C) || (<LOCAL.ASC>==03D) || (<LOCAL.ASC>==03E) || (<LOCAL.ASC>==05E) || (<LOCAL.ASC>==07C) || (<LOCAL.ASC>==07E)

        IF (STRMATCH(<LOCAL.RETURN>,0))

            LOCAL.RETURN=<ASC <STRSUB <dLOCAL.X> 1 <LOCAL.ARGS>>>

        ELSE

            LOCAL.RETURN=<LOCAL.RETURN><ASC <STRSUB <dLOCAL.X> 1 <LOCAL.ARGS>>>

        ENDIF

    ELSE

        IF (STRMATCH(<LOCAL.RETURN>,0))

            LOCAL.RETURN=<STRSUB <dLOCAL.X> 1 <LOCAL.ARGS>>

        ELSE

            LOCAL.RETURN=<LOCAL.RETURN><STRSUB <dLOCAL.X> 1 <LOCAL.ARGS>>

        ENDIF

    ENDIF

    LOCAL.X += 1

ENDWHILE

RETURN <STRSUB 0 <EVAL <EVAL STRLEN(<LOCAL.RETURN>)> +-1> <LOCAL.RETURN>>

So with this, you would use is like so:

Code:

[speech spk_player]

on=*

local.args=<char_parse <args>>

if (strmatch(<local.args>,test))

 say=<args>

endif

It's just a quick work around, if you want to compare math algorithms using strmatch you can do something like:

Code:

local.args=<char_parse <args>>

local.cmp=<char_parse />

if (strmatch(<local.args>,<local.cmp>))

 say=compared.

endif

Threaded Mode \| Linear Mode speech
Author	Message