At 07:26 2015-08-19, Jeff Johnson <[email protected]> wrote:
Paul: I am aware of that, but I prefer this method because it is easier to read and I can clearly catch all of the invalid characters.

     Uh-uh.

     Get the stem
      lcurl = JUSTSTEM(doc_url)

     Now, get rid of the characters this long way

      lcurl = STRTRAN(lcurl, '/', '_')
      lcurl = STRTRAN(lcurl, '\', '_')
      lcurl = STRTRAN(lcurl, ':', '_')
      lcurl = STRTRAN(lcurl, '*', '_')
      lcurl = STRTRAN(lcurl, '?', '_')
      lcurl = STRTRAN(lcurl, '"', '_')
      lcurl = STRTRAN(lcurl, '<', '_')
      lcurl = STRTRAN(lcurl, '>', '_')
      lcurl = STRTRAN(lcurl, ',', '_')
      lcurl = STRTRAN(lcurl, "'", '_')
      lcurl = STRTRAN(lcurl, ' ', '_')

or this way

     chars=[/\:*?"<>,' ]
     lcurl=chrtran(lcurl,chars,replicate("_",len(chars)))
and update chars as needed. To add another character takes one character this way instead of a line.

Sincerely,

Gene Wirchenko


_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to