replace کردن یک رشته در فایل؟

[MohammadGh2011]

اين هم براي متن متغير:

Dim inti As Integer

Dim filepath As String

Dim fileline As String

Dim le As String

Dim mi As String



filepath = "C:\txtfile.txt"

FileNumber = FreeFile



Open filepath For Input As FileNumber

While EOF(FileNumber) = False

    Input #FileNumber, fileline

    le = fileline

Wend

Close



Open filepath For Output As FileNumber

Write #FileNumber, Replace(le, "1", "9")

Close FileNumber

موفق باشيد