ذخيره در يك فايل متني كنار برنامه

[docendo]

دوستان عزیز لطفا یک مثال ساده از ذخيره در يك تکست فايل كنار برنامه بنویسند مثلا وقتی نام یکی از شهرهای ایران را از کمبو باکس انتخاب میکنیم بعنوان آخرین نمایش ذخیره گردد که در اجرای دوباره برنامه نخواهیم شهر مورد نظر را دوباره انتخاب کنیم و بطور اتومات نشان داده شود
من این سوال را در سی شارپ نوشتم ولی جواب خوب نگرفتم

[ghayour]

می توانید آن را در رجیستری ذخیره کنید
رجیستری خیلی بهتر از یک فایل تکست هست.

[docendo]

ممنون میشوم اگر یک مثال عینی بنویسید

[ghayour]

رجیستری که یک جستجو توی گوگل بزنی خیلی پیدا میکنی.
در مورد فایل تکست هم که گفتی این پروژه رو برات میذارم:

[ghayour]

راستی برای بازگرداندن متن از فایل تکست به تکست باکس هم این کد رو داخل لود فرمت بنویس.
ضمنا کمبو هم مثل تکست باکس هست.
Dim objStreamRead As StreamReader
objStreamRead = New StreamReader("New Text Document.txt", True)
TextBox1.Text = objStreamRead.ReadLine
objStreamRead.Close()
موفق باشید

[gilsoft]

ممنون میشوم اگر یک مثال عینی بنویسید

سلام دوست عزیز

اینم بصورت خیلی ساده : (چون بصورت Text گفتی ... برات نوشتم)
Imports System.IO

Public Class Form1

Private FileName As String = Application.StartupPath & "\" & Path.GetFileNameWithoutExtension(Application.Execu tablePath) & ".ini"

Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
Dim FS As New FileStream(FileName, FileMode.Create, FileAccess.Write)
Dim SW As New StreamWriter(FS)
SW.Write("CITY=")
SW.WriteLine(TextBox1.Text.Trim)
SW.Close() : FS.Close()
End Sub

Private Sub btnRead_Click(sender As System.Object, e As System.EventArgs) Handles btnRead.Click
Dim FS As New FileStream(FileName, FileMode.Open, FileAccess.Read)
Dim SR As New StreamReader(FS)
Dim rec As String
Do While SR.EndOfStream = False
rec = SR.ReadLine
If rec.Contains("CITY") Then
TextBox1.Text = CInt(Mid(rec, rec.IndexOf("=") + 2))
'
' ComboBox1.SelectedIndex = Value
'
Exit Do
End If
Loop
SR.Close() : FS.Close()
End Sub
End Class

موفق باشید