شیء File در B4A کار با فایل را به یک خط تقلیل میدهد: WriteString کل متن edtUser را در فایل memo.txt داخل حافظه خصوصی برنامه (DirInternal) ذخیره میکند و ReadString آن را برمیگرداند. چککردن Exists قبل از خواندن ضروری است وگرنه در اولین اجرای برنامه که فایل هنوز وجود ندارد، استثنا میگیرید. چون DirInternal مخصوص خود برنامه است، نه مجوزی لازم است و نه کاربر به فایل دسترسی دارد؛ بهترین جا برای ذخیره یادداشت، تنظیمات و آخرین وضعیت فرم است.
بدون نیاز به کتابخانه جانبی (فقط کتابخانههای داخلی B4A)
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۲ شهریور ۱۴۰۵ - ۱۵:۱۳ |
| تعداد بازدید | ۱ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub btnMain_Click
File.WriteString(File.DirInternal, "memo.txt", edtUser.Text)
ToastMessageShow("ذخیره شد", False)
End Sub
Sub btnLoad_Click
If File.Exists(File.DirInternal, "memo.txt") Then
edtUser.Text = File.ReadString(File.DirInternal, "memo.txt")
ToastMessageShow("متن قبلی بازیابی شد", False)
Else
ToastMessageShow("هنوز فایلی ذخیره نشده", True)
End If
End Sub