+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استخراج بيانات من ملف نصي في richtextbox (/showthread.php?tid=34671)
استخراج بيانات من ملف نصي في richtextbox - makky - 08-05-20
عندي بيانات علي هيئة تكست عايز استخرج منها الارقام اللي محتاجها هل في افكار تساعد في الموضوع ده.وده جز من النص
<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>
RE: استخراج بيانات من ملف نصي في richtextbox - اليوم السابع - 08-05-20
(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>
RE: استخراج بيانات من ملف نصي في richtextbox - makky - 09-05-20
مش فاهم الكود .ياريت الفكره بتاعته اذا تكرمت
RE: استخراج بيانات من ملف نصي في richtextbox - سعود - 09-05-20
وممكن كذا باستخدام 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