منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - استخراج بيانات من ملف نصي في richtextbox

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

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

(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
عندي بيانات علي هيئة تكست عايز استخرج منها الارقام اللي محتاجها هل في افكار تساعد في الموضوع ده.وده جز من النص

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

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

وممكن كذا باستخدام 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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

makky

اليوم السابع

makky

سعود