+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اعمل بحث واستبدال لهذا النص "," ? (/showthread.php?tid=10485)
كيف اعمل بحث واستبدال لهذا النص "," ? - silverlord - 25-10-14
السلام عليكم ورحمة الله وبركاته
اخواني عندي مشكلة بسيطة
انا عندي هذا النص
كود :
vb4arb","vb4arb.com","vb4arb tutorial","tutorial","vb","vb code","ويكون النص البديل سطر جديد
حاولت كثيرا لكن للأسف جميع محاولاتي فشلت بسبب ان النص فيه هذي الجملة ","
وكل ما اضعها بين علامتي التنصيص يقول لي خطاء
هذه محاولاتي وللأسف فشلت
كود :
replace = read.ReadToEnd().Replace("","", "").Replace("[", "")يعني يكون الشكل النهائي بعد عملية الاستبدال كل نص بسطر
vb4arb
vb4arb.com
vb4arb tutorial
tutorial
vb
vb code
وشكراً
RE: كيف اعمل بحث واستبدال لهذا النص "," ? - سعود - 25-10-14
استبدل العلامة بسطر جديد
كود :
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)
NextRE: كيف اعمل بحث واستبدال لهذا النص "," ? - silverlord - 25-10-14
مشكور اخوي تم حل المشكلة لكن تبقى هذه العلامة "
كيف اعمل لها استبدال ؟
حاولت اعمل
Replace(" " "," ")
يطلع لي خطاء!!
RE: كيف اعمل بحث واستبدال لهذا النص "," ? - sooriaty03 - 25-10-14
السلام عليكم ورحمة الله وبركاته
تفضل أخي هذا الكود لاستبدال العبارة "," بسطر جديد
كود :
TextBox1.Text = TextBox1.Text.Replace(""",""", vbNewLine)RE: كيف اعمل بحث واستبدال لهذا النص "," ? - سعود - 25-10-14
وممكن هذي بعد
كود :
For Each itm In My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\t.txt").Split(",")
itm = itm.Replace("""", String.Empty)
TextBox1.AppendText(itm & vbNewLine)
NextRE: كيف اعمل بحث واستبدال لهذا النص "," ? - silverlord - 27-10-14
الله يعطيكم العافية تم حل المشكلة