开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1537|回复: 12
收起左侧

[已解决] 利用通用对话框写入和对出编辑框的内容,INI文件

 关闭 [复制链接]
结帖率:54% (7/13)
发表于 2014-2-27 08:23:24 | 显示全部楼层 |阅读模式   福建省福州市
10精币
222.zip (148.26 KB, 下载次数: 5)

最佳答案

查看完整内容

好了,还是帮你修改好了吧

回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳

结帖率:100% (5/5)
发表于 2014-2-27 08:23:25 | 显示全部楼层   江苏省盐城市
222.rar (126.44 KB, 下载次数: 25)

评分

参与人数 1荣誉 +1 收起 理由
笨潴 + 1 热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻!

查看全部评分

回复

使用道具 举报

结帖率:100% (12/12)

签到天数: 2 天

发表于 2014-2-27 08:35:23 | 显示全部楼层   辽宁省葫芦岛市
[e]
.版本 2

.子程序 __启动窗口_创建完毕

编辑框7.内容 = 取运行目录 () + “\setsoft - 副本.ini”

.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框5”, ) = “”)
    编辑框5.内容 = “”
.如果真结束
.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框6”, ) = “”)
    编辑框6.内容 = “”
.如果真结束


[/e]

补充内容 (2014-2-27 08:36):
编辑框4321自己添加下就可以了.上面例子.可以把编辑框内容为空.
回复

使用道具 举报

结帖率:54% (7/13)
 楼主| 发表于 2014-2-27 08:36:45 | 显示全部楼层   福建省福州市

亲 你下载附件看一好吗, 我是自定义读取 任意配置

补充内容 (2014-2-27 08:37):
不是只有这2个  是有100多个配置文件  我可以来回替换使用的

补充内容 (2014-2-27 08:39):
如果配置文件 编辑框的内容是空  就直接替换为空
回复

使用道具 举报

结帖率:100% (12/12)

签到天数: 2 天

发表于 2014-2-27 08:39:27 | 显示全部楼层   辽宁省葫芦岛市
如果用你的对话框方式.你这样添加就可以了.,
[e]
.版本 2

.子程序 _按钮2_被单击

通用对话框1.类型 = 0
通用对话框1.初始目录 = 取运行目录 ()
通用对话框1.打开 ()
编辑框8.内容 = 通用对话框1.文件名
批量_编辑框_保存配置 (_启动窗口, 编辑框8.内容, )
.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框5”, ) = “”)
    编辑框5.内容 = “”
.如果真结束
.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框6”, ) = “”)
    编辑框6.内容 = “”
.如果真结束
.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框4”, ) = “”)
    编辑框4.内容 = “”
.如果真结束
.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框3”, ) = “”)
    编辑框3.内容 = “”
.如果真结束
.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框2”, ) = “”)
    编辑框2.内容 = “”
.如果真结束
.如果真 (读配置项 (取运行目录 () + “\setsoft - 副本.ini”, “编辑框”, “编辑框1”, ) = “”)
    编辑框1.内容 = “”
.如果真结束

[/e]
回复

使用道具 举报

结帖率:100% (12/12)

签到天数: 2 天

发表于 2014-2-27 08:45:36 | 显示全部楼层   辽宁省葫芦岛市
批量读写配置文件.rar (6.57 KB, 下载次数: 4)
回复

使用道具 举报

结帖率:54% (7/13)
 楼主| 发表于 2014-2-27 08:47:09 | 显示全部楼层   福建省福州市
缺1份矜持ゝ 发表于 2014-2-27 08:39
如果用你的对话框方式.你这样添加就可以了.,
[e]
.版本 2

亲  QQ发来  我的意思你还是没有明白  我的意识是,我附件里面的2个配置文件可以随意替换使用,配置文件里面的编辑框的内容为空.读取的时候也是空,现在时有配置有内容他就读取没内容的他还是1  我有100多个配置文件  
回复

使用道具 举报

结帖率:54% (7/13)
 楼主| 发表于 2014-2-27 08:52:29 | 显示全部楼层   福建省福州市

C:\Documents and Settings\Administrator\桌面\QQ图片20140227085150.jpg


你看一下

补充内容 (2014-2-27 08:52):
QQ发来
回复

使用道具 举报

结帖率:100% (5/5)
发表于 2014-2-27 09:00:06 | 显示全部楼层   江苏省盐城市
  1. .版本 2

  2. .子程序 批量_编辑框_读取配置, 整数型, 公开, 与"批量_编辑框_保存配置()"命令一起用的!  返回被操作的编辑框数量!
  3. .参数 组件的父窗口, 窗口, , 直接填写顶级窗口就行了,如:_启动窗口
  4. .参数 配置文件名, 文本型, 可空, 可空:默认保存在根目录\data目录下,名为setsoft.ini
  5. .局部变量 局_寻找句柄, 整数型
  6. .局部变量 局_计次, 整数型
  7. .局部变量 局_组件, 编辑框
  8. .局部变量 局_组件数量, 整数型
  9. .局部变量 局_临时文本, 文本型

  10. .如果真 (是否为空 (配置文件名))
  11.     配置文件名 = 取默认目录 ()
  12. .如果真结束
  13. 局_寻找句柄 = 寻找组件 (组件的父窗口, , “编辑框”, , )
  14. 局_组件数量 = 取找到组件数目 (局_寻找句柄)
  15. .计次循环首 (局_组件数量, 局_计次)
  16.     局_组件 = 取所找到组件 (局_寻找句柄, 局_计次 - 1)
  17.     局_临时文本 = 读配置项 (配置文件名, “编辑框”, 取组件名称 (局_组件), )
  18.     .如果真 (局_临时文本 = “”)
  19.         到循环尾 ()
  20.     .如果真结束
  21.     局_组件.内容 = 子文本替换 (局_临时文本, “><br><”, #换行符, , , 真)
  22. .计次循环尾 ()
  23. 返回 (局_组件数量)
复制代码
这是精易模块代码,把这里面的
  1.     .如果真 (局_临时文本 = “”)
  2.         到循环尾 ()
  3.     .如果真结束
复制代码
去掉,然后插入到自己的代码里就可以了
回复

使用道具 举报

结帖率:54% (7/13)
 楼主| 发表于 2014-2-27 09:05:06 | 显示全部楼层   福建省福州市
小爬虫 发表于 2014-2-27 09:00
这是精易模块代码,把这里面的去掉,然后插入到自己的代码里就可以了

QQ发来  大神

点评

呵呵   辽宁省葫芦岛市  发表于 2014-2-27 09:13
答案在9楼,自己下载看   江苏省盐城市  发表于 2014-2-27 09:08
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表