نوشتن و خواندن فایل txt.

[stnima 11]

سلام

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

dim q az int

q=q+1

tw.Write(q) 

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

میشه اساتید راهنمایی کنید.

ممنون

[مجید آرتا 5,875]

سلام

شما باید اول عدد قبلی رو بگیرید بعد جمعش کنید

خب متنو می گیریم و جمعش می کنیم و دوباره قرارش میدیم :

Dim Lst As List
Lst.Initialize
If File.Exist(File.DirInternal,"arta.txt") Then
 Lst = File.ReadList(File.DirInternal,"arta.txt")
End If
Dim oldValue As Int
If IsNumber(Lst.Get(0)) Then
 oldValue = Lst.Get(0)
End If

Dim newValue As Int
newValue = oldValue + 5
Lst.Set(0,newValue)
File.WriteList(File.DirInternal,"arta.txt",Lst)

خب توی کدهای بالا اومدیم فایل تکستی که یک عدد توش قرار داره رو گرفتیم.گفتیم اگه متنی که از فایل تکست خوندیم عددی بود ( IsNumber )  بیا بیریز توی یک متغیر و بعد فرضا با عدد 5 جمع کن و بریز توی یک متغییر دیگه و بیا لیست رو آپدیت کن و دوباره توی فایل تکست بجای عدد قبلی جایگذاری کن.

موفق باشید.

[stnima 11]

ببخشید میدونم اینجا جای سوال برای دیتا بیس نیست ولی چون سوال مربوط هست میپرسم.

میشه همین کار را هم برای دیتا بیس کرد یعنی یک متغیر عددی رو  داخل دیتابیس ریخت.

sql1.ExecNonQuery("UPDATE eng SET star=0 WHERE number="&23)

به جای star=0 بشه star=q

من هر روشی رفتم برنامه خطا گرفت لطفا کمک کنید

ممنون

[stnima 11]

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

[shahab.es 5,429]

سلام

دوست من به جای اسپم دادن، و سوال پرسیدن در جای بی ربط، یه تاپیک بزنید و کار خوتدتون رو رحت کنید

sql.exenonquery("UPDATE tbl SET adad = '"& EsmeMoteghaiier &"' WHERE id = 23")

[stnima 11]

 

سلام

دوست من به جای اسپم دادن، و سوال پرسیدن در جای بی ربط، یه تاپیک بزنید و کار خوتدتون رو رحت کنید

sql.exenonquery("UPDATE tbl SET adad = '"& EsmeMoteghaiier &"' WHERE id = 23

سلام ببخشید ولی کد بالا عمل نمیکنه و وقتی متغییر رو به صورت

dim a as int

a=a+1

sql.exenonquery("UPDATE tbl SET adad = '"& a &"' WHERE id = 23

بنویسیم

در هر بار فقط یک در id=23 نوشته میشه و به متغییر a اضافه نمیشود.

لطفا راهنمایی کنید

ممنون از اساتید

با تشکر

[shahab.es 5,429]

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

ببین

شما میای و مقدار قبلی رو میگیری

cur = sql.exequery("SELECT * FROM tbl WHERE id = 23")
cur.position = 0
a = cur.getint("adad")
a = a + 1
sql.exenonquery("UPDATE tbl SET adad = '"& a "' WHERE id = 23")

کد بالا میاد اول میبینه توی بانکتون چند بوده

بعد یکی بهش اضافه مینه و وارد میکنه به بانک دوباره

[mojtaba.mohaghegh99 0]

سلام دوستان خسته نباشد

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

[shahab.es 5,429]

سلام دوستان خسته نباشد

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

سلام عزیزم 

ممنونم، شما هم خسته نباشی

یه تاپیک جدید بزنید با عنوان درست ، دوستان کمکتون میکنن

---

با اجازه استاد ارتا ، تایپک قفل