你这不是一个标准的xml文件,所以建议用正则提取:
Sub Main()
Dim xml = File.ReadAllText("C:\test\css.txt")
Dim rate = Regex.Match(xml, "([.\d]+) ").Groups(1).Value
Console.WriteLine(rate)
Console.ReadLine()
End Sub
a = ""TextBox1.Text ="" FileOpen(1, Application.StartupPath() & "\file\t1.txt", OpenMode.Input) Do While Not EOF(1) Input(1, a) TextBox1.Text =TextBox1.Text & a & vbcrlfLoop 一次性读取a=File.ReadAllText(Application.StartupPath() & "\file\t1.txt")