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

举个例子,C盘中的WWE.txt内容如下:"CHAMPION=EDGE"CHAMPION=EDGE我想把第2行的EDGE改为UNDERTAKER如何写代码?注:不要用整行... 举个例子,C盘中的WWE.txt内容如下:
"CHAMPION=EDGE
"CHAMPION=EDGE

我想把第2行的EDGE改为UNDERTAKER
如何写代码?
注:不要用整行替换的方法,请按以下思路:
1.定位到第2行
2.搜索该行的EDGE
3.将其替换为UNDERTAKER
展开
 我来答
百度网友01b802e
2009-07-09 · TA获得超过338个赞
知道小有建树答主
回答量:192
采纳率:0%
帮助的人:308万
展开全部
如果你修改的内容长度和原长度不一样,那么你的要求是不可能实现的
要知道文件在磁盘上是连续存放的,替换EDGE为UNDERTAKER时,UNDERTAKER多余出来的字节会覆盖原文件后面同等长度的字节,除非你预留了足够的空字节
所以,替换长度不一样,通常实际上只能是重写文件....
HappyQ6
推荐于2016-11-17 · TA获得超过2092个赞
知道大有可为答主
回答量:1641
采纳率:100%
帮助的人:568万
展开全部
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
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
书西靠可暴2h
2009-07-09 · TA获得超过487个赞
知道小有建树答主
回答量:367
采纳率:0%
帮助的人:213万
展开全部
用like 找到第2个 place替换
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式