منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - نسخة قابلة للطباعة

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



كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - الماجيك مسعد - 13-04-17

السلام عليكم
كيفية حذف نص من نص اخر بداية من نص حتى نص اخر
مثلا لدى هذا النص
If Frm1.<button2_Click>o__SiteContainer1.<>p__Site2 Is Nothing Then

وعايز احذف نص من اول .< الى .<>

يعنى احذف .<button2_Click>o__SiteContainer1.<>

ويصبح النص الاصلى If Frm1p__Site2 Is Nothing Then

كيف يتم عمل ذلك؟


RE: كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - abdualla - 13-04-17

تفضل الكود
PHP كود :
Dim txt As String "If Frm1.<button2_Click>o__SiteContainer1.<>p__Site2 Is Nothing Then"

Dim fromIndex As Integer txt.IndexOf(".<")
Dim toIndex As Integer txt.IndexOf(".<>") + Len(".<>")

Dim remove As String txt.Substring(fromIndextoIndex fromIndex)

txt txt.Replace(removeString.Empty)

MsgBox(txt



RE: كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - الماجيك مسعد - 13-04-17

(13-04-17, 03:52 PM)abdualla كتب : تفضل الكود
PHP كود :
Dim txt As String "If Frm1.<button2_Click>o__SiteContainer1.<>p__Site2 Is Nothing Then"

Dim fromIndex As Integer txt.IndexOf(".<")
Dim toIndex As Integer txt.IndexOf(".<>") + Len(".<>")

Dim remove As String txt.Substring(fromIndextoIndex fromIndex)

txt txt.Replace(removeString.Empty)

MsgBox(txt
شكرا جزيلا اخى

جارى التجربة

بارك الله فيك اخى
لقد اشتغل جيدا

ولكن لدى طلب اخر

اريد اضافة . مكان .<

ملحوظة لم اطلب المسح بداية من < فقط ولكن قلت من .<

حتى اتفادى مشكلة اذا النص فيه تحقق من شئ اذا كان لا يساوى شئ

بمعنى لو فى نص مكتوب مثلا if x <> m then

اتمنى تكون فهمت قصدى

بانتظارك اخى

مثلا خلى النص
Dim txt As String = "if x <> m and If Frm1.<button2_Click>o__SiteContainer1.<>p__Site2 Is Nothing Then"


RE: كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - silverlight - 13-04-17

في عملية Replace ضع اي Char تريده بدلا من String.Empty


RE: كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - الماجيك مسعد - 13-04-17

بارك الله فيكم جميعا

لقد تم حل المشكلة بواسطة الاستاذ abdualla
abdualla
حمدا لله انك فهمت ما اقصد بارك الله فيك اخى الغالى لقد اشتغل جيدا

كلمة شكر لا تكفى لك


RE: كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - silverlight - 13-04-17

طالما تريد أن تقوم بعمل Scripting للنصوص إما أن تكتب الدوال بنفسك أو الأفضل لك أ ن تستخدم StringBuilder
و الفكرة بشكل عام تنحصر في إيجاد Index الخاص ب Char معين داخل النص و من ثم تغيير ما قبله أو تغيير ما بعده
و هنا النص او التكست أو String يتم التعامل معه علي أنه مصفوفة


RE: كيفية حذف نص من نص اخر بداية من نص حتى نص اخر - الماجيك مسعد - 13-04-17

(13-04-17, 05:06 PM)silverlight كتب : طالما تريد أن تقوم بعمل Scripting للنصوص إما أن تكتب الدوال بنفسك أو الأفضل لك أ ن تستخدم StringBuilder
و الفكرة بشكل عام تنحصر في إيجاد Index الخاص ب Char معين داخل النص و من ثم تغيير ما قبله أو تغيير ما بعده
و هنا النص او التكست أو String يتم التعامل معه علي أنه مصفوفة

حسنا اخى بارك الله فيك