vb修改txt指定的内容。

[u012748270]

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

[threenewbee]

Dim s As String, find As String s = "123:abc:345:aaa:www:xyz:123" '比如我们要修改www为eee find = Split(s, ":")(4) s = Replace(s, find, "eee") MsgBox s

[of123]

Dim strLine As String, strItem() As String, n As Iteger
n = Val(txtConlon_Number) - 1
Open "1.txt" For Input As #1
Open "2.txt" For Output As #2
Do Until EOF(1)
    Line Input #1, strLine
    If InStr(strLine, txtMachine_Type) Then
        strItem = Split(strLine, ":")
        If n <= Ubound(strItem) Then strItem(n)  = txtNew_Data
        strLine = Join(strItem, ":")
    End If

    Print #2, strLine
Loop
Close #2
Close #1

2.txt 就是修改后的文件。 注意，不要用 Replace 替换行文本。因为行中如果有与第 4 和第 5 个引号之间相同的内容，都会被替换掉。例如，这两个引号之间是 "1"，那么这一行中所有的 "1" 都将被替换掉。直接改掉分割后的该项目就可以了。