ساخت فایل txt

[cloner01001 38]

 

دوستان یه ادیت تکست دارم و یه باتن به اسم save ،میخوام وقتی رو باتن کلیک شد تو پوشه ی فایل ها یه فایل txt ساخته بشه که متن داخلش همون متنی باشه که کاربر تو ادیت تکست نوشته و ذخیره بشه و در عین حال متن داخل ادیت تکست هم خالی شه که اگه کاربر دوباره متنی نوشت و رو باتن ذخیره کلیک کرد یه فایل txt جدید با متن جدیدی که تو ادیت تکست نوشته شده  ذخیره بشه تو پوشه ی فایل ها، و این چرخه هر بار که کاربر خواست تکرار بشه

یه سوال هم دارم این که میشه اسم هر فایل txt که ساخته میشه یه عدد باشه؟ مثلا اولین بار که باتن ذخیره رو زد، فایل txt ساخته شده ، اسمش 1 باشه و دومین بار اسمش 2 باشه و...

[محمدرضا شاهپیری 5,561]

از دیتابیس اگه استفاده کنید بهتر هستش یه تیبل خالی میزارین با سه تا فیلد که هر دفه کلیک شد اطلاعات به جای فایل تکست وارد دیتابیس بشه.

اما اگه بخواین با روش خودتون برید شما نیاز به دوتا فایل txt دارید یکی که شمارنده هست و دیگری هم متن رو ذخیره میکنه 

با فرض اینکه اسم ادیت تکستتون edit هستش تو رویداد کلیک باتن به این صورت میتونین یه فایل رو به پسوتد txt ذخیره کنید

Dim count As String
	If File.Exists(File.DirDefaultExternal,"count.txt") Then
		count=File.ReadString(File.DirDefaultExternal,"count.txt")
	End If
File.WriteString(File.DirDefaultExternal,"txt"&count&".txt",edit.text)
File.WriteString(File.DirDefaultExternal,"count.txt",count+1)
edit.text=""

[mehrabmmp 528]

سلام

بهتره از دیتابیس استفاده کنی اینجوری بهتره

طبق گفتت اینجوری هم میتونی بنویسی

sub btn1_click
dim i as int = 1
file.writestring(file.dirinternal,"matn"&i&".txt",edittext1.text)
edittext.text = ""
i = i + 1
endsub

[cloner01001 38]

خیلی ممنون ولی من میخوام هر بار که رو باتن کلیک شد یه فایل جدید با متنی که تو ادیت تکست هست ساخته بشه

مثلا کاربر تو ادیت تکست مینویسه سلام وقتی رو باتن زدیه فایل txt که توش سلام نوشته شده ساخته بشه 

و بعد کاربر متن ادیت تکست رو پاک میکنه و مینویسه خدافظ و وقتی رو باتن کلیک کرد یه فایل txt جدید ساخته بشه که توش نوشته شده باشه خدافظ

که در مجموعه کاربر دوبار متن رو عوض کرده ودوتا ادیت تکست ساخته شده و این چرخه میتونه تکرار شه

آیا راهی هست؟

[cloner01001 38]

 

از دیتابیس اگه استفاده کنید بهتر هستش یه تیبل خالی میزارین با سه تا فیلد که هر دفه کلیک شد اطلاعات به جای فایل تکست وارد دیتابیس بشه.

اما اگه بخواین با روش خودتون برید شما نیاز به دوتا فایل txt دارید یکی که شمارنده هست و دیگری هم متن رو ذخیره میکنه 

با فرض اینکه اسم ادیت تکستتون edit هستش تو رویداد کلیک باتن به این صورت میتونین یه فایل رو به پسوتد txt ذخیره کنید

Dim count As String
	If File.Exists(File.DirDefaultExternal,"count.txt") Then
		count=File.ReadString(File.DirDefaultExternal,"count.txt")
	End If
File.WriteString(File.DirDefaultExternal,"txt"&count&".txt",edit.text)
File.WriteString(File.DirDefaultExternal,"count.txt",count+1)
edit.text=""

 

 

سلام

بهتره از دیتابیس استفاده کنی اینجوری بهتره

