كيف تتم الكتابة في سطر معين بملف نصي؟

try this code

Dim yy As String

Dim line_to_be_replaced As Integer

Dim new_string As String

Open App.Path & "\123.txt" For Input As #1

Open App.Path & "\123_tmp.txt" For Output As #3

Dim i As Integer

i = 0

line_to_be_replaced = 5

new_string = "your new data"

While Not EOF(1)

i = i + 1

Input #1, yy

If i <> line_to_be_replaced Then

Print #3, yy

Else

Print #3, new_string

End If

Wend

Close #1

Close #3

MsgBox "finished"

Kill App.Path & "\123.txt"

Name App.Path & "\123_tmp.txt" As App.Path & "\123.txt"

thank you

ممكن احاول واكتب كود احلى

بس الصبر جميل