Question

VB修改text中的内容并保存。求最简单的方法。 【回答满意的话另外追加100分】

text1：
————————————————————
A
B
C
D
E
————————————————————
题目：我想用VB点击cmd1后把text1中的第1、2、3行的内容替换为1、2、3
把第5行的内容替换为5。然后另存为text2。
要有具体过程，代码。
【回答满意的话另外追加100分】

若以下回答无法解决问题，邀请你更新回答

Answer 1

Private Sub Command1_Click()
dim a() as string
Open "d:\1.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Dim i As Integer
redim a(0)
i=0
Do While Not EOF(1)
On Error Resume Next
Line Input #1, a(i)
i=i+1
redim preserver a(i)
Loop
Close #1
a(0)=1
a(1)=2
a(2)=3
 
dim str1 as string ,s
for each s in a
str1=str1 & chr(10) & chr(13) & s
next
 
Open "d:\1.txt" For Output As #1
Print #1, str1
Close #1

追问

可以加个注解吗 preserver应该是preserve 多了个r
而且这个程序运行后是这样的了
123DE
并没有另存为2.txt
E的值也没变。