ورود

View Full Version : سوال: ذخیره اطلاعات 3 تکست باکس در فایل و بازخوانی آنها از فایل به همون شکل



unforgiven
شنبه 23 بهمن 1389, 22:38 عصر
سلام به همه
من 3 تا تکست باکس روی فرم دارم و داخلش اطلاعات وارد می کنم آیا راهی هست که بشه اطلاعات این 3 تکست باکس با هم و در یکزمان داخل فایل ذخیره بشه و به همین صورتی که ذخیره شده دوباره داخل تکست باکس ها لود بشه . مثلا اگه تو تکست باکس اول نوشتم 1 و تو دومی نوشتم 2 و تو سومی نوشتم 3 به همین شکل ذخیره بشه و وقتی اطلاعات رو لود کردم به ترتیب تو تکست اول 1 و تو دومی 2 و تو سومی 3 لود بشه .

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

returnx
شنبه 23 بهمن 1389, 23:23 عصر
هم میتونید به صورت ترتیبی ذخیره کنید و هم می تونید به صورت Random یعنی اگه ترتیبی ذخیره کردید می گید خط اول در Textbox1 خط دوم در text2 و خط شوم هم در text3 در فایل های Random هم از رکورد استفاده میکنید یعنی رکورد اول در text اول و تا آخر...

javadt
یک شنبه 24 بهمن 1389, 09:46 صبح
دوست عزيز به اين نمونه يك نگاهي بنداز شايد به دردت بخوره
http://barnamenevis.org/attachment.php?attachmentid=60345&d=1289851053

محسن واژدی
یک شنبه 24 بهمن 1389, 10:57 صبح
سلام،
میتونین یک Type برای این سه تا TextBox بنویسین و اونا رو در اون ریخه و ذخیره کنین
برای اینکار کدای زیر رو در فرم برنامه تون کپی کنین و نام دکمه ها و textboxها تون رو در کدها جایگزین کنین:


Public Type TxtDatas
Txt1 as String
Txt2 as String
Txt3 as String
End Type
Dim myTextBoxData as TxtDatas

Private sub btnSav_Click()
myTextBoxData.Txt1=Text1.text
myTextBoxData.Txt2=Text2.text
myTextBoxData.Txt3=Text3.text
open "C:\my_data.txt" for random as #1
Put #1,1,myTextBoxData
close
End sub

Private sub btnLoad_Click()
open "C:\my_data.txt" for random as #1
get #1,1,myTextBoxData
Text1.text= myTextBoxData.Txt1
Text2.text= myTextBoxData.Txt2
Text3.text= myTextBoxData.Txt3
End sub

موفق باشید

unforgiven
یک شنبه 24 بهمن 1389, 11:01 صبح
دوست عزیز ممنون
نمونه فوق چیزی بود که می خواستم .
از بقیه دوستان هم متشکرم که راهنمایی کردن