char(4) not replaceable?

[Sannyasin Sivakatirswami]

I'm having quite a time here re-purposing text from InDesign for the 
web. Thank God for Revolution home grown tools. Goal is to "downsize" 
all characters to the 1-127 ASCII set. Adobe is using all kinds of 
invisible characters and even some strange entities for white 
spacing... I've been able to squash most of them with the function 
below, but

  replace numToChar(4) with ""  in tText

is not working... it appears in BBEdit as a square box non-printable 
character but Revolution doesn't seem to recognize it and even after 
running the following against the text it's still in there... 
Fortunately, it doesn't show in FireFox (great browser by the way) or 
Safari, but it *is* in the html source... since, from experience, such 
gremlins can bite you later on... i would just as soon find a way to 
clear these out... fyi it's a discretionary hyphen in the original 
indesign... i paste into Rev and  run this ascii checker and get 
integer 4

on mouseup
 ## a discretionary hyphen copied and pasted from IDCS
## into a field and selected
  put the selection into jai
  repeat for each char x in jai
    put cr & charTonum(x) & cr after hum
  end repeat
  put hum after the selection
end mouseup
returns char(4)

But, the following does not remove it

function transformChars tText
  put tText into tText
  replace "�"  with quote in tText
  replace "�"  with quote in tText
  replace "�"  with "'" in tText
  replace "�"  with "'" in jai
  replace "�" with "--" in tText
  replace "�" with "-" in tText
  replace numToChar(4) with ""  in tText
  replace numToChar(28) with Quote  in tText
  replace numToChar(29) with Quote  in tText
  replace numToChar(24) with "'"  in tText
  replace numToChar(25) with "'"  in tText
  replace numToChar(26) with quote  in tText
  replace numToChar(201) with quote  in tText
  replace numToChar(4) with ""  in tText ## doesn't do it...
  replace " '" with "'" in tText
  put "? " & quote into tExtraOpticalSpace
  put "?" & quote into tSpaceOut
  replace tExtraOpticalSpace with tSpaceOut in tText
  put ". " & quote into tExtraOpticalSpace
  put "." & quote into tSpaceOut
  replace tExtraOpticalSpace with tSpaceOut in tText
  put "! " & quote into tExtraOpticalSpace
  put "!" & quote into tSpaceOut
  replace tExtraOpticalSpace with tSpaceOut in tText
  return tText
end transformChars
??

Sannyasin Sivakatirswami
Himalayan Academy Publications
at Kauai's Hindu Monastery
[EMAIL PROTECTED]
www.HimalayanAcademy.com,
www.HinduismToday.com
www.Gurudeva.org
www.Hindu.org
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution