PDA

View Full Version : تغییر مقدار در فایل



zhilbert
یک شنبه 02 اسفند 1388, 18:35 عصر
سلام. من یک فایل با پسوند txtساختم و حالا 20 خط ایجاد کردم و توی این خط ها یک مقداری دارم.حالا میخواهم مقدار خط 5 که مثلا علی هست را به فرید تغییر بدهم درصورتی که باقی خط ها مقدار قبلشون را دارن.باید چکار کنم؟ با تشکر

Netsky
یک شنبه 02 اسفند 1388, 21:11 عصر
سلام دوست عزیز .
کارکردن با فایلها به راحتی کار کردن با رکوردهای بانک اطلاعاتی نیست .
فکر کنم باید فایل رو بازنویسی کنی .

sina_saravi1
یک شنبه 02 اسفند 1388, 21:15 عصر
میتونی هر خط را جدا کنی و خط مورد نظر را تغییر بدی

اگه منظورم رو نفهمیدی بگو برات کد بزارم

sina_saravi1
یک شنبه 02 اسفند 1388, 21:47 عصر
این کدو گذاشتم گفتم شاید بیایو من نباشم

به هر حال اگه سوالی داشته باشی من هم نباشم بقیه جواب میدن


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lines() As String
TextBox2.Text.Clone()
lines = Split(TextBox1.Text, vbCrLf)
For i = 0 To UBound(lines)
Select Case i
Case 0
TextBox2.Text = lines(i)
Case 2 ' Khate 3vom ra taghir midahad
TextBox2.Text = TextBox2.Text & vbCrLf & "BarnameNevis.ORG"
Case Else
TextBox2.Text = TextBox2.Text & vbCrLf & lines(i)
End Select
Next
End Sub