[makky]

عندي بيانات علي هيئة تكست عايز استخرج منها الارقام اللي محتاجها هل في افكار تساعد في الموضوع ده.وده جز من النص

<p><n>CDV</n><v>2.80</v><l>3.50</l><h>5.50</h></p>
<p><n>RBV</n><v>80.6</v><l>75.0</l><h>100.0</h></p>
<p><n>BHV</n><v>22.6</v><l>35.0</l><h>55.0</h></p>
<p><n>RCT</n><v>22.8</v><l>25.0</l><h>35.0</h></p>
<p><n>HBF</n><v>28.3</v><l>31.0</l><h>38.0</h></p>

[اليوم السابع]

(08-05-20, 09:20 PM)makky كتب :

كود :

Dim member_id = System.Text.RegularExpressions.Regex.Matches(TextBox1.Text, "<l>(.+?)</l>")
       For Each txt As System.Text.RegularExpressions.Match In member_id
           TextBox1.Text =  (txt.Groups(1).Value)
       Nex

عندي بيانات علي هيئة تكست عايز استخرج منها الارقام اللي محتاجها هل في افكار تساعد في الموضوع ده.وده جز من النص

<p><n>CDV</n><v>2.80</v><l>3.50</l><h>5.50</h></p>
<p><n>RBV</n><v>80.6</v><l>75.0</l><h>100.0</h></p>
<p><n>BHV</n><v>22.6</v><l>35.0</l><h>55.0</h></p>
<p><n>RCT</n><v>22.8</v><l>25.0</l><h>35.0</h></p>
<p><n>HBF</n><v>28.3</v><l>31.0</l><h>38.0</h></p>

[makky]

مش فاهم الكود .ياريت الفكره بتاعته اذا تكرمت

[سعود]

وممكن كذا باستخدام HtmlAgilityPack.dll

PHP كود :

Public Class Form1
    Dim doc As New HtmlAgilityPack.HtmlDocument
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        r.Clear()
        r.Text = "Values From Tag <v>" & vbNewLine
        For Each h As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//v")
            r.AppendText(h.InnerText.Trim & vbNewLine)
        Next

        r.AppendText("Values From Tag <l>" & vbNewLine)
        For Each h As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//l")
            r.AppendText(h.InnerText.Trim & vbNewLine)
        Next

        r.AppendText("Values From Tag <h>" & vbNewLine)
        For Each h As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//h")
            r.AppendText(h.InnerText.Trim & vbNewLine)
        Next
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        doc.Load(CurDir() & "\t.txt")
    End Sub
End Class