直接用读写配置项保存此类信息即可,方便快捷
0若你要修改,那也行。
.版本 2
.支持库 shell
.程序集 窗口程序集1, , , 有用记得采纳~
.程序集变量 szFileName, 文本型
.子程序 __启动窗口_创建完毕
szFileName = 取特定目录 (#系统桌面) + “user.cfg” ' 设定程序目录
写到文件 (szFileName, 到字节集 (“秦始皇Info” + #换行符 + “user_name 赢渠梁”)) ' 赢渠梁为错误信息
.子程序 _按钮1_被单击
.局部变量 szTempTextArr, 文本型, , "0"
.局部变量 szTempText, 文本型
.局部变量 nRow, 整数型
.局部变量 szTempTextArr2, 文本型, , "0"
.局部变量 nIndex, 整数型
.局部变量 szText, 文本型
' 修改
szTempText = 到文本 (读入文件 (szFileName)) ' 读入
.如果真 (szTempText = “”) ' 判断读入是否成功
返回 ()
.如果真结束
szTempTextArr = 分割文本 (szTempText, #换行符, ) ' 分行
nRow = 取数组成员数 (szTempTextArr) ' 取多少行
.计次循环首 (nRow, nIndex) ' 有多少行循环多少次
.如果真 (寻找文本 (szTempTextArr [nIndex], “user_name”, , 假) ≠ -1) ' 循环每一行对比是不是user_name信息行
szTempTextArr2 = 分割文本 (szTempTextArr [nIndex], “ ”, ) ' 把信息行分割,获得需要改的名字
szText = 子文本替换 (szTempText, szTempTextArr2 [2], “嬴政”, , , 真) ' 用“嬴政”替代“赢渠梁”
写到文件 (szFileName, 到字节集 (szText)) ' 重新写回文件
跳出循环 () ' 结束循环
.如果真结束
.计次循环尾 ()
.版本 2
.子程序 _恢复默认按钮_被单击
.局部变量 文件号, 整数型
.局部变量 行数, 整数型
.局部变量 行文本, 文本型
.局部变量 默认玩家, 文本型
文件号 = 打开文件 (“user.cfg.txt”, , )
.如果真 (文件号 ≠ 0)
行数 = 0
.判断循环首 (取反 (是否在文件尾 (文件号, )))
行数 = 行数 + 1
行文本 = 读入一行 (文件号)
.判断开始 (行数 = 1)
编辑框1.内容 = 行文本
.默认
.判断开始 (行数 = 2 且 寻找文本 (行文本, “user_name”, , 假) ≠ -1)
默认玩家 = “123”
编辑框1.内容 = 编辑框1.内容 + #换行符 + “user_name ” + 默认玩家 + “.”
.默认
编辑框1.内容 = 编辑框1.内容 + #换行符 + 行文本
.判断结束
.判断结束
.判断循环尾 ()
.如果真结束
关闭文件 (文件号)
读取他,然后变成文本。
以换行符分割他
选择第二个
文本[2] = “user_name 123”
然后
写出
用到一个模块,自行搜下