درخواست تبدیل کد وی بی 6 به وی بی .نت

[SHD.NET]

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

من توی وی بی 6 به این صورت عمل می کردم و هیچ مششششکلی نداشتم

مثلا با یه فایل به نام Hamid.txt در درایو C میخواهیم کار کینم و دو تکست باکس داریم که میخواهیم اطلاعات اونارو ثبت کنیم.
در ویژوال بیسیک برای الصاق متن به فایل به این صورت بود :

Open "c:\hamid.txt" For Append As #1
Write #1, Text1.Text, Text2.Text
Close #1


ما در ورودی 2 تا تکست باکس رو ذخیره کردیم. بنابراین میخوایم تا این دوتا تکست باکس رو به صورت جداگانه تو دوتا لیست باکس جدا لود کنیم.

Open "c:\hamid.txt" For Input As #2
Do Until (EOF(1) = True)
Input #2, a1, a2
List1.AddItem (a1)
List2.AddItem (a2)
Loop
Close #2


ممنون میشم اگه راهنماییم کنید.

[vbamirvb]

با سلام
شما برای اینکه کارنان راحت شود میتونید با استفاده از ویژال استدیو2008 از منوی فایل از قسمت کانورت استفاده کنید
شما برنامه تون رو تو وی بی 6 بنویسید بعد از کانورت میتونید به وی بی دات نت کانورت کنید

[h_a_m_i_d]

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

من توی وی بی 6 به این صورت عمل می کردم و هیچ مششششکلی نداشتم

مثلا با یه فایل به نام Hamid.txt در درایو C میخواهیم کار کینم و دو تکست باکس داریم که میخواهیم اطلاعات اونارو ثبت کنیم.
در ویژوال بیسیک برای الصاق متن به فایل به این صورت بود :

Open "c:\hamid.txt" For Append As #1
Write #1, Text1.Text, Text2.Text
Close #1


ما در ورودی 2 تا تکست باکس رو ذخیره کردیم. بنابراین میخوایم تا این دوتا تکست باکس رو به صورت جداگانه تو دوتا لیست باکس جدا لود کنیم.

Open "c:\hamid.txt" For Input As #2
Do Until (EOF(1) = True)
Input #2, a1, a2
List1.AddItem (a1)
List2.AddItem (a2)
Loop
Close #2


ممنون میشم اگه راهنماییم کنید.
سلا م خدمت شما دوست عزیز چرا از Rich Text Box استفاده نمیکنید کار با فایل رو خیلی اسون میکنه
richtextbox1.loadfile(path)

برای باز کردن فایل
richtextbox1.savefile(path)
برای ذخیره فایل
فکر کنم این روش راحت تر باشه ولی اگر بازم تبدیل شده کدهای بالا رو میخوای پیام خصوصی بده برات بفرستم
امیدوارم تونسته باشم کمکت کنم
موفق باشید

[مهرداد صفا]

سلام
در ساد ترین حالت میتوانید از ماجول My.Computer.FileSystem برای خواندن و نوشتن در فایل استفاده کنید. مثلا برای خواند متن از یک فایل:
Dim text As String = My.Computer.FileSystem.ReadAllText("FileName")
و برای نوشتن در فایل:
My.Computer.FileSystem.WriteAllText("FileName", text, False)
برای اضافه کردن متن به آخر فایل مقدار Tru را به عنوان سومین پارامتر ارسال کنید.