ذخیره و نمایش آخرین متن وارد شده در edit text

[morti08 19]

با عرض سلام

 

یه سوال بسار مهمی داشتم

می خواستم بدونم وقتی یه متنی رو در edit text وارد می کنیم ، و بعد از برنامه خارج میشویم و دوباره وارد برنامه میشویم آخرین متن وارد شده در کادر وجود داشته باشد.

 

با تشکر

[abbas2142 557]

بجای 

File.DirRootExternal

بزن

File.DirInternal

ان شاء الله درست می شه

[elysium1368 19]

سلام

این سورس کدی که نوشتین بسیار عالی بود ولی یه مشکلی داره که اگر نرم افزار پاک شود فایل ذخیره حذف نمیشود و اطلاعات وارد شده همچنان بر روی نرم افزار می ماند

میخواستم بدونم آیا راهی هست که با حذف برنامه فایل ذخیره هم حذف شود.

با تشکر

فقط این روال رو اضافه کن و هرجا خواستی فراخوانی کن.

Sub delete_file
If File.Exists(File.DirRootExternal,"text.txt") Then   
("File.Delete(File.DirRootExternal,"text.txt      
End If   
End Sub

[morti08 19]

سلام

این سورس کدی که نوشتین بسیار عالی بود ولی یه مشکلی داره که اگر نرم افزار پاک شود فایل ذخیره حذف نمیشود و اطلاعات وارد شده همچنان بر روی نرم افزار می ماند

میخواستم بدونم آیا راهی هست که با حذف برنامه فایل ذخیره هم حذف شود.

با تشکر

[morti08 19]

مرسی استاد درست شد

[حمید زارع 331]

خوب باید اون متن رو در دیتابیس ذخیره کنی و بعد دوباره فراخوانی کنی ...

[abbas2142 557]

خوب باید اون متن رو در دیتابیس ذخیره کنی و بعد دوباره فراخوانی کنی ...

دیتابیس واسه چی باید از txt استفاده کنن

[morti08 19]

میشه بیشتر توضیح بدین من تازه دارم یاد میگیرم هنوز اطلاعاتم زیاد نیست

اگه میشه یه سورس ازش بزارین ممنون میشم

[حمید زارع 331]

شما باید آموزشهای ساخت دیتابیس ِ ارتباط با دیتابیس ِ ذخیره و حذف و ویرایش اطلاعات دیتابیس رو توی همین انجمن جستجو کنید

همشون وجود دارن از نوع درجه یک

فقط یکی میخاد که مرد یادگرفتن باشه...

[abbas2142 557]

بفرما این شاید کار کنه

 

فقط اگه نمی خوای از اون باتن برای ذخیره استفاده کنی این write رو بذار توی Activity_Pause

Sub Globals
	Private Button1 As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
End Sub


Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("s1")
	read
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub write
	Dim list1 As List
	list1.initialize
	list1.Add(EditText1.Text)
	list1.Add(EditText2.Text)
	File.WriteList(File.DirRootExternal,"list.txt",list1)
End Sub

Sub read
	If File.Exists(File.DirRootExternal,"list.txt") Then
	Dim list1 As List
	list1 = File.ReadList(File.DirRootExternal,"list.txt")
	EditText1.Text=list1.get(0)
	EditText2.Text=list1.get(1)
End If
End Sub
Sub Button1_Click
	write
End Sub

[morti08 19]

مرسی از پاسختون کارم راه افتاد