Forums Developers "IF( Unknown command" msg in status window

 
on *:TEXT:*#*:#: { 

  ;------------- DECLARE LOCAL VARIABLES
  /var %TEXT_TO_REPLACE = @@
  /var %stripped_text
  /var %temp
  /var %text_line = $1-

  ;------------ STRIP ALL EXTRA CHARACTERS FROM THE TEXT

  ; Strip all codes from the line of text
  %stripped_text = $strip(%text_line)

  ; replace ASCII 93 = ']' AND ASCII 91 = '['
  %temp = $replace(%stripped_text,$chr(93),%TEXT_TO_REPLACE) 
  %temp = $replace(%temp,$chr(91),%TEXT_TO_REPLACE)

  ; replace ASCII 40 '(' and ASCII 41 ')'
  %temp = $replace(%temp,$chr(40),%TEXT_TO_REPLACE)
  %temp = $replace(%temp,$chr(41),%TEXT_TO_REPLACE)

  ; replace ASCII 124 '|'
  %temp = $replace(%temp,$chr(124),%TEXT_TO_REPLACE)

  ; replace '«' AND '»'
  %temp = $replace(%temp,»,%TEXT_TO_REPLACE)
  %temp = $replace(%temp,«,%TEXT_TO_REPLACE)

  %temp = $replace(%temp,@@,)

  ;------------- WRITE THE PROCESSED TEXT TO FILE

  /var %left_text = $left(%temp,1)
  /var %ascii_val = $asc(%left_text)

  if( $asc(#) == %left_text){
  /write $mircdir $+ \z_output.txt %temp
  /echo true
}
else{
/write $mircdir $+ \z_skipped_output.txt %temp
/echo false
}

 

;get the 1st character on the left side of the text line
  /var %left_text = $left(%temp,1)

  /echo LeftText is: %left_text

  if (%left_text == #) {
    /write $mircdir $+ \z_output.txt %temp
    /echo true
  }
  else {
    /write $mircdir $+ \z_skipped_output.txt %temp
    /echo false
  }