قراءة من تكست فايل

يمكنك جلب البيانات مجموعة مجموعة ومن ثم إستخدام InStr للبحث عن قيمة Value

شكراً

انا استخدم طريقة ربط ملف النصي عن طريق الاكسس (ربط الجدول) مع تحديد الفاصل " ," ومن ثم اجراء المطلوب

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

اخي MMA_EG_Cairo هل يمكن ارفاق مثال

يرجى المتابعة

اشكركم يا اخواني على المتابعة

لكن يا ريت في حد يرسل مثال كامل حتى يستفيد الكل

و رحم الله والديكم دنيا و اخرة

الأخوة الكرام ، تحية طيبة وبعد ،

أولاً إخواني المنتدي مليء بالأفكار والكتب التي تساعد علي كيفية التعامل مع ملف البيانات وبطرق مختلفة فلماذا لم تجربون خاصية البحث ( دي جميلة جداً ، والله العظيم جميلة ) !!!

---------------------------------------------------------------------------------------

نفرض أن لدينا لدينا ملف يدعي Data.dat وبه مجموعة من السجلات المخزنة كما يلي :

"1","Ahmed","012-465872145","010-10984534"
"2","Usif","02-25468798","020-55610254"
"3","Sara","04-54213587","012-36987251"
"4","Mahmod","02-72154369","05-44982145"
"5","Fady","02-88934572","03-54982147"

لقراءة هذه البيانات يمكن كما يلي :

Dim strCode As String
Dim strName As String
Dim strPhone1 As String
Dim strPhone2 As String

Open App.Path & "\Data.dat" For Input As #1
Do While Not EOF(1)
   Input #1,strCode,strName,strPhone1,strPhone2
   MsgBox strCode & " - " & strName & " - " & strPhone1 & " - " & strPhone2
Loop
Close#1

ولإدراج قيمة جديدة يمكن كما يلي :

Open App.Path & "\Data.dat" For Append As #1
Write #1,txtCode.Text,txtName.Text,txtPhone1.Text,txtPhone2.text
Close#1

أما موضوع البحث داخل ملف البيانات فهناك طريقة أخري تدعي Binary أو Random .... الي آخرة ( وهذا يطول شرحة )

ملحوظة أخيرة ، هناك بالمنتدي العديد من الأمثلة والموضوعات والأفكار التي تفيد بذلك ( ياريت البحث )

شكراًً