كيف اتعامل مع ملف txt

بالنسبة للتعامل مع الملفات ارجو البحث عنه لانه مكرر بشكل كبير

وبالنسبة لمعالجة الكلمات بعد قراءة الملف النصي الى متغير نصي string يمكن عمل مايلي

dim filetext as string 
'read file to filetext 
dim arr() as string 
'نفصل الكلمات  ونضعها في مصفوفة بحيث كل عنصر للمصفوفة يحتوي على  كلمة 
arr = split(filetext," ")
'نعالج الكلمات

Dim i As Long
For i = 0 To UBound(arr)
If arr(i) Like "[a-zA-Z]*" Then
	'english
'save to new file	
 ElseIf arr(i) Like "[آ-ي]*" Then
 'arabic
 Else 'anything else

 End If

Next

السلام عليكم

لسحب الجمل تستطيع ان تعتمد على عملية قراءة الحروف الحرف تلو الآخر

في حال كان الحرف قيمته بالأسكي بين (C7 - ED) فهو حرف عربي بالتالي تضع مؤشر عليه على انه البداية

وتبدأ بقراءة الحروف التي تليه مع اهمال الفراغات حتى تصل الى قيمة خارج هذا النطاق.

تحدد النهاية وتقوم بسحب الجملة

لكن عليك الانتباه في هذه الحالة لو انتهت الجملة بمحرف خاص او ارقام فلن يتم ادخاله في الجملة, تستطيع طبعا تغيير ميكانيكية البحث.

الجمل الانكليزية تبحث عن الحرف الذي يكون بين (61 - 7A) وهي الحروف الصغيرة (a - z) او بين (41 - 5A) وهي الحروف الكبيرة وبنفس الطريقة تسحب الجملة.

وهكذا

آخر أمر قبل أن أنقر إضافة رد, لو كانت هذه الجمل موزعة على أسطر مختلفة أي كل جملة مفصولة عن الآخرى بـ Enter (متوضعه على سطر جديد) تستطيع فورا تحديد نهاية الجملة بسهولة بإيجاد (13 10) وهي قيمة الـ Enter بالأسكي التي تحدد نهاية السطر او تستخدم InStr

حاول فيما ذكرت ثم ضع محاولاتك بعد ان تشعر انك بحاجة الى مساعدة بالفعل - لكن حاول بشكل جدي في البداية.

السلام عليكم