高考问答长江实业集团注册地:VB把HTM转为TXT出现许多黑方块
来源：百度文库 编辑：高考问答 时间：2024/04/20 06:48:57
我编写了一个程序用VB6.0，功能是将网页文件htm转为txt，可是转换后都正常就是原来有的硬回车，转换后变为一个个小黑方块。咋整？求助
部分代码，s是将htm读入变量。
s = Replace$(UCase(s), "<BR>", vbCrLf, , , vbTextCompare)
s = Replace$(s, "<p>", vbCrLf, , , vbTextCompare)
s = Replace$(s, "</p>", vbCrLf, , , vbTextCompare)
s = Replace$(s, "<q>", vbCrLf & vbCrLf, , , vbTextCompare)
请问s里的数值是unicode的还是ascll的?
部分代码，s是将htm读入变量。
s = Replace$(UCase(s), "<BR>", vbCrLf, , , vbTextCompare)
s = Replace$(s, "<p>", vbCrLf, , , vbTextCompare)
s = Replace$(s, "</p>", vbCrLf, , , vbTextCompare)
s = Replace$(s, "<q>", vbCrLf & vbCrLf, , , vbTextCompare)
请问s里的数值是unicode的还是ascll的?
有些操作系统对文本文件的显示是按照UNICODE，每个字符都是两个字节组成。
而你转换成的TXT是按照ASCII码，硬回车使用的"\n"，而在UNICODE里面硬回车"\r\n"，所以ASCII里面的回车在UNICODE里面就不能正常显示，显示出来的就是一个小黑块
vbCrLf改为chr(13)