vb替换文本文件中指定的内容
答案:1 悬赏:60 手机版
解决时间 2021-03-17 17:45
- 提问者网友：不要迷恋哥
- 2021-03-17 02:20
vb替换文本文件中指定的内容
最佳答案
- 五星知识达人网友：有你哪都是故乡
- 2021-03-17 03:31
Private Sub Command1_Click()
Dim fs As String
Open "c:\esfront31.ini" For Binary As #1
fs = Input(LOF(1), #1)
Close #1
fs = Replace(fs, "posname", "pos")
Kill "c:\esfront31.ini"
Open "c:\esfront31.ini" For Binary As #1
Put #1, , fs
Close #1
End Sub
Dim fs As String
Open "c:\esfront31.ini" For Binary As #1
fs = Input(LOF(1), #1)
Close #1
fs = Replace(fs, "posname", "pos")
Kill "c:\esfront31.ini"
Open "c:\esfront31.ini" For Binary As #1
Put #1, , fs
Close #1
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