باز گرداندن متن به تکست باکس (درخواست کمک)

[ahmad009]

کدی که نوشتم به این صورت هست که متون داخت چند تکست باکس رو در چند خط در یک فایل متنی ذخیره میکنه. میخوام بدونم چه کدی باید بنویسم که خطوط ذخیره شده رو بعد از باز کردن مجدد نرم افزار به تکست باکس برگردونه؟
از کد writeline استفاده کردم
vb 2010

[hosein320]

سلام
به طور مثال اگر متن داخل متن به این صورت ذخیره شده باشه

AAAA
BBBB
CCCC
DDDD

فایل رو درون متغیر a میریزیم
حالا برا جدا کردن این متن به صورت خطی باید به این شکل عمل کرد
dim S() as string=a.splite(vbnewline)

نتیجه به این صورت میشه

s(0)="AAAA"
s(1)="BBBB"
s(2)="CCCC"
S(3)="DDDD"

[شهابسلطانی]

بنظرم شما میتونید از خصوصیات تکست باکس استفاده کنید و مسیر زیر رو دنبال کنید
1-داخل پنجره خصوصیات گزینه data رو انتخاب کنید
2- بر روی + کلیک کنید
3-بر روی گزینه databindings کلیک کنید
4-بر روی کمبو باکس text کلیک کنید
5-بر روی add project data source کلیک کن
6-دیتا بیست رو با هاش ست کن
بعد از این عملیات تمام فیلدهای بانکت توی تکست باکسهات نشون داده میشن
موفق باشی

[ahmad009]

این کدش هست. لطفا راهنمایی کنید.
Imports System.IO
Imports System.Text

Public Class Form3

Friend Shared VB As IWin32Window


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using a As New System.IO.StreamWriter("Rev.ini")
a.WriteLine("[Loader]")
a.WriteLine("ProcName=csgo.exe -appid 730 -nostarter /help")
a.WriteLine("")
a.WriteLine("[Emulator]")
a.WriteLine("#Language = English")
a.WriteLine("Language = " + TextBox1.Text)
a.WriteLine("SteamClient = True")
a.WriteLine("SteamDll = ./Steam.dll")
a.WriteLine("SteamUser = SteamPlayer")
a.WriteLine("")
a.WriteLine("[steamclient]")
a.WriteLine("ClanTag = " + TextBox2.Text)
a.WriteLine("PlayerName =" + TextBox3.Text)
a.WriteLine("MasterServer = " + TextBox4.Text)
a.WriteLine("GameVersion = 1.0.2.0")
a.WriteLine("Use_avatar=False")
End Using
MsgBox("ذخیره شد")
End Sub
End Class
میخواه اطلاعاتی که از تکست باکس ها ذخیره شده بعد از باز کردن مجدد برنامه وارد تکست باکس ها بشه. ممنون

[aliagamon]

این کدش هست. لطفا راهنمایی کنید.
Imports System.IO
Imports System.Text

Public Class Form3

Friend Shared VB As IWin32Window


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using a As New System.IO.StreamWriter("Rev.ini")
a.WriteLine("[Loader]")
a.WriteLine("ProcName=csgo.exe -appid 730 -nostarter /help")
a.WriteLine("")
a.WriteLine("[Emulator]")
a.WriteLine("#Language = English")
a.WriteLine("Language = " + TextBox1.Text)
a.WriteLine("SteamClient = True")
a.WriteLine("SteamDll = ./Steam.dll")
a.WriteLine("SteamUser = SteamPlayer")
a.WriteLine("")
a.WriteLine("[steamclient]")
a.WriteLine("ClanTag = " + TextBox2.Text)
a.WriteLine("PlayerName =" + TextBox3.Text)
a.WriteLine("MasterServer = " + TextBox4.Text)
a.WriteLine("GameVersion = 1.0.2.0")
a.WriteLine("Use_avatar=False")
End Using
MsgBox("ذخیره شد")
End Sub
End Class
میخواه اطلاعاتی که از تکست باکس ها ذخیره شده بعد از باز کردن مجدد برنامه وارد تکست باکس ها بشه. ممنون
برای بازی کانتره دیگه؟:لبخند:(کاننر گو)....
من یه نمونه نوشتم فقط واسه زبانو:

Using sr As System.IO.StreamReader = New System.IO.StreamReader("Rev.ini")
Dim spliter() As String = sr.ReadToEnd().Split(vbNewLine)
TextBox1.Text = spliter(5).Substring(spliter(5).IndexOf("=") + 2)
End Using

[ahmad009]

آره واسه کانتره.
میشه کاملشو بنویسی؟
Easylan.ir

[aliagamon]

خدمت شما:

Using sr As System.IO.StreamReader = New System.IO.StreamReader("Rev.ini")
Dim spliter() As String = sr.ReadToEnd().Split(vbNewLine)
TextBox1.Text = spliter(5).Substring(spliter(5).IndexOf("=") + 2)
TextBox2.Text = spliter(11).Substring(spliter(11).IndexOf("=") + 2)
TextBox3.Text = spliter(12).Substring(spliter(12).IndexOf("=") + 2)
TextBox4.Text = spliter(13).Substring(spliter(13).IndexOf("=") + 2)
End Using

راستی خوشحال میشم اگه خواستین نقد سایت بنده در مورد این بازی رو در سایتتون قرار بدین(البته شاید هم دوست نداشته باشین چون لینک دانلود هم دادیم ...)...
http://pc-cc.ir/virtual-products/game/49-%D9%86%D9%82%D8%AF-%D9%88-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%28%D9%88-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%88-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF%29-%D8%A8%D8%A7%D8%B2%DB%8C-counter--go-%DB%8C%D8%A7-Counter-Strike--Global-Offensive.html

[ahmad009]

خدمت شما:

Using sr As System.IO.StreamReader = New System.IO.StreamReader("Rev.ini")
Dim spliter() As String = sr.ReadToEnd().Split(vbNewLine)
TextBox1.Text = spliter(5).Substring(spliter(5).IndexOf("=") + 2)
TextBox2.Text = spliter(11).Substring(spliter(11).IndexOf("=") + 2)
TextBox3.Text = spliter(12).Substring(spliter(12).IndexOf("=") + 2)
TextBox4.Text = spliter(13).Substring(spliter(13).IndexOf("=") + 2)
End Using

راستی خوشحال میشم اگه خواستین نقد سایت بنده در مورد این بازی رو در سایتتون قرار بدین(البته شاید هم دوست نداشته باشین چون لینک دانلود هم دادیم ...)...
http://pc-cc.ir/virtual-products/game/49-%D9%86%D9%82%D8%AF-%D9%88-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%28%D9%88-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%88-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF%29-%D8%A8%D8%A7%D8%B2%DB%8C-counter--go-%DB%8C%D8%A7-Counter-Strike--Global-Offensive.html
دمت گرم داشی. کارم راه افتاد . این بازی رو مجانی میذارم واسه دانلود.
http://easylan.ir/?p=293