Question

vb修改txt指定的内容

vb修改txt指定的内容。
txt里面有很多行数据。每一行里面有一个机种名。不会重复，具有唯一性。我是想通过vb查找我要的机种名对应的行然后进行修改。修改时只修改第四个“：”和第五个“：”中间的文字，代码要怎么写？

Answer 1

dim fenli() as string
dim shuju = '读出txt的数据
fenli=split(shuju,":") '使用‘：’分离txt中内容shuju
fenli(4)= 'fenli(4)即是4、5两:间的东西，你可以修改
shuju="" '初始化shuju，准备存储
for i=0 to fenli.length '合并txt的内容
shuju =shuju & fenli(i) & ":"
next i
shuju=left(shuju,len(shuju)-1)
‘然后把他存回去

追问

能具体点吗？我是新手。我是想在txt中查找机种名，然后修改查找到的机种名的那一行的第四个“：”和第五个“：”中间的文字

Answer 2

我在手机上，只能简单说：使用循环（先获取行数或到文件尾）读取文本行，对每行分析判断和修改。

追问

如果有空用电脑时，帮我写写好吗？我急着要这个。我是想查找机种名，然后修改查找到的机种名的那一行的第四个“：”和第五个“：”中间的文字