为什么从数据库里读出HTML文本，过滤掉HTML代码，写入纯文本文件中，再用记事本查看时，段前段尾都会出现三个黑方块？

[yirengirl]

这三个黑方块好像不是具体的字符，复制到浏览器的文本框里就看不见了，复制到WORD里变成三个换行符，怎样才能将这三个黑方块去掉？？

我使用的过滤HTML代码的函数为：
function GetInnerText(strHtml)
dim regex
Set regex = New RegExp
regex.Pattern = "<\/?[^>]*>"
regex.Global = True
regex.IgnoreCase = True
GetInnerText = regex.Replace(strHtml,"")
Set regex = Nothing
end function

[yirengirl]

http://www.deareve.net/a.txt
就是生成的文本文件：（

[yirengirl]

在浏览器里打开，那几个黑方格与在WORD里打开一样，是换行符，但下载下来用记事本打开，就是黑方格了。

[feifeizaizhe]

这是编码的问题。好像不好实现。

[笨笨兔兔兔兔兔]

那个是文本的结尾符，如果你用C的编辑器的话，第一个黑方块后面的都看不到的，不过很不意思的是

黑方块，怎么换算成标记已经忘了：（

[yirengirl]

各位高手再努力帮我想想

[mikespook]

找个16进制编辑器，看看那些方块是什么值~~~
再打开一个正常的文件，看看回车符的值是多少~~

反正应该是\r\n和\n\r的区别~~~

[yirengirl]

我用ULTRAEDIT打开，看不见。转换为十六进制，全篇文章都是乱码了。
能教我怎么看吗？

[fantiny]

你是用读取的二进制文件？最有可能的是你获取的长度计算出错了。你长度减1试试。

[yirengirl]

在SQL数据库里存储的字段不是二进制，字段为NTEXT，通过一个类似动易HTML编辑器输入的，现在是读取这个不同记录的这个字段，批量存成纯文本文件，有的文件尾部就出现这种黑方格，有的文件没有。

[fantiny]

function unHtml(content)
unHtml=content
if content <> "" then
unHtml=replace(unHtml,"&","&")
unHtml=replace(unHtml,"<","<")
unHtml=replace(unHtml,">",">")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13),"<br>")
unHtml=replace(unHtml,chr(32)," ")
end if
end function

这个试试。

你可以自己再多添加几个，

比如
unHtml=replace(unHtml,chr(0),"ASCII码 -编号 0")

你把那几个制表和格式相关的ASCII码都替换出来看看。到底黑格是什么就应该可以了。

[hbhbhbhbhb1021]

function GetInnerText(strHtml)
dim regex
Set regex = New RegExp
regex.Pattern = "<\/?[^>]*>"
regex.Global = True
regex.IgnoreCase = True
GetInnerText = regex.Replace(strHtml,"")
regex.Pattern = "\n"
regex.Global = True
regex.IgnoreCase = True
GetInnerText = regex.Replace(GetInnerText ,"")
Set regex = Nothing
end function

[yirengirl]

改成你给我的这个函数后，三个黑方块变成两个，文本不分段了。

[hbhbhbhbhb1021]

function GetInnerText(strHtml)
dim regex
Set regex = New RegExp
regex.Pattern = "<\/?[^>]*>"
regex.Global = True
regex.IgnoreCase = True
GetInnerText = regex.Replace(strHtml,"")
regex.Pattern = "\r"
regex.Global = True
regex.IgnoreCase = True
GetInnerText = regex.Replace(GetInnerText ,"")
Set regex = Nothing
end function
这样呢，试试

[yirengirl]

晕，四个黑方格了，没有分段。