منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اعمل بحث واستبدال لهذا النص "," ?

السلام عليكم ورحمة الله وبركاته
اخواني عندي مشكلة بسيطة
انا عندي هذا النص

كود :

vb4arb","vb4arb.com","vb4arb tutorial","tutorial","vb","vb code","

واريد عمل بحث واستبدال لهذا النص ","
ويكون النص البديل سطر جديد
حاولت كثيرا لكن للأسف جميع محاولاتي فشلت بسبب ان النص فيه هذي الجملة ","
وكل ما اضعها بين علامتي التنصيص يقول لي خطاء
هذه محاولاتي وللأسف فشلت

كود :

  replace = read.ReadToEnd().Replace("","", "").Replace("[", "")

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

وشكراً

استبدل العلامة بسطر جديد

كود :

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

مشكور اخوي تم حل المشكلة لكن تبقى هذه العلامة "

كيف اعمل لها استبدال ؟
حاولت اعمل
Replace(" " "," ")
يطلع لي خطاء!!

السلام عليكم ورحمة الله وبركاته

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

كود :

       TextBox1.Text = TextBox1.Text.Replace(""",""", vbNewLine)

بالتوفيق

وممكن هذي بعد

كود :

For Each itm In My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\t.txt").Split(",")

            itm = itm.Replace("""", String.Empty)

            TextBox1.AppendText(itm & vbNewLine)

        Next

الله يعطيكم العافية تم حل المشكلة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

silverlord

سعود

silverlord

sooriaty03

سعود

silverlord