ذخيره در فايل

[majid_vb_2008]

سلام دوستان من با اين كد در فايل متني اطلاعات ذخيره مي كنم و مي خونم

ذخيره


Dim objReader As New StreamWriter(File path and name)
objReader.Write(TextBox1.Text)
objReader.Close()


خواندن


Dim objReader As New StreamReader(File path and name)
TextBox1.Text = objReader.ReadToEnd()
objReader.Close()


حالا يك سوال من مي خوام در زمان خواندن يا نوشتن بتونم خطي كه خوانده يا نوشته مي شه رو مشخص كنم
لطفا راهنمايي كنيد.

[nima898]

چرا خط به خط نمی خونید؟

[majid_vb_2008]

چرا خط به خط نمی خونید؟



بلد نيستم راهنماييم كنيد

[majid_vb_2008]

بلد نيستم راهنماييم كنيد





من هنوز منتظرم

[nima898]

FileOpen(1, "d:\text.txt", OpenMode.Input)
do while not eof(1)
Dim a As String
Input(1, a)
loop
fileclose(1)

فایل های بیشتر هم میشه باز کرد فقط باید شماره فایل رو عوض کرد این کد شماره فایلش یکه و در چهار جا نوشته شده

[majid_vb_2008]

FileOpen(1, "d:\text.txt", OpenMode.Input)
do while not eof(1)
Dim a As String
Input(1, a)
loop
fileclose(1)
فایل های بیشتر هم میشه باز کرد فقط باید شماره فایل رو عوض کرد این کد شماره فایلش یکه و در چهار جا نوشته شده


سلام دوست من

اگر ممکنه یکم بیشتر توضیح بده من متوجه نشدم

[Open-Source]

دوست عزیز.
شما دقیقا بگو چه کاری رو میخوای انجام بدی تا راهنماییت کنیم.
:متفکر:

[majid_vb_2008]

دوست عزیز.
شما دقیقا بگو چه کاری رو میخوای انجام بدی تا راهنماییت کنیم.
:متفکر:

من می خوام تنظیمات اولیه برنامه رو توی یک فایل تکس ذخیره کنم مثلا نام سرور رو توی یک خط
نام کاربر رو توی یک خط

حالا چجوری اطلاعات خط دوم که نام کاربره رو بخونم

[Open-Source]

این برنامه از اول تا آخره فایل رو میخونه، اگه به خط مورد نظر رسید از While بیرون میاد و آخریم مقدار خونده شده رو توی TextBox نمایش میده:


Dim i As Integer = 1
Dim st As String = ""

Dim sr As New System.IO.StreamReader("c:\a.txt")

While sr.EndOfStream = False
st = sr.ReadLine()
If i = 2 Then
Exit While
End If
i += 1
End While

TextBox1.Text = st

sr.Close()
sr.Dispose()

[majid_vb_2008]

ممنون فقط یک سوال

شماره خط در متغییر I قرار می گیره

[Open-Source]

ممنون فقط یک سوال

شماره خط در متغییر I قرار می گیره

بله؛
توی بدنه While هر دفعه که یه خط خونده میشه، یکی به i اضافه میشه.

[nima898]

یه سوال چرا به خط 2 برسه از حلقه بیاد بیرون؟



If i = 2 Then
Exit While
End If

و اینکه میشد به این شکل بنویسید:


If i = 2 Then Exit While

[majid_vb_2008]

حالا چجوری هر خط رو توی یک متغییر قرار بدم

[nima898]

تو کد جناب Open-Source (http://barnamenevis.org/forum/member.php?u=79096) تو متغیر st و تو کد من تو متغیر a ذخیره میشه
البته کد من یک اشکال کوچیک داشت صحیحش اینه:

FileOpen(1, "d:\text.txt", OpenMode.Input)
Dim a As String
Do while not eof(1)
Input(1, a)
Loop
Fileclose(1)

[Open-Source]

حالا چجوری هر خط رو توی یک متغییر قرار بدم
میتونی از آرایه استفاده کنی.

- درضمن، اگه میخوای اطلاعات برنامه ات رو توی یه فایل ذخیره کنی، از یه فایل XML استفاده کن.

[majid_vb_2008]

میتونی از آرایه استفاده کنی.

- درضمن، اگه میخوای اطلاعات برنامه ات رو توی یه فایل ذخیره کنی، از یه فایل XML استفاده کن.



در مورد فایلهای XML اطلاعاتی ندارم میتونید یکم بیشتر توضیح بدید

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

[majid_vb_2008]

این برنامه از اول تا آخره فایل رو میخونه، اگه به خط مورد نظر رسید از While بیرون میاد و آخریم مقدار خونده شده رو توی TextBox نمایش میده:


Dim i As Integer = 1
Dim st As String = ""

Dim sr As New System.IO.StreamReader("c:\a.txt")

While sr.EndOfStream = False
st = sr.ReadLine()
If i = 2 Then
Exit While
End If
i += 1
End While

TextBox1.Text = st

sr.Close()
sr.Dispose()


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

[Open-Source]

این هم برای نوشتن در فایل (نوشتن در یک خط جدید):

Dim sr As New System.IO.StreamWriter("c:\a.txt", True)

sr.WriteLine("line 1")
sr.WriteLine("line 2")
sr.WriteLine("line 3")
sr.WriteLine("line 4")

sr.Close()
sr.Dispose()


توی اون خط اول هستش که فایل a.txt رو برای نوشتن باز میکنیم؛
اگه پارامتر دوم True باشه، اگه فایل وجود داشته به انتهای فایل اضافه میکنه (منظور همون Append)، در غیر این صورت فایل رو میسازه.