تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخراج بيانات من ملف نصي في richtextbox
#1
عندي بيانات علي هيئة تكست عايز استخرج منها الارقام اللي محتاجها هل في افكار تساعد في الموضوع ده.وده جز من النص

<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>
الرد
تم الشكر بواسطة: سعود
#2
(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>
الرد
تم الشكر بواسطة: سعود , علي بنيان
#3
مش فاهم الكود .ياريت الفكره بتاعته اذا تكرمت
الرد
تم الشكر بواسطة: سعود
#4


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

PHP كود :
Public Class Form1
    Dim doc 
As New HtmlAgilityPack.HtmlDocument
    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles MyBase.Load
        doc
.Load(CurDir() & "\t.txt")
 
   End Sub
End 
Class 


الملفات المرفقة
.zip   For_makky.zip (الحجم : 70.67 ك ب / التحميلات : 0)
الرد
تم الشكر بواسطة: علي بنيان , ابو روضة , ابو روضة , makky


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في الوصول الى قاعدة بيانات 2007 عند تغيرها 2016 alshandodi 7 113 , 11:34 AM
آخر رد: معاند الحظ
  فورمة عرض بيانات atefkhalf2004 6 88 28-05-20, 08:59 PM
آخر رد: atefkhalf2004
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 81 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 74 27-05-20, 11:49 PM
آخر رد: momani33
Brick [VB.NET] عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات x4ahmad 2 139 23-05-20, 01:09 AM
آخر رد: x4ahmad
  [VB.NET] استفسار بخصوص حذف سطر من RichTextBox dubai.eig 3 90 20-05-20, 05:43 PM
آخر رد: dubai.eig
  طلب و أتمنى لو موجود: قاعدة بيانات أدوية DR.YASER 2 116 16-05-20, 05:47 AM
آخر رد: عبد العزيز البسكري
  حفظ كل بيانات الداتاجريد العيدروس 12 206 16-05-20, 04:37 AM
آخر رد: العيدروس
  [VB.NET] طلب كود تصدير بيانات داتا جريد فيو إلى وورد waelalmsry75 11 1,467 15-05-20, 11:55 PM
آخر رد: aljzazy
  خطأ عند إعادة تسمية العمود في قاعدة بيانات أكسس Hazem1 1 71 14-05-20, 03:56 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم