Fa ویرایش فایل txt

[Cheshm-Abi]

سلام بچه ها!
من میخوام یه فرم که 3 تا EDITBOX داخلش داشته باشه طراحی کنم.
بعد اطلاعاتی که وارد EDITBOX می شه رو در فایل TXT ذخیره کنم.
یه مشکلی که هست می خوام بخش USER & Pass & EMail ثابت بمونه.
فکر کنم این عکس که پیوست کردم همه چیزو بگه.

 

[evil_gates]

دوست عزيز

پيشنهاد ميكنم مقدار بازگشتي از هر EditBox رو با عبارتي كه قرار هست ثابت بمونه جمع كنيد و بعد با StrToLine به فايل متني ارسال كنيد.

مثلا فرض كنيد تو كادر اول كه User name هستي شما عبارت TEST رو وارد ميكنيد و اين عبارت تو متغيري به نام EditBox1 ذخيره ميشه.

بنابراين شما قبل از ارسال اين متغير به فايل كافيه = UserName رو به اول اون اضافه كنيد مثل كد زير:

path$ = 'x:\myfile.txt'
x$ = 'UserName = ' + EditBox1$
retval = StrToLine(path$,x$,1,TRUE)

با اين كد ابتدا مسير فايل متني شما تو متغيري به نام $path ثبت ميشه.

بعد مقداري كه تو كادر EditBox اول نوشته بوديد با عبارت = UserName جمع ميشه و تو متغيري به نام $x ثبت ميشه.

بعد با تابع StrToLine مقدار $x به فايل متني ارسال و تو خط 1 جايگزين ميشه.

به همين ترتيب براي ساير خطوط ميتونيد عمل كنيد.

 

[Cheshm-Abi]

evil_gates
از شما به خاطر راهنمایی تون ممنونم.
یه سئوال دیگه یادم رفت بپرسم.
می شه بگین این اطلاعات وارد شده رو چی کار کنم که هر کدوم تو خط مربوط به خوش ذخیره بشه.
اگه یه نمونه برام بذارین واقعاً ممنونتون می شم.

 

[evil_gates]

دوست عزيز
تابع StrToLine عبارت شما رو تو فايل متني و تو خطي كه مايليد ذخيره ميكنه. شكل كلي اين تابع به اين صورت هست:

StrToLine(path,variable,linenumber,overwrite)

ميبينيد كه داخل پرانتز 4 تا پارامتر path كه مسير فايل شماست، variable كه نام متغير رشته‌اي شماست، linenumber كه شماره خط موردنظر هست و overwrite (كه اگه True بزاريد يعني عبارت جديد رو جايگزين عبارت قبلي در اين خط كنه) هست.

فايل متني شما از ابتداي فايل به ترتيب هر خط شماره اي داره، خط اول 1، خط دوم 2 و به همين ترتيب تا n

تو مثال بالا من از عدد 1 تو پارامتر linenumber استفاده كردم كه مقدار متغير $x رو تو خط اول ذخيره ميكنه.

به همين ترتيب براي ساير خطوط ميتونيد از شماره خط مربوطه استفاده كنيد.

متاسفانه فعلا دسترسي ندارم مثال براتون بسازم