+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 وعرضها في TextBox (/showthread.php?tid=37671)
استخراج بيانات موجودة في RichTextBox وعرضها في TextBox - ana ali - 01-02-21
سلام عليكم ابغى كود يستخرج لي كلمات معينة في RichTextBox وعرضها في TextBox
مثال: image = 2016NSP17.jpg
كل اللي ابغاه يستخرج لي 2016NSP17.jpg فقط
طبعا يضعها في TextBox1
RE: استخراج بيانات موجودة في RichTextBox وعرضها في TextBox - سعود - 01-02-21
PHP كود :
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'image = 2016NSP17.jpg
Dim str As String = "image =.*? (.*?\.jpg)"
Dim reg As New Regex(str)
t.Text = reg.Match(r.Text).Groups(1).Value
End Sub
End Class
RE: استخراج بيانات موجودة في RichTextBox وعرضها في TextBox - ana ali - 01-02-21
جميل، اشتغل معي الكود طيب لو بزيد مثلا TextBox جديد لكلمة ثانية بنفس الزر لنفس الجملة
RE: استخراج بيانات موجودة في RichTextBox وعرضها في TextBox - سعود - 01-02-21
PHP كود :
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim str As String = "image =.*? (.*?\.jpg)"
Dim reg As New Regex(str)
Dim mc As MatchCollection = reg.Matches(r.Text)
TextBox1.Text = mc(0).Groups(1).Value
TextBox2.Text = mc(1).Groups(1).Value
TextBox3.Text = mc(2).Groups(1).Value
TextBox4.Text = mc(3).Groups(1).Value
End Sub
End Class