易语言 批量替换文本指定内容后的数字
有一批批量文本文件,里面都有一句:*软荐啦9。其中所在行数不确定,数字“9”不确定,每个文件里不一样。需要批量处理,把每个文件里的这一行:*软荐啦9里的数字按我填写的倍数...
有一批批量文本文件,里面都有一句: *软荐啦 9 。其中所在行数不确定,数字“9”不确定,每个文件里不一样。需要批量处理,把每个文件里的这一行: *软荐啦 9 里的数字按我填写的倍数相乘,并将结果写回到文件原位置。
写了好久程序,总是发现不成功。哪怕只是先按上面的要求尝试着替换单个文件也不行。求高手指点。最好有源码提供学习!
文本文件:
bind "0" "slot10"bind "1" "slot1"bind "2" "slot2"bind "3" "slot3"bind "4" "slot4"*软荐啦 9
bind "5" "slot5"bind "6" "slot6"bind "7" "slot7"bind "8" "slot8"bind "9" "slot9"
写的程序码:
.版本 2
.程序集 窗口程序集1.程序集变量 要写入的内容, 整数型
.子程序 _按钮1_被单击.局部变量 配置文件内容, 文本型.局部变量 文件内容数组, 文本型, , "0".局部变量 n, 整数型.局部变量 要写入的内容, 文本型.局部变量 文件号, 整数型.局部变量 寻找位置, 整数型.局部变量 文本, 文本型
配置文件内容 = 到文本 (读入文件 (取运行目录 () + “\1.cfg”))文件内容数组 = 分割文本 (配置文件内容, #换行符, ).计次循环首 (取数组成员数 (文件内容数组), n) .如果真 (取文本左边 (文件内容数组 [n], 7) = “*软荐啦”) 要写入的内容 = 取文本右边 (文件内容数组 [n], 取文本长度 (文件内容数组 [n]) - 7) 跳出循环 () .如果真结束
.计次循环尾 ()编辑框1.内容 = 要写入的内容编辑框3.内容 = 到文本 (到数值 (编辑框1.内容) × 到数值 (编辑框2.内容))
.如果真 (写到文件 (取运行目录 () + “\456.ini”, 到字节集 (编辑框3.内容)) = 真) ' 编辑框1.内容 = 要写入的内容 信息框 (“写入成功!”, 0, ).如果真结束
.子程序 _按钮2_被单击.局部变量 文件号, 整数型.局部变量 寻找位置, 整数型.局部变量 文本, 文本型
文件号 = 打开文件 (取运行目录 () + “\1.cfg”, #读写, ).如果真 (编辑框3.内容 ≠ “” 且 文件号 ≠ 0) 文本 = 读入文本 (文件号, ) 寻找位置 = 寻找文本 (文本, “*软荐啦”, , 假) + 1 移动读写位置 (文件号, , 寻找位置) 删除数据 (文件号, 寻找文本 (文本, “*软荐啦”, 寻找位置 + 1, 假) + 8) 移动读写位置 (文件号, , 寻找位置) 插入文本 (文件号, 编辑框3.内容) 关闭文件 (文件号).如果真结束 展开
写了好久程序,总是发现不成功。哪怕只是先按上面的要求尝试着替换单个文件也不行。求高手指点。最好有源码提供学习!
文本文件:
bind "0" "slot10"bind "1" "slot1"bind "2" "slot2"bind "3" "slot3"bind "4" "slot4"*软荐啦 9
bind "5" "slot5"bind "6" "slot6"bind "7" "slot7"bind "8" "slot8"bind "9" "slot9"
写的程序码:
.版本 2
.程序集 窗口程序集1.程序集变量 要写入的内容, 整数型
.子程序 _按钮1_被单击.局部变量 配置文件内容, 文本型.局部变量 文件内容数组, 文本型, , "0".局部变量 n, 整数型.局部变量 要写入的内容, 文本型.局部变量 文件号, 整数型.局部变量 寻找位置, 整数型.局部变量 文本, 文本型
配置文件内容 = 到文本 (读入文件 (取运行目录 () + “\1.cfg”))文件内容数组 = 分割文本 (配置文件内容, #换行符, ).计次循环首 (取数组成员数 (文件内容数组), n) .如果真 (取文本左边 (文件内容数组 [n], 7) = “*软荐啦”) 要写入的内容 = 取文本右边 (文件内容数组 [n], 取文本长度 (文件内容数组 [n]) - 7) 跳出循环 () .如果真结束
.计次循环尾 ()编辑框1.内容 = 要写入的内容编辑框3.内容 = 到文本 (到数值 (编辑框1.内容) × 到数值 (编辑框2.内容))
.如果真 (写到文件 (取运行目录 () + “\456.ini”, 到字节集 (编辑框3.内容)) = 真) ' 编辑框1.内容 = 要写入的内容 信息框 (“写入成功!”, 0, ).如果真结束
.子程序 _按钮2_被单击.局部变量 文件号, 整数型.局部变量 寻找位置, 整数型.局部变量 文本, 文本型
文件号 = 打开文件 (取运行目录 () + “\1.cfg”, #读写, ).如果真 (编辑框3.内容 ≠ “” 且 文件号 ≠ 0) 文本 = 读入文本 (文件号, ) 寻找位置 = 寻找文本 (文本, “*软荐啦”, , 假) + 1 移动读写位置 (文件号, , 寻找位置) 删除数据 (文件号, 寻找文本 (文本, “*软荐啦”, 寻找位置 + 1, 假) + 8) 移动读写位置 (文件号, , 寻找位置) 插入文本 (文件号, 编辑框3.内容) 关闭文件 (文件号).如果真结束 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询