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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض السيد الجوهري 5 88 28-01-17, 02:25 AM
آخر رد: السيد الجوهري
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 3 101 27-01-17, 11:29 PM
آخر رد: السيد الجوهري
  [سؤال] كيف اعمل برنامج يعمل في الخفاء ddemed 17 498 21-12-16, 12:39 PM
آخر رد: Basil Abdallah
  [VB.NET] كيف اعمل برنامجي اصدار تجريبي... 3asfa~mdmra 0 105 16-11-16, 01:58 AM
آخر رد: 3asfa~mdmra
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 225 15-11-16, 04:00 AM
آخر رد: LoveVb
  ازاى اعمل save للداتا جريد فيو والداتا بيز حتى لو فية cell فاضية araxis 6 209 23-10-16, 10:29 PM
آخر رد: araxis
  [سؤال] كيف نضع شرط لهذا الكود abumuhannadzym 12 472 09-10-16, 10:36 PM
آخر رد: abumuhannadzym
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 279 17-09-16, 12:38 AM
آخر رد: أبو عمر
  كيف اعمل جملة select لعمليات البيع في نفس الفاتورة؟؟!! umbas 0 138 16-09-16, 10:59 AM
آخر رد: umbas
  [سؤال] النص في اداة RichTextBox soper 3 198 06-09-16, 05:49 PM
آخر رد: soper

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


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