vb 让ini里的数字＋1

来源：百度知道 编辑：UC知道 时间：2024/05/23 15:05:03
做一个窗体 上面有个按钮 按下按钮后会给 在同目录下的t.ini文件里的数组加上1 （比如t.ini里的数组为 127.0.0.1） 结果变成 127.0.0.2 再按一次变成127.0.0.3 每按一次就将里面的数组加上1
高手帮忙写下代码！

Private Sub Command1_Click()
Dim temp As String, a As String, b As String
Open "z:\t.ini" For Input As #1
Line Input #1, temp
Close #1
a = Mid(temp, InStrRev(temp, ".") + 1, Len(temp) - InStrRev(temp, "."))
b = Mid(temp, 1, InStrRev(temp, "."))
temp = b & Val(a) + 1
Print temp
Open "z:\t.ini" For Output As #1
Print #1, temp
Close #1
End Sub