تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اعمل بحث واستبدال لهذا النص "," ?
#1
السلام عليكم ورحمة الله وبركاته
اخواني عندي مشكلة بسيطة
انا عندي هذا النص
كود :
vb4arb","vb4arb.com","vb4arb tutorial","tutorial","vb","vb code","
واريد عمل بحث واستبدال لهذا النص ","
ويكون النص البديل سطر جديد
حاولت كثيرا لكن للأسف جميع محاولاتي فشلت بسبب ان النص فيه هذي الجملة ","
وكل ما اضعها بين علامتي التنصيص يقول لي خطاء
هذه محاولاتي وللأسف فشلت

كود :
  replace = read.ReadToEnd().Replace("","", "").Replace("[", "")

يعني يكون الشكل النهائي بعد عملية الاستبدال كل نص بسطر
vb4arb
vb4arb.com
vb4arb tutorial
tutorial
vb
vb code

وشكراً
الرد }}}}
تم الشكر بواسطة:
#2
استبدل العلامة بسطر جديد
كود :
replace("," vbnewline)

ممكن تشوف فكرة ثانية هنا



هيئة الملف النصي هكذا

كود :
www.vb4arb.com,www.saud.somee.com,mybbarab.com

وان كانت الاداة مربع نص
كود :
       For Each itm In My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\t.txt").Split(",")
           TextBox1.AppendText(itm & vbNewLine)
       Next
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#3
مشكور اخوي تم حل المشكلة لكن تبقى هذه العلامة "

كيف اعمل لها استبدال ؟
حاولت اعمل
Replace(" " "," ")
يطلع لي خطاء!!
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

تفضل أخي هذا الكود لاستبدال العبارة "," بسطر جديد


كود :
       TextBox1.Text = TextBox1.Text.Replace(""",""", vbNewLine)
بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#5
وممكن هذي بعد
كود :
For Each itm In My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\t.txt").Split(",")
           itm = itm.Replace("""", String.Empty)
           TextBox1.AppendText(itm & vbNewLine)
       Next
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#6
الله يعطيكم العافية تم حل المشكلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 2 125 27-10-17, 01:52 PM
آخر رد: The Light Fire
  كيف اعمل كومنت لكود أثناء اقلاع البرنامج abdulla2 3 108 25-10-17, 04:53 AM
آخر رد: abdulla2
Exclamation [VB.NET] جلب النص regex mervandzz 1 98 12-10-17, 08:08 PM
آخر رد: أحمد النجار
  [VB.NET] كيف اعمل كومبوبوكس قائم على 2 كمبوبوكس آخرين nassery99 3 105 11-10-17, 05:50 AM
آخر رد: nassery99
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 81 04-10-17, 11:34 PM
آخر رد: ahmed kamal
  عايز اعمل حاجة تخليني اعرف كام جهاز مشغل البرنامج ومواصفات الاجهزة ووالوصول لقاعدة ال hoshosgost@yahoo.com 2 122 28-09-17, 11:41 PM
آخر رد: مصمم الدوادمي
  حفظ النص بما فيه حجمه في my sittings visualist2015 1 76 15-09-17, 08:30 PM
آخر رد: سعود
  اخواني ازي اعمل داااا زي دي من الفيجول بيسك vb.net امل عوض 1 150 30-08-17, 12:24 PM
آخر رد: Jounior_P
  [سؤال] طريقة الفرز داخل مربع النص abosaleh56 5 260 12-07-17, 10:23 AM
آخر رد: abosaleh56
  [VB.NET] كيف اعمل السابق /previous في هذا الكود + المشروع e-coder 1 126 10-07-17, 11:04 AM
آخر رد: e-coder

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


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