01-03-13, 09:56 PM
الصفحات : 1 2
02-03-13, 01:31 PM
مثال لأستبدال كل A بـB في نص
كود :
Dim str As String = "ABC - CBA"
MsgBox(str & " (Before)")
str = str.Replace("A", "B")
MsgBox(str & " (After)")02-03-13, 01:43 PM
اخي الحبيب انا اريد استبدال كم كبير من الكلمات . هل سأكتبها كلها في الكود ؟
فأردت ان يكون الاستبدال من ملف نصي خارجي
فأردت ان يكون الاستبدال من ملف نصي خارجي
02-03-13, 01:52 PM
لقراءة ملف نصي:
و الكود في المشاركة أعلاه يمكن تطبيقه على نص أيضاً و ليس مجرد حرف
كود :
Dim str As String = System.IO.File.ReadAllText("مسار الملف النصي")و الكود في المشاركة أعلاه يمكن تطبيقه على نص أيضاً و ليس مجرد حرف
02-03-13, 01:57 PM
ما معنى ؟ Dim str As String = "ABC - CBA"
02-03-13, 02:03 PM
Dim
لتعريف متغير
str
أسم المتغير
As String
نوع المتغير String (متغير نصي)
= "ABC - CBA"
قيمته "ABC - CBA"
و ABC - CBA لا ترمز لشئ لكنها فقط قيمة المتغير
لتعريف متغير
str
أسم المتغير
As String
نوع المتغير String (متغير نصي)
= "ABC - CBA"
قيمته "ABC - CBA"
و ABC - CBA لا ترمز لشئ لكنها فقط قيمة المتغير
03-03-13, 06:35 PM
حاولت كتير جدا . هل يمكن عمل مثال ؟ بارك الله فيك
12-03-13, 10:47 AM
اعتقد ان هذا ما تريده اخى
كود :
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الصفحات : 1 2