我也知道VB默认生成的编码是ANSI，转成UNICODE编码就可以，似乎UTF-8格式也行，但是。。。
网上查了很多资料，没一个能解决的。不管是用PUT 语句输出到Binary文件，还是其他函数转换，都没用，还是乱码。
但我生成的HTM文件用记事本打开，另存成UNICODE编码格式或UTF-8格式，网页汉字显示就很正常。
请各位高手给指点一下，举个例子（请用VB6），怎样将生成的文件直接为上述两种格式，，不胜感谢
我的QQ：1381157 欢迎各位来交流
-
等级
本版专家分：0结帖率 33.33% -
我在用VB6 SP6开发时遇到个难题，用VB6的Print语句输出生成的网页文件运行时，里面的汉字总是显示乱码。
我也知道VB默认生成的编码是ANSI，转成UNICODE编码就可以，似乎UTF-8格式也行，但是。。。
网上查了很多资料，没一个能解决的。不管是用PUT 语句输出到Binary文件，还是其他函数转换，都没用，还是乱码。
但我生成的HTM文件用记事本打开，另存成UNICODE编码格式或UTF-8格式，网页汉字显示就很正常。
请各位高手给指点一下，举个例子（请用VB6），怎样将生成的文件直接为上述两种格式，，不胜感谢
我的QQ：1381157 欢迎各位来交流展开阅读全文
-
等级
本版专家分：4090 -
在页面中定义编码格式啊
-
等级
本版专家分：0
-
我不是做网页、网站，而是程序中调用下，显示在WebBrowser控件窗口，每次调用数据都不一样，不能事先做好，只能每次生成新网页供调用。
-
等级
本版专家分：6155勋章
-
- 蓝花 2011年9月 VB大版内专家分月排行榜第三
-
-
授权给你，哈哈
'┏〓〓〓〓〓〓〓〓〓 SaveUnicodeFile,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'以Unicode格式保存字符到文件
Function SaveUnicodeFile(FileName As String, Str As String) As Boolean
'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
'--需要什么函数或功能，可以联系我。
'版权所有，请保留作者信息.QQ：1085992075
'如需商业用途请联系作者
On Error GoTo Err
If Dir(FileName) <> "" Then Kill FileName
Dim ByteSz() As Byte
Dim hFile As Integer
ByteSz = Str
hFile = FreeFile
Open FileName For Binary As #hFile
Put #hFile, 1, &HFEFF 'unicode文件标记符
Put #hFile, , ByteSz ' ByteSz
Close #hFile
SaveUnicodeFile = True
Exit Function
Err:
End Function
'┗〓〓〓〓〓〓〓〓〓 SaveUnicodeFile,end 〓〓〓〓〓〓〓〓〓┛
-
等级
本版专家分：6155勋章
-
- 蓝花 2011年9月 VB大版内专家分月排行榜第三
-
-
授权给你，哈哈
'┏〓〓〓〓〓〓〓〓〓 SaveUnicodeFile,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'以Unicode格式保存字符到文件
Function SaveUnicodeFile(FileName As String, Str As String) As Boolean
'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
'--需要什么函数或功能，可以联系我。
'版权所有，请保留作者信息.QQ：1085992075
'如需商业用途请联系作者
On Error GoTo Err
If Dir(FileName) <> "" Then Kill FileName
Dim ByteSz() As Byte
Dim hFile As Integer
ByteSz = Str
hFile = FreeFile
Open FileName For Binary As #hFile
Put #hFile, 1, &HFEFF 'unicode文件标记符
Put #hFile, , ByteSz ' ByteSz
Close #hFile
SaveUnicodeFile = True
Exit Function
Err:
End Function
'┗〓〓〓〓〓〓〓〓〓 SaveUnicodeFile,end 〓〓〓〓〓〓〓〓〓┛
-
等级
本版专家分：6155勋章
-
- 蓝花 2011年9月 VB大版内专家分月排行榜第三
-
-
SaveUnicodeFile app.path & "\tempx.htm","地图地图"
-
等级
本版专家分：40561勋章
-
- 状元 2017年 总版技术专家分年内排行榜第一
-
- 榜眼 2014年 总版技术专家分年内排行榜第二
-
- 探花 2013年 总版技术专家分年内排行榜第三
-
-
进士
2018年总版新获得的技术专家分排名前十
2012年 总版技术专家分年内排行榜第七
-
-
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
'常用的代码页：
const cpUTF8 =65001
const cpGB2312 = 936
const cpGB18030=54936
const cpUTF7 =65000
Function MultiByteToUTF16(UTF8() As Byte, CodePage As Long) As String
Dim bufSize As Long
bufSize = MultiByteToWideChar(CodePage, 0&, UTF8(0), UBound(UTF8) + 1, 0, 0)
MultiByteToUTF16 = Space(bufSize)
MultiByteToWideChar CodePage, 0&, UTF8(0), UBound(UTF8) + 1, StrPtr(MultiByteToUTF16), bufSize
End Function
Function UTF16ToMultiByte(UTF16 As String, CodePage As Long) As Byte()
Dim bufSize As Long
Dim arr() As Byte
bufSize = WideCharToMultiByte(CodePage, 0&, StrPtr(UTF16), Len(UTF16), 0, 0, 0, 0)
ReDim arr(bufSize - 1)
WideCharToMultiByte CodePage, 0&, StrPtr(UTF16), Len(UTF16), arr(0), bufSize, 0, 0
UTF16ToMultiByte = arr
End Function
Private Sub Command1_Click()
MsgBox MultiByteToUTF16(UTF16ToMultiByte("ab中,c", cpUTF8), cpUTF8)
End Sub
-
等级
本版专家分：0
-
在浪子的帮助下，问题已经解决了，高人无处不在呀，，谢谢上述回帖的各位，，
- VB 获取网页源码后乱码问题
utf-8 编码问题 用我这个试试 Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312") Dim ObjXML On Error Resume Next Set ObjXML = CreateObject("Microsoft.XMLHTTP") With ObjXML ...
- VB Inet获取UTF-8编码的网页乱码
转化一下就可以，以下代码测试通过：Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ...
- VB6.0 json操作与中文乱码处理
VB6太老了，怎样处理json，是否有现成的第三方库呢？经过一番探索，找到了VBJSON这个库。 使用过程如下： 1. 下载VBJSON:http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html 目录内容如下...
- 已经实现了：（含源码）VB利用官方api读写JSON数据格式文件简单实例.zip
vb6读写json格式文件，这里是源码，可以直接拿来使用。
- 汉字在VB和oracle 以及C#和oracle之间乱码问题
oracle 数据库用字符集AL32UTF8，VB程序通过ADODB连接数据库。存储的汉字在数据库里面是乱码。但是通 过VB程序解读出来的汉字确是正确的。换成C#程序，连接oracle数据库，无论是用ADO...下汉字终于可以正常显示
- vb2008生成二维码 真正支持中文与混合输入
很简单的一个二维码生成示例。决对的支持中文，这个可不容易，在网上找了N长时间，才找到这个。可以把二维码保存成图片，这个也很重要。
- vb创建PDF文件（已处理乱码）
vb创建PDF文件示例代码（已处理乱码）
- 解决读取JSON文件中文乱码的问题
首先，生成json文件的方式一定要对。之前我是用txt文件直接改的后缀，读出来乱码，用网上的json工具创建才行 $.ajax ({ url: json_url,//json文件位置 type: "GET",//请求方式为get data
- VB6 处理Json数据源码
Visual Basic 6 处理Json源码，使用方便，网络数据传输应用
- [EasyUI] Datagrid中文列头显示为乱码
网页要求用UTF-8显示，但由于我们的OS大多是中文环境，所以添加一个文件后，默认的Encoding可能是Chinese Simplified(GBxxxx)，字符集不一致导致乱码。 解决方案： 当一个页面的中文显示为乱码时，依次排查： 1. ...
- PHP生成PDF完美支持中文,解决TCPDF乱码
PHP生成PDF完美支持中文,解决TCPDF乱码 PHP生成PDF格式文件以TCPDF为基础，TCPDF是一个用于快速生成PDF文件的PHP5函数包。TCPDF基于FPDF进行扩展和改进。支持UTF-8，Unicode，HTML和 XHTML。在基于PHP开发的Web...
- 解决配置vim中文乱码的问题
解决linux下vim乱码的情况：(修改vimrc的内容）全局的情况下：即所有用户都能用这个配置文件地址：/etc/vimrc在文件中添加：set fileencodings=utf-8,ucs-bom,gb18030,gbk,gb2312,cp936 set termencoding=utf-8 set ...
- 解决FileOutputStream中文乱码问题
解决FileOutputStream中文乱码问题
- 生成、读取 二维码(QR码)-采用ZXing（已解决中文乱码的问题）
由maven构建项目，需要引入两个包，配置代码如下： <dependency> <groupId>com.google.zxing</groupId> <artifactId>javase</artifactId> .../version>...
- excel文件导入hive乱码_把数据库数据导出到excel
SQL Server BI Step by Step 2--- 使用SSIS进行简单的数据导入导出让我们首先开始学习SSIS吧,利用SSIS把SQL Server中的数据导出.首先,打开Vs.net 2005,选择商业智能项目,然后选择模板中的...文章长征6号2016-11-281...
- 解析Java中文乱码的处理方法
这个首先要从编码机制上说起，大家都是中文和英文的编码格式不是一样，解码也是不一样的！如果中国的程序员不会遇到乱码，那么只有使用汉语编程。汉语编程是怎么回事，我也不大清楚，应该是前年吧！我一朋友给我介绍...
- 程序输出urf-8编码的xml文件中文（汉字）乱码问题解决方法
asp.net,php,jsp等语言在输出utf-8是需要在输出开始添加三个字节的内容，不让输出的文件会有一定的问题，希望对大家有所帮助。 Using ASP.NET C# Response.ContentType="text/xml; characterset=utf-8" ; ...
- SQLite数据库中文乱码处理
通过SQLite Administrator等工具生成的数据库文件，放入到Android中，查询记录怎么也查不出来，后来发现是编码错误，SQLite Administrator不支持utf编码，所以存储的中文会出现乱码的情况，处理方法如下：...
- ASP.NET输出CSV文件乱码-解决方法
平台 ASP.NET this.Response.Clear(); this.Response.Charset = "GB2312"; this.Response.ContentEncoding = Encoding.GetEncoding("GB2312");...this.Response.AddHeader("Content-Disposition",String.Format("....
- .net语言_NX UG二次开发：基于VB.NET语言的小球生成程序编写
上一期为大家介绍了基于VB.NET的NX UG二次开发基础操作，本期再来为大家介绍一下带窗口界面的小球生成程序开发方法。NX UG软件版本：NX 12.0.0.27开发软件版本：MicrosoftVisual Studio Professional 2015一、项目...
- 终于把英文版操作系统中文乱码问题解决了
没有出现像网上说的那种打开文本文件出现乱中，往文本文件中输入汉字都是乱码等等现象。 自从用360打了补丁以后，问题就出现了，以上现象都出现了，最可恶的是连Netbios over Tcp/ip服务都启动不了，导致一系统的...
- HtmlAgilityPack的dll调用文件获取数据的乱码问题
在HtmlAgilityPack项目中修改HtmlWeb.cs文件下的内容,重新生成新的dll调用文件可解决乱码问题。 //******************注释以前代码部分***************************** //Encoding respenc = !string....
- matlab出图时汉字都变成方框_汉字显示成方框的问题
关于同花顺等软件中部分汉字显示成方框的问题1.有可能是输入法出现了问题，特别是搜狗拼音输入法运行过程中往往与其他软件不兼容(在其他软件运行时往往提示该软件遇到问题需要关闭)，但重新下载安装后，就有可能解决...
- dataGrid中文乱码问题解决
虽然打开txt文件时看到的中文都是一样但是还是编码的问题。这个问题需要java生成xml时就指定 import java.io.FileOutputStream; import java.io.IOException; import java.io.OutputStreamWriter; import java....
- figure文本框乱码 matlab_Matlab操作之GUI(一)
Matlab是一个强大的数学工具，在各行各业都得以利用，它除了自身强大的矩阵运算和仿真运算功能，还可以与许许多多的软件提供接口，完成且不限于如数据处理，报告导出，代码生成，混合编译等等功能，而如此强大的功能...
- VBS 的 fso："Scripting.FileSystemObject" 不支持 UTF-8 编码的文本文件
大家都知道 VBS 中 fso 读文件的用法 ： Set fso=CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(yjjsfn) '--fso不支持utf-8格式，故用Adodb.Stream代替之见ReadFile s = f.ReadAll f....
- 【办公自动化】Excel中用vba生成Gis表达式cal文件
6月12日发的【Excel也能“一键”生成代码？】，介绍了通过转换对照Excel表加载bas代码文件，生成python脚本代码，粘贴至GIS中使用的方法。 最近做了一个尝试，用VBA直接生成包含python脚本代码的表达式cal文件，这样...
- [转]SQL数据库查询到的汉字字段是乱码
使用英文版SQL数据库查询到的汉字字段是乱码的解决方案 2007-12-04 14:55:45 标签：函数SQL数据库乱码排序规则 原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究...
- 在VB6中用CopyMemory拷贝字符串的种种猫腻（三）
版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明 作者：xixi 出处：http://blog.csdn.net/slowgrace/archive/2009/09/14/4550293.aspx本文来自此帖的冗长讨论，感谢Tiger_...
- VBA生成或读取指定字符集的文本文件
VBA生成或读取指定字符集的文本文件 用VBA做工具的过程中，遇见这样一个问题。使用FSO方式或者直接OPEN文件方式，生成的文本文件采用的字符集为当前操作系统默认字符集，不能选择字符集类型。这样的文件作为应用...