تقييم الموضوع :
  • 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] كيف اعمل برنامجي اصدار تجريبي... 3asfa~mdmra 0 47 16-11-16, 01:58 AM
آخر رد: 3asfa~mdmra
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 109 15-11-16, 04:00 AM
آخر رد: LoveVb
  ازاى اعمل save للداتا جريد فيو والداتا بيز حتى لو فية cell فاضية araxis 6 121 23-10-16, 10:29 PM
آخر رد: araxis
  [سؤال] كيف نضع شرط لهذا الكود abumuhannadzym 12 331 09-10-16, 10:36 PM
آخر رد: abumuhannadzym
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 139 17-09-16, 12:38 AM
آخر رد: أبو عمر
  كيف اعمل جملة select لعمليات البيع في نفس الفاتورة؟؟!! umbas 0 83 16-09-16, 10:59 AM
آخر رد: umbas
  [سؤال] النص في اداة RichTextBox soper 3 128 06-09-16, 05:49 PM
آخر رد: soper
  [سؤال] يف اعمل حلقة تكرار للضغط على هذا الزر ابو روضة 12 367 22-08-16, 09:09 AM
آخر رد: أبو عمر
  خاصية توزيع النص داخل التكست بوكس hglogtd 10 275 08-08-16, 09:04 AM
آخر رد: hglogtd
  [مشروع] استكمال لهذا المشروع yasob 5 119 23-07-16, 02:45 PM
آخر رد: الوادي

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


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