Question

VB.NET 有一个XML文件，如何读取它的指定内容

<root>
<style type="text/css"/>
<success>1</success>
<result>
<status>ALREADY</status>
<scur>USD</scur>
<tcur>CNY</tcur>
<ratenm>美元/人民币</ratenm>
<rate>6.682</rate>
<update>2016-07-14 08:30:27</update>
</result>
</root>
读取出<rate>6.682</rate>中的6.682，请问如何实现

Answer 1

你这不是一个标准的xml文件，所以建议用正则提取：

    Sub Main()
        Dim xml = File.ReadAllText("C:\test\css.txt")
        Dim rate = Regex.Match(xml, "<rate>([.\d]+)</rate>").Groups(1).Value
        Console.WriteLine(rate)
        Console.ReadLine()
    End Sub

 

Answer 2

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")