VB如何修改TXT文件指定行的指定内容

来源:百度知道 编辑:UC知道 时间:2024/06/05 05:34:47
举个例子,C盘中的WWE.txt内容如下:
"CHAMPION=EDGE
"CHAMPION=EDGE

我想把第2行的EDGE改为UNDERTAKER
如何写代码?
注:不要用整行替换的方法,请按以下思路:
1.定位到第2行
2.搜索该行的EDGE
3.将其替换为UNDERTAKER

如果你修改的内容长度和原长度不一样,那么你的要求是不可能实现的
要知道文件在磁盘上是连续存放的,替换EDGE为UNDERTAKER时,UNDERTAKER多余出来的字节会覆盖原文件后面同等长度的字节,除非你预留了足够的空字节
所以,替换长度不一样,通常实际上只能是重写文件....

i can do it for you

Private Sub Command1_Click()
Dim str(10000) As String
f$ = "c:\WWE.txt"
Open f For Input As #1
For i = 0 To 10000
If Not EOF(1) Then Input #1, str(i): MsgBox str(i) Else MsgBox i: Exit For
Next
Close
Dim a() As String
a = Split(str(1), "=")
a(1) = "UNDERTAKER"
str(1) = a(0) + "=" + a(1)
MsgBox str(1)
Open f For Output As #1
For j = 0 To i - 1: Print #1, """" + str(j): Next
Close #1
End Sub
Private Sub Form_Load()
Command1.Caption = "Modify Row 2"
End Sub

用like 找到第2个 place替换