Copyright <>
\ <>
\ http://blogs.law.harvard.edu/tech/rss
\ <>
\ 60
\ <>
\
\
Set Textmerge Off
Set Textmerge To
* Write it out
lcSafety = Set("Safety")
Set Safety Off
Strtofile(lcContents, lcFileName, 0)
Set Safety &lcSafety
FUNCTION HTMLFix(tcString)
* This code ASSUMES the incoming string is ANSI,
* CHR(32) to (127) and has not already had the
* characters converted - it will make a mess of a
* string that already has strings like — in it.
LOCAL lcString as string
lcString = STRTRAN(tcString,"&","&")
lcString 页码：[1] [2] [3] [4] [5] [6] [7] [8] 第7页、共8页 |
