|
文件与配置的读写练习作品 高手勿喷
空间 字符串转换
变量 数据=数组[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
|