نوشتن و تغییر دادن یک سطر دلخواه فایل متنی

[behrouz_h]

سلام دوستان
من یک فایل متنی با پسوند txt دارم حالا می خوام یک عبارت رو داخل اون پیدا کنم و مقدارش رو تغییر داده ، دوباره همون فایل ذخیره کنم . دوستان اگر اطلاعاتی در این مورد دارند راهنمایی کنند ، ممنون .

[m.4.r.m]

با این کد :
Private Sub Command1_Click()
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Ali.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, Text1.Text, Text2.Text)

Set objFile = objFSO.OpenTextFile("C:\Ali.txt", ForWriting)
objFile.Write strNewText
objFile.Close
End Sub


Text1 : رشته مورد جست و جوی شما
Text2 : رشته جایگزین شما

[new_chater]

با این کد :
Private Sub Command1_Click()
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Ali.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, Text1.Text, Text2.Text)

Set objFile = objFSO.OpenTextFile("C:\Ali.txt", ForWriting)
objFile.Write strNewText
objFile.Close
End Sub


Text1 : رشته مورد جست و جوی شما
Text2 : رشته جایگزین شما


با سلام

من چطور میتونم از همین روش اطلاعات یک فایل متنی رو بگیرم و بعد با کمی تغییرات به عنوان مثال در وسط متن 4 کلمه رو بخواهم تغییر بدم و بعد توی همون پوشه ذخیره کنم.

با تشکر از شما