[سؤال] حذف قيمة معينة من مستند نص

[سؤال] حذف قيمة معينة من مستند نص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1411)

حذف قيمة معينة من مستند نص - البروف سيمونس - 01-01-14

السلام عليكم ورحمة الله وبركاته ..
اسعد الله اوقاتكم جميعاً وملأها بالطاعات ..

أود أحبتي حذف قيمة معينة من مستند نص حتى وإن كانت تلك القيمة متكررة ..
بعد بحثي الغير متعمقة وجدت هذا الكود :

PHP كود :

Dim FileContents64 As String
        Dim objReader64 As System.IO.StreamReader
        objReader64 = (New StreamReader("c:\text.txt"))
        FileContents64 = objReader64.ReadToEnd
        objReader64.Close()
        FileContents64 = FileContents64.Replace("Mohammead", "")
        Dim objWriter As System.IO.StreamWriter
        objWriter = New StreamWriter("c:\text.txt")
        objWriter.Write(FileContents64)
        objWriter.Close() 

يلاحظ من الكود انه يستبدل ولا يقوم بحذف القيمة وهنا سيكون بالمستند مسافات فإن أردت اضافة قيمة مستقبلاً لن يتم اضافتها عند اخر سطر به نص بل ستضاف القيمة بعد المسافات .. وهذا يعتبر خطأ ! .
فالمطلوب هو حذف القيمة والانتهاء عند اخر سطر به نص داخل المستند .

وكرماً شرح مبسط للكود لأنني أود فهم ذلك دون الاقتباس ..

خالص ودي وتقديري .

RE: حذف قيمة معينة من مستند نص - البروف سيمونس - 05-01-14

للرفع Big Grin

RE: حذف قيمة معينة من مستند نص - ali.alfoly - 05-01-14

السلام عليكم
ماذا تقصد بالـ (مسافات) ومايضا (والانتهاء عند اخر سطر به نص داخل المستند)

RE: حذف قيمة معينة من مستند نص - البروف سيمونس - 05-01-14

(05-01-14, 08:47 AM)ali.alfoly كتب : السلام عليكم
ماذا تقصد بالـ (مسافات) ومايضا (والانتهاء عند اخر سطر به نص داخل المستند)

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

انشأ مستند نص وضع به :
ali.alfoly
الشاكي لله
محمد
Mohammad
vb4arb.com
ثم قم بحذف : الشاكي لله + vb4arb.com
واعد كتابة ثلاث اسماء من عندك وستلاحظ المشكلة أنه يترك سطر فارغ ما بين ali.alfoly و محمد وكذلك مابين Mohammad وما ستكتبه .
إليك المثال بالمرفقات ..

خالص تحياتي .

RE: حذف قيمة معينة من مستند نص - ali.alfoly - 05-01-14

السلام عليكم

كود الحذف

كود :

Dim fil_lin() As String = IO.File.ReadAllLines(Me.TextBox1.Text)

        Dim Lins As String = ""

        For Each lin As String In fil_lin

            If Me.TextBox2.Text <> lin Then Lins += lin & vbNewLine

        Next

        IO.File.WriteAllText(Me.TextBox1.Text, Lins)

كود الاضافة

كود :

My.Computer.FileSystem.WriteAllText(Me.TextBox1.Text, Me.TextBox2.Text & vbNewLine, True)

RE: حذف قيمة معينة من مستند نص - البروف سيمونس - 05-01-14

(05-01-14, 10:15 AM)ali.alfoly كتب : السلام عليكم

كود الحذف

كود :

Dim fil_lin() As String = IO.File.ReadAllLines(Me.TextBox1.Text) Dim Lins As String = "" For Each lin As String In fil_lin If Me.TextBox2.Text <> lin Then Lins += lin & vbNewLine Next IO.File.WriteAllText(Me.TextBox1.Text, Lins)

كود الاضافة

كود :

My.Computer.FileSystem.WriteAllText(Me.TextBox1.Text, Me.TextBox2.Text & vbNewLine, True)

عليكم السلام ، شكراً لك استاذي علي هذا ما أصبو إليه ، اشكرك جزيل الشكر واعذرني لعدم توصيلي المعلومة بالشكل الصحيح ، مرة أخرى شاكر ومقدر لك تعاونك معي .

تحياتي النابعة لشخصك الكريم .

RE: حذف قيمة معينة من مستند نص - البروف سيمونس - 02-05-14

عفواً لرفع الموضوع من جديد أحبتي ، ولكن أتمنى التعديل على الكود التالي ليشمل اكثر من حقل للحذف من مستند نص ..

PHP كود :

If Me.TextBox2.Text <> lin Then Lins += lin & vbNewLine 

طبعاً هنا بالكود استطيع حذف نص موجود بحقل النص 2 فقط والمطلوب اضافة
textbox3 وتضمينه بالكود بحيث اذا تم كتابة نص بـ TextBox2 و TextBox3 مباشرة يتم الحذف ، كذلك اود بالكود حقل RichTextBox1 بحيث اذا تم كتابة نص به يتم حذف النص من المستند ..

ولكم جزيل الشكر ..