Private Sub Command1_Click()
Dim s As String
Open "c:\123.txt" For Input As #1
Open "c:\123a.txt" For Output As #2
Do Until EOF(1)
Input #1, s
If s = "width=2000" Then
Print #2, "加入的一行"
Print #2, "width=2000"
Else
Print #2, s
End If
Loop
Close #2
Close #1
Kill "c:\123.txt"
Name "c:\123a.txt" As "c:\123.txt"
End Sub