تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخراج نص من نص آخر
#1
السلام عليكم إخواني الكرام ورحمة الله وبركاته
أريد مساعدتكم في كود يعمل علي استخراج نص باللغة العربية من تيكيست بوكس تحتوي علي نص مكون من كلمات باللغة الأنجليزية والعربية.
وأيضا عكس العملية أي استخراج الكلمات باللغة الأنجليزية من التيكيست بوكس التي تحوي النص المختلط بين اللغتين.
ولكم مني جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
لو توضح بمثال
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم

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

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

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

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

اخي الكريم

الفكرة تعتمد على ان الحروف العربية يكون الاسكي كود لها اكبر من 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

والله اعلم

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة:
#6
شكرا أخي الكريم وزادك الله من علمه
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كود استخراج البيانات من داتا جرايد الى الاكسل karmina2012 0 1,345 01-05-20, 07:08 AM
آخر رد: karmina2012
  [سؤال] استخراج قيم عمود فى تكست بوكس ABO.BANCIANA 2 2,478 21-02-16, 08:58 PM
آخر رد: ahmedabdelaliem
  استخراج محتويات صفحة انترنت الى الفروم شمس الدين 03 6 2,354 06-04-13, 11:49 PM
آخر رد: شمس الدين 03

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


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