مطلوب كود

هل تقصد ان يتم تخزين البيانات فى ملف نصى

اذا كان هذا قصدك فهذا كود الكتابة فى ملف نصى

اذا كنت تريد مسح مابداخل الملف وكتابة بيانات جديدة

Dim N As Integer
N=FreeFile
Open FileName For Output As #N
Print #N,NewData
Close #N

وذا كنت تريد اضافة بيانات على الموجودة داخل الملف

Dim N As Integer
N=FreeFile
Open FileName For Append As #N
Print #N,NewData
Close #N

ولقراءة بيانات الملف ووضعها فى اداة مربع نص

Dim N As Integer
N=FreeFile
Open FileName For Input As #N
Text1.Text=Input(Lof(1),1)
Close #N

اذا لم يكن هذا طلبك فأتمنى ان توضح أكثر :rolleyes:

رائع ما شاء الله عليك اخي محمد المهدي

حسب مافهمت انو اسم المستخدم والرقم السري مخزنين من قبل في ملف نصي وبالتالي عند اخال اسم المستخدم والرقم السري يتم فحص المدخلات من الملف النصي

فاذا كان هذا المقصود

هناك طريقة جميلة ولكن لابد ان يكون كل اسم المستخدم ورقمه السري في سطر وهكذا مع بقية المستخدمين

تقرأ الملف النصي سطرا سطرا عن طريق line input وتخزن السطر في متغير ومن ثم تستخدم الدالة instr للبحث داخل المتغير عن اسم المستخدم والرقم السري

على فرض ان text1 يحتوي على اسم المستخدم وtext2 يحتوي على الرقم السري

dim user as string
dim pass as string

open app.path & "\" &"myfile.txt" for input as #1
do while not eof(1)
line input #1,mydata
user=instr(1,mydata,text1.text)
pass=instr(1,mydata,text2.text)
if user<>0 and pass<>0 then
msgbox "username and password is corrrect" 

exit do 
else
msgbox "wrong "
end if
loop

close #1

اتمنى ان تكون الفكرة واضحة

الف شكر وماقصرتوا