vb读取用word转换成的xml里的数据 - VB / 基础类
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中。
Close #1 ' 关闭文件。
Dim i As Integer
Dim s As Boolean
Dim NeiRong As String
For i = 1 To UBound(MyString())
If MyString(i) = ">" Then
s = True '开始连接字符
ElseIf MyString(i) = " <" Then
s = False
End If
If s = True Then
NeiRong = NeiRong + MyString(i)
End If
Next i
End Sub
总是显示 MyRecord是空置，要怎么解决，谢谢
添加MsXML引用
使用DOMDocument
http://download.csdn.net/source/1627134
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
