TC官方合作论坛

 找回密码
 立即注册
查看: 2230|回复: 5

[入门] 【有源码】文件与配置的读写练习作品 高手勿喷

[复制链接]
发表于 2013-12-14 22:41:19 | 显示全部楼层 |阅读模式
文件与配置的读写练习作品 高手勿喷

空间 字符串转换
变量 数据=数组[2][100000],大小=1000

功能 按钮0_点击()
    路径=文件.对话框(1)
    如果 (字符串.移除(路径,字符串.长度(路径)-4,真)==".txt")
        句柄=文件.打开(路径)
        内容=文件.读一行(句柄)
        变量 空行=0,循环控制=0,临时=数组[2]
        循环 (空行<5)
            如果 (字符串.查找字符(内容,44)>0)
                空行=0
                字符串.分割(内容,",",临时)
                数据[0][循环控制]=临时[0]
                数据[1][循环控制]=临时[1]
                循环控制++
                内容=文件.读一行(句柄)
            否则
                空行++
                内容=文件.读一行(句柄)
            如果结束
        循环结束
        大小=循环控制
        文件.关闭(句柄)
        辅助.消息框("导入完毕.","提示:")
    如果结束
功能结束


功能 得到日期()
    thedate = 日期时间.当前日期()
    return 日期时间.年(thedate)&日期时间.月(thedate)&日期时间.日(thedate)&日期时间.时(thedate)&日期时间.分(thedate)&日期时间.秒(thedate)
功能结束

功能 按钮1_点击()
    路径=文件.对话框(2)  
    地址=路径&"\\转换_"&字符串转换.得到日期()&".ini"
    句柄=文件.创建(地址)
    for(循环控制=0;循环控制<大小;循环控制++)
        文件.写一行(句柄,"["&类型.转字符型(循环控制+1)&"]")
        文件.写一行(句柄,"ServerName=填写你的区")
        文件.写一行(句柄,"Account="&数据[0][循环控制])
        文件.写一行(句柄,"Psd="&数据[1][循环控制])
        文件.写一行(句柄,"PlayName=新建角色")
    endfor
    文件.关闭(句柄)
    辅助.消息框("导出完毕.文件地址:"&地址)
功能结束

空间结束


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

发表于 2013-12-14 23:40:46 | 显示全部楼层
新手代码能完整实现,不错!!值得赞{:soso_e179:}
不过代码尚有改进空间,比如数组定义,初始可为0成员,后面使用数组重定义让成员在需要的时候才增加.
养成一个好习惯,尽量减少变量污染,不需要的数组长度不申请,不重复使用的值不进变量,还可以节约内存开销

善用return.比如whule(空行<5)其实可以直接while(true),在情况结束时直接return.用好这个,你会发现函数能灵活很多

考虑使用线程,读这个东西,可少,可多,碰到一个长文件,你这样界面肯定卡死.
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-12-15 08:37:00 | 显示全部楼层
超自然 发表于 2013-12-14 23:40
新手代码能完整实现,不错!!值得赞
不过代码尚有改进空间,比如数组定义,初始可为0成员,后面使 ...

恩恩谢谢 我会改进的
回复 支持 反对

使用道具 举报

发表于 2014-5-14 17:00:46 | 显示全部楼层
谢谢~好心人~你的东西很适合我~求一直出作品~~
回复 支持 反对

使用道具 举报

发表于 2014-5-14 23:36:14 | 显示全部楼层
感谢分享!
回复

使用道具 举报

发表于 2014-12-15 04:28:39 | 显示全部楼层
文件读写操作我是最近才完成,~~ 想编一个称心如意的小记事本,
所以对这方面很用功,不懂的太多,老是卡在一个地方
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-5-17 23:18 , Processed in 0.039332 second(s), 23 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

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