طبق گفتت اینجوری هم میتونی بنویسی

sub btn1_click
dim i as int = 1
file.writestring(file.dirinternal,"matn"&i&".txt",edittext1.text)
edittext.text = ""
i = i + 1
endsub

 

 

استفاده کردم ولی هیچ فایلی ساخته نشد

[cloner01001 38]

 

از دیتابیس اگه استفاده کنید بهتر هستش یه تیبل خالی میزارین با سه تا فیلد که هر دفه کلیک شد اطلاعات به جای فایل تکست وارد دیتابیس بشه.

اما اگه بخواین با روش خودتون برید شما نیاز به دوتا فایل txt دارید یکی که شمارنده هست و دیگری هم متن رو ذخیره میکنه 

با فرض اینکه اسم ادیت تکستتون edit هستش تو رویداد کلیک باتن به این صورت میتونین یه فایل رو به پسوتد txt ذخیره کنید

Dim count As String
	If File.Exists(File.DirDefaultExternal,"count.txt") Then
		count=File.ReadString(File.DirDefaultExternal,"count.txt")
	End If
File.WriteString(File.DirDefaultExternal,"txt"&count&".txt",edit.text)
File.WriteString(File.DirDefaultExternal,"count.txt",count+1)
edit.text=""

 

 

میشه یکم روش دیتابیس رو بیشتر توضیح بدین؟

چه فیلدهایی تو دیتابیس بنویسم و از چه کدی استفاه کنم؟ اتفاقا روش دیتابیس آسونتره چون میتونم با id داده ها رو لیست ویو هم لود کنم

فقط نیاز به کمک دارم که چطور ادیت تکست و باتن رو به دیتابیس وصل کنم که هر بار رو باتن کلیک شد متن داخل ادیت تکست تو فیلد ذخیره بشه و اگه دومین بار کلیک شد یه فیلد جدید ساخته بشه باid مثلا 2 که بشه از این ها استفاده کرد

[محمدرضا شاهپیری 5,561]

آموزشهای زیادی  تو انجمن هست در این زمینه میتونین به صورت جزئی یاد بگیرین  

 

شما یه دیتابیس میسازین بایه تیبل به نام مثلا mytabl با دو تا فیلد یه id که باید primary  و notnull و auotoincrement باشه  و یه فیلد به نام matn از نوع تکست

حالا  تو کلیک به این صورت بنویسید

sql.ExecNonQuery("INSERT INTO mytbl(matn) VALUSE('"&edittext.text&"')")

[cloner01001 38]

 

آموزشهای زیادی  تو انجمن هست در این زمینه میتونین به صورت جزئی یاد بگیرین  

 

شما یه دیتابیس میسازین بایه تیبل به نام مثلا mytabl با دو تا فیلد یه id که باید primary  و notnull و auotoincrement باشه  و یه فیلد به نام matn از نوع تکست

حالا  تو کلیک به این صورت بنویسید

sql.ExecNonQuery("INSERT INTO mytbl(matn) VALUSE('"&edittext.text&"')")

 

حالا اگه بخوام داده ها رو توی لیستویو لود کنم باید از چه کدی استفاده کنم؟

[مهدی ایزدی 9,203]

حالا اگه بخوام داده ها رو توی لیستویو لود کنم باید از چه کدی استفاده کنم؟

جست و جو

http://answercenter.ir/topic/12022-%D9%85%D8%B4%DA%A9%D9%84-%D8%AF%D8%B1-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D8%AF%D8%B1-%D9%84%DB%8C%D8%B3%D8%AA-%D9%88%DB%8C%D9%88/

sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout1")
    If File.Exists(File.DirInternal,"xxxx.db") = True Then
        File.Copy(File.DirAssets,"xxxx.db",File.DirInternal,"xxxx.db")
    End If
    If FirstTime Then
        sq1.Initialize(File.DirAssets,"xxxx.db",False)
    End If
    cur1 = sq1.ExecQuery("SELECT * FROM dbm1")
    For i = 0 To cur1.RowCount-1
        cur1.Position = i
        ListView1.AddSingleLine(cur1.GetString("text"))
    Next
End Sub