第1个回答 2011-06-09
.版本 2
.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.程序集变量 文本, 文本型
.子程序 __启动窗口_创建完毕
文件号 = 打开文件 (“D:\ok\123.ini”, 1, 4)
.如果真 (文件号 = 0)
信息框 (“文件打开失败,文件不存在或被禁止打开!”, #错误图标, “错误”)
返回 ()
.如果真结束
文本 = 读入文本 (文件号, )
.如果真 (寻找文本 (文本, “我喜欢唱歌”, , 假) - 1)
结束 ()
.如果真结束
信息框 (“找到”, 0, ) ' 剩下的代码你可以自己写了
第2个回答 2011-06-09
文本里的格式必须是这样的
[1]
1=我喜欢唱歌
--------------------------------------------------------
.版本 2
.判断开始 (读配置项 (“D:\ok\123.ini”, “1”, “1”, ) = “我喜欢唱歌”)
运行 (, 假, )
.默认
.判断结束
---------------------------------------------------------
文件和代码里的两个1可以修改成别的文本