تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الاستبدال من ملف نصي
#11
هذا الكود سيستبدل اي شيء بأي شيء ؟
الرد }}}
تم الشكر بواسطة:
#12
مثال لأستبدال كل A بـB في نص
كود :
Dim str As String = "ABC - CBA"
MsgBox(str & " (Before)")
str = str.Replace("A", "B")
MsgBox(str & " (After)")
الرد }}}
تم الشكر بواسطة:
#13
اخي الحبيب انا اريد استبدال كم كبير من الكلمات . هل سأكتبها كلها في الكود ؟

فأردت ان يكون الاستبدال من ملف نصي خارجي
الرد }}}
تم الشكر بواسطة:
#14
لقراءة ملف نصي:
كود :
Dim str As String = System.IO.File.ReadAllText("مسار الملف النصي")

و الكود في المشاركة أعلاه يمكن تطبيقه على نص أيضاً و ليس مجرد حرف
الرد }}}
تم الشكر بواسطة:
#15
ما معنى ؟ Dim str As String = "ABC - CBA"
الرد }}}
تم الشكر بواسطة:
#16
Dim
لتعريف متغير

str
أسم المتغير

As String
نوع المتغير String (متغير نصي)

= "ABC - CBA"
قيمته "ABC - CBA"
و ABC - CBA لا ترمز لشئ لكنها فقط قيمة المتغير
الرد }}}
تم الشكر بواسطة:
#17
حاولت كتير جدا . هل يمكن عمل مثال ؟ بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#18
اعتقد ان هذا ما تريده اخى

كود :
On Error Resume Next
        '\\\ فتح الملف المصى الاول
        Dim str1 As String = System.IO.File.ReadAllText("مسار الملف الاول")
        '\\\ استبدال السطور برمز #
        str1 = Replace(str1, vbCrLf, "#")
        '\\\ فتح املف النصى الثانى
        Dim str2 As String = System.IO.File.ReadAllText("مسار الملف الثانى")
        '\\\ استبدال السطور برمز #
        str2 = Replace(str2, vbCrLf, "#")

        Dim vba1() As String
        Dim vba2() As String
        '\\\ عمل سبلت للرمز # لتحديد عدد الكلمات ف كلا الملفين
        vba1 = str1.Split("#")
        vba2 = str2.Split("#")
        '\\ بدا البحث عن كلمات الملف الاول ف التكست بوكس
        Dim word As String
        For i As Integer = 0 To vba1.Length - 1
            '\\\ تحديد الكلمة
            word = vba1(i)
            '\\\ البحث عن الكلمة ف التكست بوكس
            If TextBox1.Text.Contains(word) Then
                '\\\\ اذا تم ايجاد الكلمة
                Dim word2 As String
                '\\\ تحديد الكلمة المقابلة للكلمة ف الملف الثانى
                word2 = vba2(i)
                '\\\استبدال الكلمة الموجودة ف الملف الاول ب الكلمة الموجودة ف الملف الثانى
                TextBox1.Text = Replace(TextBox1.Text, word1, word2)
            End If
        Next
الرد }}}
تم الشكر بواسطة:


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

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


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