الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه كاروان في 31 يوليو 2007 · 2 رد · 565 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الاحباء

لديه عدد من الاسئلة المتعلقة بيفية التعامل مع ملف txt

وقلت اطرح الموضوع لانني بحثت كثيرا ولم اجد ولعه يوجد واحد يجاوبني على اسئلتي او يعطيني خيط من الخيوط على العموم شكرا لك جميعا

اذا كانت لديه ملف به عديد من الجميل منها عربية و انكليزية و منها تبدءا بكلمة خاصة او رقم خاص والبقية عادية كيف اقدر ان اقوم بما يلي

1- تكوين ملف نص جديد و سحب الجمل العربية فقط اليه

2- تكوين ملف نص جديد وسحب الجمل الانكليزية اليه فقط

3- تكوين ملف جديد وسحب الجمل التي تبداء بكلمة معينة

مع تحياتي وشكري لكم

إن شاء الله تساعدونا على ذلك

#2

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

وبالنسبة لمعالجة الكلمات بعد قراءة الملف النصي الى متغير نصي 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
#3

السلام عليكم

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

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

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

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

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

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

وهكذا

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

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

السلام عليكم

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

هذا الموضوع مغلق.

مواضيع مشابهة