以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助。请问下ini的文件 数据可否用代码修改增加内容7  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146263)
--  作者：zto001
--  发布时间：2020/2/20 12:45:00
--  求助。请问下ini的文件 数据可否用代码修改增加内容7
求助。请问下ini的文件 数据可否用代码修改
--  作者：有点蓝
--  发布时间：2020/2/20 13:43:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40490&skin=0
--  作者：zto001
--  发布时间：2020/2/20 14:34:00
--  
不好意思，没看懂那个案例，ini文件里的格式是

[2457837]
回答=通风风管
[我是]
回答=诶水果和i

我想用代码增加这个格式的内容
--  作者：有点蓝
--  发布时间：2020/2/20 14:45:00
--  
什么地方没看懂？
--  作者：zto001
--  发布时间：2020/2/20 16:38:00
--  
[2457837]
回答=通风风管
[我是]
回答=诶水果和i


动态在这个后面增加文字
[动态1]
回答=回答1

[动态2]
回答=回答2
......
--  作者：zto001
--  发布时间：2020/2/20 16:40:00
--  
我要往这里面加内容
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:模糊词库.zip
--  作者：有点蓝
--  发布时间：2020/2/20 16:49:00
--  
Dim util As new INIClass(ProjectPath & "test.ini") 打开文件
If util.ExistINIFile Then 如果文件存在
    msgbox(util.IniReadValue("动态1", "回答")) 读取内容
    util.IniWriteValue("动态2", "回答", "回答3")
End If
--  作者：zto001
--  发布时间：2020/2/20 17:27:00
--  
提示未定义INIClass..
--  作者：有点蓝
--  发布时间：2020/2/20 17:29:00
--  
全局代码
--  作者：zto001
--  发布时间：2020/2/20 17:29:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40490&skin=0
用这里面的全局代码。可用