منتدى فيجوال بيسك لكل العرب
[VB.NET] كيف استخراج هالنص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف استخراج هالنص (/showthread.php?tid=3270)



كيف استخراج هالنص - ابراهيم مراد - 20-06-14

السلام عليكم اخوانى الكرام كيف استخرج هالنص
PHP كود :
$0.00 USD 
من هنا
PHP كود :
<!--googleoffall-->
$
0.00 USD
<!--googleonall--> 
اريد استخراج هذا فقط
$0.00 USD مع العلم ممكن يكون اى عمله ثانيه عشان محدش يبرمج كود ع الدولار فقط لا لانو متغير دايما الرقم والعمله
انا تواصلت للكود هذا
Dim Resultreg As String = TextBox1.Text
Dim result = Regex.Match(Resultreg, "\D+([\d\.]+)").Value
MsgBox(result)
ربيطلع اى مببلغ واى عمله بس بردو فى سطر فوق بيظهر ومش بيطلع الثلاث احرف بتوع العمله ارجو منكم مساعدتى وجزاكم الله كل خير


RE: كيف استخراج هالنص - حريف برمجة - 20-06-14

النص الأساسي مكتوب في تكست بوكس 1
ممكن يكون في حل افضل منه.

كود :
TextBox2.Text = Replace(TextBox1.Text, "<!--googleoff: all-->", "")
        TextBox2.Text = Replace(TextBox2.Text, "<!--googleon: all-->", "")



RE: كيف استخراج هالنص - vbnet - 20-06-14

.....

كود :
Dim Resultreg As String = TextBox1.Text
Dim result = Regex.Match(Resultreg, "(?<=<!--googleoff: all-->)\r\n.+?\r\n(?=<!--googleon: all-->)").Value.Trim
MsgBox(result)

.....