|
发表于 2010-8-31 00:44:42
|
显示全部楼层
河南省济源市
来吧,给你解决了,复制代码到你的里面就行了,主要问题是编辑框分割失败。你没加判断。- .版本 2
- .子程序 _按钮3_被单击
- .局部变量 L, 整数型
- .局部变量 保存, 文本型, , "0"
- 保存 = 分割文本 (编辑框1.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话1”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话1”, 保存 [1])
- .否则
- 信息框 (“编辑框1内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话1”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话1”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 保存 = 分割文本 (编辑框2.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话2”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话2”, 保存 [1])
- .否则
- 信息框 (“编辑框2内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话2”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话2”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 保存 = 分割文本 (编辑框3.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话3”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话3”, 保存 [1])
- .否则
- 信息框 (“编辑框3内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话3”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话3”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 保存 = 分割文本 (编辑框4.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话4”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话4”, 保存 [1])
- .否则
- 信息框 (“编辑框4内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话4”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话4”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 保存 = 分割文本 (编辑框5.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话5”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话5”, 保存 [1])
- .否则
- 信息框 (“编辑框5内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话5”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话5”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 保存 = 分割文本 (编辑框6.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话6”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话6”, 保存 [1])
- .否则
- 信息框 (“编辑框6内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话6”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话6”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 保存 = 分割文本 (编辑框7.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话7”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话7”, 保存 [1])
- .否则
- 信息框 (“编辑框7内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话7”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话7”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 保存 = 分割文本 (编辑框8.内容, #换行符, )
- .如果 (取数组成员数 (保存) > 0)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话8”, “”)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话8”, 保存 [1])
- .否则
- 信息框 (“编辑框8内容无法分割。”, 0, )
- 返回 ()
- .如果结束
- .计次循环首 (取数组成员数 (保存), L)
- .如果真 (L > 1)
- .如果真 (L < 取数组成员数 (保存) + 1)
- 写配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话8”, 读配置项 (取运行目录 () + “\config.ini”, “喊话设置”, “喊话8”, ) + “は” + 保存 [L])
- .如果真结束
- .如果真结束
- .计次循环尾 ()
复制代码 |
|