تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الاستبدال من ملف نصي
#1
كيف اعمل استبدال إذا وجد السطر الأول من ملف تكست في تكست بوس ، يقوم باستبداله بالسطر الثاني من نفس الملف ؟
الرد }}}}
تم الشكر بواسطة:
#2
صعب جدا عمل ريبلاس داخل الاكواد خاصة اذا كان الكلمات كثيرة فارجو كيفية الاستبدال من نص بحيث يكون الملف خارج البرنامج
الرد }}}}
تم الشكر بواسطة:
#3
كود :
Dim txt As String = System.IO.File.ReadAllText("مسار الملف النصي")
        Dim line As String() = txt.Split(vbCrLf)
        txt = txt.Replace(line(0), line(1))
        System.IO.File.WriteAllText("مسار الملف النصي", txt)
الرد }}}}
تم الشكر بواسطة:
#4
كيف يمكن التكرار ؟

يعني إذا أردت أن أقوم بعمل استبدال ل 100 كلمة مثلا

أكرر هذا الكود 100 مرة ؟

بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#5
تريد أستبدال أيّة كلمة بأيّة كلمة؟
أو أي سطر بأي سطر؟
الرد }}}}
تم الشكر بواسطة:
#6
على خيارين

الأول

أن يستبدال بالترتيب

السطر الاول بالثاني
والثالث بالرابع
والخامس بالسادس
والخيار الثاني

ان يستبدال بالترتيب من ملفين

يستبدل السطر الاول من ملف 1 بالسطر الاول من ملف 2
بحيث يكون ملف للأصل وملف للاستبدال
ويغنينا عن تكرار الاكواد
بحيث يكون واحد معناه انه يستبدل السطر في ملف 1 بالسطر الذي يقابله في ملف 2
الرد }}}}
تم الشكر بواسطة:
#7
او الافضل لو امكن كالتالي

سطر الأصل وسطر الاستبدال

بحيث لا يتم تحديد السطر رقم كذا يتم استبداله بالسطر كذا

ولكن اذا وضعت تكست يحتوي على :

محمد
احمد
على
موسي
محمود
مهند
عمر
حسن

سيتعرف على سطر الاصل فإن وجده يستبدله بالسطر الذي يليه وهكذا في كل الاسطر

بحيث يكون :

سطر الاصل
سطر الاستبدال
سطر الاصل
سطر الاستبدال

هل يمكن؟
الرد }}}}
تم الشكر بواسطة:
#8
خادم الدين كتب :على خيارين

الأول

أن يستبدال بالترتيب

السطر الاول بالثاني
والثالث بالرابع
والخامس بالسادس
والخيار الثاني

ان يستبدال بالترتيب من ملفين

يستبدل السطر الاول من ملف 1 بالسطر الاول من ملف 2
بحيث يكون ملف للأصل وملف للاستبدال
ويغنينا عن تكرار الاكواد
بحيث يكون واحد معناه انه يستبدل السطر في ملف 1 بالسطر الذي يقابله في ملف 2

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.IO.File.WriteAllText("مسار الملف النصي", ReplaceWithMethodOne(System.IO.File.ReadAllText("مسار الملف النصي")))
    End Sub

    Public Function ReplaceWithMethodOne(ByVal txt As String) As String
        Dim lines As String() = txt.Split(vbCrLf)
        For I As Integer = 0 To lines.Length - 1 Step 2
            If (I + 1) = lines.Length Then Exit For
            lines(I) = lines(I + 1)
        Next
        lines = InsertLine(lines)
        Return String.Concat(lines)
    End Function

    Private Function InsertLine(ByVal strArr As String()) As String()
        If strArr.Length > 1 Then
            For I As Integer = 0 To strArr.Length - 2
                strArr(I) &= vbCrLf
            Next
            Return strArr
        Else
            Return strArr
        End If
    End Function
الرد }}}}
تم الشكر بواسطة:
#9
بارك الله فيك ،

انا اقصد شيء قريب من هذا
ان نتائج الاستبدال تكون في التكست بوكس

لا يكون الاستبدال داخل الملف النصي نفسه

واعتذر على عدم التوضيح جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#10
خادم الدين كتب :بارك الله فيك ،

انا اقصد شيء قريب من هذا
ان نتائج الاستبدال تكون في التكست بوكس

لا يكون الاستبدال داخل الملف النصي نفسه

واعتذر على عدم التوضيح جزاك الله خيرا
ولا يهمك أخي،
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ReplaceWithMethodOne(System.IO.File.ReadAllText("مسار الملف النصي"))
    End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاستبدال من لست بوكس خادم الدين 17 1,277 12-03-13, 10:07 AM
آخر رد: just.coder
  الاستبدال خادم الدين 3 333 25-02-13, 12:58 PM
آخر رد: خادم الدين

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


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