文件文本内容替换

橙子895

大佬们请教个文件文本替换问题，第一列+第二列≠1500，文本最后面的值提换成编辑框1的内容。应该怎么实现膜拜大佬，

RainCharm

  

子程序名	返回值类型	公开	备 注
测试替换数据
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
文本内容	文本型
行数组	文本型		0
i	整数型
字段数组	文本型		0
第一列	整数型
第二列	整数型
新内容	文本型

文本内容 ＝ 到文本 (读入文件 (文件路径))
行数组 ＝ 分割文本 (文本内容, #换行符, )
新内容 ＝ “”
计次循环首 (取数组成员数 (行数组), i)
如果真 (删首尾空 (行数组 [i]) ＝ “”)
新内容 ＝ 新内容 ＋ #换行符
到循环尾 ()

如果真 (寻找文本 (行数组 [i], “---”, , 假) ≠ -1)
字段数组 ＝ 分割文本 (行数组 [i], “---”, )
如果真 (取数组成员数 (字段数组) ≥ 4)
如果真 (是否为正数 (字段数组 [1]) 且 是否为正数 (字段数组 [2]))
第一列 ＝ 到整数 (字段数组 [1])
第二列 ＝ 到整数 (字段数组 [2])
如果真 (第一列 ＋ 第二列 ≠ 1500)
字段数组 [4] ＝ 删首尾空 (编辑框1.内容)

行数组 [i] ＝ 字段数组 [1] ＋ “---” ＋ 字段数组 [2] ＋ “---” ＋ 字段数组 [3] ＋ “---” ＋ 字段数组 [4]



新内容 ＝ 新内容 ＋ 行数组 [i]
如果真 (i ≠ 取数组成员数 (行数组))
新内容 ＝ 新内容 ＋ #换行符

计次循环尾 ()
写到文件 (文件路径, 到字节集 (新内容))
信息框 (“替换完成！”, 0, , )

子程序名	返回值类型	公开	备 注
是否为正数	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型

如果真 (删首尾空 (文本) ＝ “”)
返回 (假)

计次循环首 (取文本长度 (文本), i)
如果真 (取代码 (文本, i) ＜ 48 或 取代码 (文本, i) ＞ 57)
返回 (假)

计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .子程序 测试替换数据, , 公开<br /> .参数 文件路径, 文本型<br /> .局部变量 文本内容, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 字段数组, 文本型, , "0"<br /> .局部变量 第一列, 整数型<br /> .局部变量 第二列, 整数型<br /> .局部变量 新内容, 文本型<br /> <br /> 文本内容 ＝ 到文本 (读入文件 (文件路径))<br /> 行数组 ＝ 分割文本 (文本内容, #换行符, )<br /> 新内容 ＝ “”<br /> .计次循环首 (取数组成员数 (行数组), i)<br />     .如果真 (删首尾空 (行数组 <i>) ＝ “”)<br />         新内容 ＝ 新内容 ＋ #换行符<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (行数组 <i>, “---”, , 假) ≠ -1)<br />         字段数组 ＝ 分割文本 (行数组 <i>, “---”, )<br />         .如果真 (取数组成员数 (字段数组) ≥ 4)<br />             .如果真 (是否为正数 (字段数组 [1]) 且 是否为正数 (字段数组 [2]))<br />                 第一列 ＝ 到整数 (字段数组 [1])<br />                 第二列 ＝ 到整数 (字段数组 [2])<br />                 .如果真 (第一列 ＋ 第二列 ≠ 1500)<br />                     字段数组 [4] ＝ 删首尾空 (编辑框1.内容)<br />                 .如果真结束<br /> <br />                 行数组 <i> ＝ 字段数组 [1] ＋ “---” ＋ 字段数组 [2] ＋ “---” ＋ 字段数组 [3] ＋ “---” ＋ 字段数组 [4]<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     新内容 ＝ 新内容 ＋ 行数组 <i><br />     .如果真 (i ≠ 取数组成员数 (行数组))<br />         新内容 ＝ 新内容 ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 写到文件 (文件路径, 到字节集 (新内容))<br /> 信息框 (“替换完成！”, 0, , )<br /> <br /> <br /> .子程序 是否为正数, 逻辑型<br /> .参数 文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (删首尾空 (文本) ＝ “”)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .计次循环首 (取文本长度 (文本), i)<br />     .如果真 (取代码 (文本, i) ＜ 48 或 取代码 (文本, i) ＞ 57)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (真)