منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استخراج نص من نص آخر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : استخراج نص من نص آخر (/showthread.php?tid=9941)

استخراج نص من نص آخر - عبدالله الصافي - 05-08-13

السلام عليكم إخواني الكرام ورحمة الله وبركاته
أريد مساعدتكم في كود يعمل علي استخراج نص باللغة العربية من تيكيست بوكس تحتوي علي نص مكون من كلمات باللغة الأنجليزية والعربية.
وأيضا عكس العملية أي استخراج الكلمات باللغة الأنجليزية من التيكيست بوكس التي تحوي النص المختلط بين اللغتين.
ولكم مني جزيل الشكر

استخراج نص من نص آخر - محمود اكرم - 05-08-13

لو توضح بمثال

استخراج نص من نص آخر - abulayth - 05-08-13

السلام عليكم

ارجو ان يكون طلبك في المرفقات

http://vb4arb.com/vb/uploaded/2_01375700473.rar

يعطيك العافية

استخراج نص من نص آخر - عبدالله الصافي - 05-08-13

[COLOR="#0000CD"]شكرا جزيلا وتم التقييم.
وأرجو شرح الكود بالذات الدوال المستخدمة.[/COLOR]

استخراج نص من نص آخر - abulayth - 05-08-13

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

اخي الكريم

الفكرة تعتمد على ان الحروف العربية يكون الاسكي كود لها اكبر من 128 لذلك اععتمدت على ان اجمع هذه الحروف في متغير وعند ظهور اول حرف انجليزي اضع الحروف العربية في ليست وابدا بتجميع الانجليزي وبعد ذلك العربي وهكذا حتى يتم الانتهاء من التكست
والان الى الكود

كود :
Private Sub Command1_Click()
List1.Clear
List2.Clear

المتغير الذي سيحمل الكلمات العربية
arwor$ = ""

المتغير الذي سيحمل الكلمات الانجليزية
enwor$ = ""


هنا لووب حتى نهاية التكست الموجود
For i = 1 To Len(Text1.Text)

هنا نبحث عن قيمة الاسكي لكل حرف موجود في التكست
If Asc(Mid$(Text1.Text, i, 1)) > 128 Then
    arwor$ = arwor$ + Mid$(Text1.Text, i, 1)

هنا يتم تجميع الكلمات الانجليزية
    If enwor$ > "" Then List2.AddItem enwor$: enwor$ = ""
Else

هنا يتم تجميع الكلمات العربية
    enwor$ = enwor$ + Mid$(Text1.Text, i, 1)
    If arwor$ > "" Then List1.AddItem arwor$: arwor$ = ""
End If
Next i


    If arwor$ > "" Then List1.AddItem arwor$
    If enwor$ > "" Then List2.AddItem enwor$
End Sub

والله اعلم

يعطيك العافية

استخراج نص من نص آخر - عبدالله الصافي - 05-08-13

شكرا أخي الكريم وزادك الله من علمه