تقييم الموضوع :
  • 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
الله يعطيكم العافية تم حل المشكلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن ان اعمل هذا rabeh.ram 5 185 24-05-17, 12:36 PM
آخر رد: rabeh.ram
Lightbulb [سؤال] كيف اعمل sutup بالفيجوال بيسك الاصدار2013؟ moh_g 1 110 17-05-17, 05:13 AM
آخر رد: samawi
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 171 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  [VB.NET] طلب كود جلب النص الي في الصورة A-R 2 134 22-04-17, 03:51 PM
آخر رد: A-R
  ازاى اقدر اعمل برنامج طباعة الباركود باستخدام طابعة zebra araxis 0 122 06-04-17, 07:24 PM
آخر رد: araxis
  [سؤال] اريد اعمل برنامج Login x7rBI 10 313 27-03-17, 12:01 AM
آخر رد: x7rBI
  الرجاء النظر لهذا السؤال بخصوص الإندكس abdulla2 1 108 08-03-17, 08:33 AM
آخر رد: مساعدة
  مشكلة في عرض النص بالعربي في #Region فقط ali.alfoly 1 161 22-02-17, 02:50 AM
آخر رد: مساعدة
  كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض السيد الجوهري 5 333 28-01-17, 02:25 AM
آخر رد: السيد الجوهري
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 3 247 27-01-17, 11:29 PM
آخر رد: السيد الجوهري

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


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