[silverlord]

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

كود :

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

[silverlord]

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

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

[sooriaty03]

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

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

كود :

       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]

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