关于文件读书的问题

[sunjian5188]

我有这样一个文件

例如

123456=sdjfjsdf
'''我在读文件的时候想在这两行之间插入一行数据怎么办
width=2000

[射天狼]

读文件时加!?什么意思?
共有几行,在第几行加,是加一行还是多行?说明白了!!
123456=sdjfjsdf是否是第一行.否则怎么加~~

[YuLv]

?????????

[sunjian5188]

比如有100行数据当我读到第五十行的时候我想添加一行到第五十行的后面怎么添加

[wumy_ld]

做一个临时文件，把前五十行数据放到该临时文件里面，然后添加一行，接着把剩下的行放进去，之后删掉原来的文件，再重命名临时文件。

[rainstormmaster]

先全部读出，改变数据后再写入文件

[goodname008]

我把上面几位的话翻译成了VB代码，假设c:\123.txt文件如下：
fhdjklashfldh
qroerpwuqrpuweopr
123456=sdjfjsdf
width=2000
dklasjfkl;jds
cvznxz.vnz
要在第三行和第四行之间加入一行文字“加入的一行”

Option Explicit

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

[踏平扶桑]

就象三个瓶子有两瓶水，相互颠倒：）

[goodname008]

说得没错. :)