vb6.0中读取xml或者txt出现中文乱码
更新日期：2024.05.02
读取的时候，你要在读文件流的 API 上指明要用什么编码读取 xml,txt 文件，
乱码主要是格式不对，如果你没指定编码，则系统会用一个默认的编码，如果默认编码刚好是 ansi，则读 ansi 没问题，原理基本上是这样。
18776768331 :vb6.0读写XML和XML与数据库进行数据交换的代码
皮诸养4272 :答：（1）新建一个工程。在Form1中添加一个CommandButton控件。为了使用msxml解析器，必须事先设置工程项目对msxml.dll的引用。选择“工程”→“引用”命令，打开“引用”对话框，在此选择Microsoft XMLv2.6或更高版本。（2）装...
18776768331 :vb6.0中读取xml或者txt出现中文乱码
皮诸养4272 :答：乱码主要是格式不对，如果你没指定编码，则系统会用一个默认的编码，如果默认编码刚好是 ansi，则读 ansi 没问题，原理基本上是这样。
18776768331 :Vb6.0关于txt的读出
皮诸养4272 :答：Dim strLine As String '获取空文件句柄(获得尚未被占用的文件号中的头一个)nFileNum = FreeFile()'打开文件,并设置句柄 Open strFileName For Input As nFileNum '循环读取文件 Do While Not EOF(nFileNum)Line In...
18776768331 :vb6.0 读取xml文件
皮诸养4272 :答：vb6.0原代码:Option Explicit Dim XMLDoc As DOMDocument Dim xList As IXMLDOMNodeList Private Sub Form_Load()Set XMLDoc = New DOMDocument Dim n As Long Dim i As Long If XMLDoc.Load("\2.xml") Then Se...
18776768331 :VB6.0如何读取并修改XML文件?
皮诸养4272 :答：你有两个选择：1、将xml文件当做文本文件来处理。替换指定字符即可。2、使用 MSXML 组件来处理。度娘搜一下，一大堆文档可参考。打字不易，如满意，望采纳。
18776768331 :如何在VB6中读取XML文件
皮诸养4272 :答：工程中引用Microsoft XML，啥版本都行，然后就可以用常见的方法操作xml文件了，比如：Dim xmldoc As New MSXML.DOMDocumentxmldoc.Load "xml文件的路径" '打开xml文件Print xmldoc.selectNodes("root/data")(0).Text '...
18776768331 :VB6.0 读取文本文件(*.txt)的问题
皮诸养4272 :答：'函数：一次性读文件至变量，非常快 Function GetFile(FileName As String) As String Dim i As Integer, s As String, BB() As Byte If Dir(FileName) = "" Then Exit Function i = FreeFile ReDim BB(FileLen...
18776768331 :VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
皮诸养4272 :答：Dim PathName As String, FileName As String Dim tmp As String Me.Show PathName = Environ("USERPROFILE") & "\桌面\"FileName = "1.txt"On Error Resume Next FileNo = FreeFile Open PathName & FileName For...
18776768331 :VB6.0读取TXT内容
皮诸养4272 :答：Dim SZtxt() As String Dim d() As String Dim n As Integer Dim LinStr As String Dim i As Integer n = 0 Open "c:\1122.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循...
18776768331 :VB 读取XML文件
皮诸养4272 :答：Private Sub Command1_Click() Dim xmldoc Set xmldoc = CreateObject("msxml2.domdocument") xmldoc.async = False xmldoc.Load "c:\xml.xml" '读取文件 Dim transactionTag As Object '获取transaction...
乱码主要是格式不对，如果你没指定编码，则系统会用一个默认的编码，如果默认编码刚好是 ansi，则读 ansi 没问题，原理基本上是这样。
皮诸养4272 :答：（1）新建一个工程。在Form1中添加一个CommandButton控件。为了使用msxml解析器，必须事先设置工程项目对msxml.dll的引用。选择“工程”→“引用”命令，打开“引用”对话框，在此选择Microsoft XMLv2.6或更高版本。（2）装...
皮诸养4272 :答：乱码主要是格式不对，如果你没指定编码，则系统会用一个默认的编码，如果默认编码刚好是 ansi，则读 ansi 没问题，原理基本上是这样。
皮诸养4272 :答：Dim strLine As String '获取空文件句柄(获得尚未被占用的文件号中的头一个)nFileNum = FreeFile()'打开文件,并设置句柄 Open strFileName For Input As nFileNum '循环读取文件 Do While Not EOF(nFileNum)Line In...
皮诸养4272 :答：vb6.0原代码:Option Explicit Dim XMLDoc As DOMDocument Dim xList As IXMLDOMNodeList Private Sub Form_Load()Set XMLDoc = New DOMDocument Dim n As Long Dim i As Long If XMLDoc.Load("\2.xml") Then Se...
皮诸养4272 :答：你有两个选择：1、将xml文件当做文本文件来处理。替换指定字符即可。2、使用 MSXML 组件来处理。度娘搜一下，一大堆文档可参考。打字不易，如满意，望采纳。
皮诸养4272 :答：工程中引用Microsoft XML，啥版本都行，然后就可以用常见的方法操作xml文件了，比如：Dim xmldoc As New MSXML.DOMDocumentxmldoc.Load "xml文件的路径" '打开xml文件Print xmldoc.selectNodes("root/data")(0).Text '...
皮诸养4272 :答：'函数：一次性读文件至变量，非常快 Function GetFile(FileName As String) As String Dim i As Integer, s As String, BB() As Byte If Dir(FileName) = "" Then Exit Function i = FreeFile ReDim BB(FileLen...
皮诸养4272 :答：Dim PathName As String, FileName As String Dim tmp As String Me.Show PathName = Environ("USERPROFILE") & "\桌面\"FileName = "1.txt"On Error Resume Next FileNo = FreeFile Open PathName & FileName For...
皮诸养4272 :答：Dim SZtxt() As String Dim d() As String Dim n As Integer Dim LinStr As String Dim i As Integer n = 0 Open "c:\1122.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循...
皮诸养4272 :答：Private Sub Command1_Click() Dim xmldoc Set xmldoc = CreateObject("msxml2.domdocument") xmldoc.async = False xmldoc.Load "c:\xml.xml" '读取文件 Dim transactionTag As Object '获取transaction...
