vb写入txt指定行

RT，
说清楚点，就是有个变量X，它可以等于10以内的数（TEXT1设置）
点击按钮后，进行以下操作：
1、选定a.ini。
2、写入TEXT2的文本(在第X行，覆盖原来的那行文字)
3、保存
求大虾帮助！

Sub private sub Command1_Click()
ChDir App.Path
dim TT(1000) as string
dim ss as integer
dim i as integer
Open App.Path +"a.ini" For Input As 1#
Do Until EOF(1)
Input #1, TT(ss)
ss = ss + 1
Loop
Close 1#
Open App.Path +"a.ini" For output As 2#
For i=0 to ss-1
if i=val(text2.text) then
Print #2, text.text
else
print #2, TT(i)
end if
next i
close #2
End sub
看看 是不是这个思路

有没有原题 你这说的有点儿。。。。

大致思路是这样：

建立动态字符型数组；

逐行读入a.txt的内容，依次赋值给数组的元素，先读入前4行；

把text的内容赋值给数组的下一个元素；

再读入a的剩余内容、逐行赋值给数组的后面元素。

然后把数组全部内容拼接为一个字符串，每两个元素中间加上vbcrlf，覆盖的方式写入到a里面

祝你成功！

------上海财智学院国际硕士预科班欢迎你！www.witedu.org.cn