كيف اعرف نوعية النص المكتوب هل حروف انجليزية او عربية او ارقام

أخي الفاضل ..

فقط سأطرح عليك بعض الأفكار ..

اصنع ثلاث مصفوفات ..

واحدة للأرقام و الأخرى للحروف العربيّة و الثالثة للحروف الإنجليزيّة بالحروف الصغيرة و الكبيرة ..

ثم استخدم جمل تكرير متداخلة و استخدم دوال تقطيع النصوص مع دالة حساب الطول و دالة البحث عن نص محدد داخل نص آخر ..

و هكذا ستتمكن من تحديد ما تريد بكل دقّة ..

أتمنى أن أكون قد أضفت ما يفيد ..

حول النص الى مصفوفة من نوع Byte و أعمل Loop فيها علشان تشوف الحروف , ممكن تجيب قيمة الأسكى لكل حرف و تحدد من خلالها.

السلام عليكم

أخي الكريم ليس لي إلا أن أشكر الاخوين على الجواب بدل وضع الكود جاهزا

أخي الكريم سأحذو حذوهما وأضيف على ما قاله الاخوان msayed2004 و متأمل

حسن ماقاله الاخ متأمل شيء قليل طويل

سأقول ما فعلت أنا

كل مل فعلته عكس الاخ متأمل فبدل أن تتعامل مع طول النص الذي قد يصل إلى 1000

تعامل مع الحروف 26 و الارقام 10 واستعمل

For 
Next

لكل صنف من الاصناف الثلاثة

وبعد ذلك استعمل هذه الدالة

Instr

لتنظر هل الحرف أو الرقم موجود وتعامل بشروطك

ملاحظة لا أقول ما قاله الصديقان خطأ ولكن أقول هذا ما فعلت

حسن إذا كان صعبا حاول ثم حاول ثم حاول

وإن لم تستطع اكتب ما توصلت إليه

ونذهب خطوة خطوة إن كان عندك الوقت وإلا

وفي اسوأ الاحوال اطلب الكود جاهزا وهو مالا أحبذه أبدا وسأرفع إليك ما توصلت إليه

وقد يرفع أحد الاصدقاء ما كتبوا

ودمتم سالمين

لا أحبذ الكود جاهزا أبدا

وآمل أن تكتب الكود بنفسك وسيكون أفضل

أخي الكريم هل توصلت إلى الحل

طريقة اخرى

Dim sx  As String
' sx=text1
sx = "aB 99 kBB"


If sx Like "*[ا-ي]*" And sx Like "*[a-zA-Z]*" And sx Like "*[0-9]*" Then
 عربي + انجلييزي + ارقام'

	ElseIf sx Like "*[ا-ي]*" And sx Like "*[0-9]*" Then

'عربي + أرقام 
	ElseIf sx Like "*[a-zA-Z]*" And sx Like "*[0-9]*" Then

'انجليزي + ارقام
  ElseIf sx Like "*[0-9]*" Then
' ارقام
End If

بالنسبة للعربي لست متأكد من اول حرف فقد يكون احد الحروف التي عليها همزات آ إ افحص ذلك

اقتباس

أخي الكريم هل توصلت إلى الحل

أخي تفضل هذا الكود يمكن ينفعك

If KeyAscii > 127 Then
Text2.Text = "Arabic"
Else
If 48 <= KeyAscii And KeyAscii <= 57 Then
Text2.Text = "Numbers"
Else
If KeyAscii >= 65 Then
Text2.Text = "English"
Else
If KeyAscii <= 90 Then
Text2.Text = "English"
End If
End If
End If
End If

السلام عليكم

اقتباس

أخي الكريم هل توصلت إلى الحل

حسن ما علينا

آمل أن يفيدك الكود التالي ولكن لا بد من العمل عليه

Arb_Eng_Num.rar

السلام عليكم

الحروف العربيه والاجنبيه دائما تكون لها كود Ascii

وكل حرف ورقم اى ان كان ليس له تكرار فى ارقام ال asci لذا يفضل ان تقوم بعمل

فحص لحاله الرحف المكتوب عن طريق كود ascii

character map

if keyascii >>>>

وهكذا

شكرا