替换行内容

aixuan

  

文件号 ＝ 打开文件 (取运行目录 () ＋ “/整理.txt”, , )
内容 ＝ 读入文本 (文件号, )
文本_分割文本 (内容, #换行符, , 第一次分割)
调试输出 (取数组成员数 (第一次分割))
计次循环首 (取数组成员数 (第一次分割), i)
如果真 (文本_取长度 (第一次分割 [i]) ＜ 20)
行数 ＝ 文本_取文本所在行 (内容, 第一次分割 [i], 真)
内容 ＝ 文本_替换行内容 (内容, 行数, “;1111111111111111111111”)
调试输出 (行数, 第一次分割 [i])
处理事件 ()
计次循环尾 ()
整理空行 ＝ 文本_删除空行 (内容)
整理空行 ＝ 文本_替换 (整理空行, , , , 字符 ( #Tab键 ), “ ”, “=”, “ ”, “    ”, “ ”, “   ”, “ ”, “  ”, “ ”)
写到文件 (取运行目录 () ＋ “/1.txt”, 到字节集 (整理空行))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “/整理.txt”, , )<br /> 内容 ＝ 读入文本 (文件号, )<br /> 文本_分割文本 (内容, #换行符, , 第一次分割)<br /> <br /> 调试输出 (取数组成员数 (第一次分割))<br /> <br /> .计次循环首 (取数组成员数 (第一次分割), i)<br /> <br />     .如果真 (文本_取长度 (第一次分割 <i>) ＜ 20)<br />         行数 ＝ 文本_取文本所在行 (内容, 第一次分割 <i>, 真)<br />         内容 ＝ 文本_替换行内容 (内容, 行数, “;1111111111111111111111”)<br />         调试输出 (行数, 第一次分割 <i>)<br /> <br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 整理空行 ＝ 文本_删除空行 (内容)<br /> 整理空行 ＝ 文本_替换 (整理空行, , , , 字符 (#Tab键), “ ”, “=”, “ ”, “    ”, “ ”, “   ”, “ ”, “  ”, “ ”)<br /> 写到文件 (取运行目录 () ＋ “/1.txt”, 到字节集 (整理空行))

为什么替换不了最后一行的1 250  我都快疯了。请大神指教

b0y

  

变量名	类 型	静态	数组	备 注
文件号	整数型
内容	文本型
第一次分割	文本型		0
i	整数型
行数	整数型
整理空行	文本型

文件号 ＝ 打开文件 (取运行目录 () ＋ “/整理.txt”, , )
内容 ＝ 读入文本 (文件号, )
文本_分割文本 (内容, #换行符, , 第一次分割)
行数 ＝ 取数组成员数 (第一次分割)
变量循环首 (行数, 1, -1, i)
判断 (第一次分割 [i] ＝ “”)
删除成员 (第一次分割, i, )
判断 (文本_取长度 (第一次分割 [i]) ＜ 20)
第一次分割 [i] ＝ “;1111111111111111111111”



变量循环尾 ()
整理空行 ＝ 数组_合并_快速 (第一次分割, #换行符 )
整理空行 ＝ 文本_替换 (整理空行, , , , 字符 ( #Tab键 ), “ ”, “=”, “ ”, “    ”, “ ”, “   ”, “ ”, “  ”, “ ”)
写到文件 (取运行目录 () ＋ “/1.txt”, 到字节集 (整理空行))

.版本 2<br /> <br /> .局部变量 文件号, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 第一次分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 整理空行, 文本型<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “/整理.txt”, , )<br /> 内容 ＝ 读入文本 (文件号, )<br /> 文本_分割文本 (内容, #换行符, , 第一次分割)<br /> 行数 ＝ 取数组成员数 (第一次分割)<br /> .变量循环首 (行数, 1, -1, i)<br />     .判断开始 (第一次分割 <i> ＝ “”)<br />         删除成员 (第一次分割, i, )<br />     .判断 (文本_取长度 (第一次分割 <i>) ＜ 20)<br />         第一次分割 <i> ＝ “;1111111111111111111111”<br />     .默认<br /> <br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> 整理空行 ＝ 数组_合并_快速 (第一次分割, #换行符)<br /> 整理空行 ＝ 文本_替换 (整理空行, , , , 字符 (#Tab键), “ ”, “=”, “ ”, “    ”, “ ”, “   ”, “ ”, “  ”, “ ”)<br /> 写到文件 (取运行目录 () ＋ “/1.txt”, 到字节集 (整理空行))

熬夜

第一次分割 [i] 改成  第一次分割 [i-1] 试试

花间一壶酒

熬夜 发表于 2025-8-13 13:15
第一次分割  改成  第一次分割  试试

那不越界了？   数组索引 0 报错吧

aixuan

熬夜 发表于 2025-8-13 13:15
第一次分割  改成  第一次分割  试试

这样的话报错

山猫啊

.版本 2
.支持库 spec

.局部变量 文件号, 整数型
.局部变量 内容, 文本型
.局部变量 第一次分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 行数, 整数型
.局部变量 整理空行, 文本型
.局部变量 次数, 整数型

文件号 ＝ 打开文件 (取运行目录 () ＋ “/整理.txt”, , )
内容 ＝ 读入文本 (文件号, )
文本_分割文本 (内容, #换行符, , 第一次分割)
调试输出 (取数组成员数 (第一次分割))
.计次循环首 (取数组成员数 (第一次分割), i)
    .如果真 (文本_取长度 (第一次分割 ) ＜ 20)
        调试输出 (i, 第一次分割 )
        内容 ＝ 文本_替换行内容 (内容, i, “;1111111111111111111111”)
    .如果真结束
    处理事件 ()
.计次循环尾 ()
整理空行 ＝ 文本_删除空行 (内容)
整理空行 ＝ 文本_替换 (整理空行, , , , 字符 (#Tab键), “ ”, “=”, “ ”, “    ”, “ ”, “   ”, “ ”, “  ”, “ ”)
写到文件 (取运行目录 () ＋ “/1.txt”, 到字节集 (整理空行))


补充内容 (2025-8-13 13:39):
把行数那一行删除了   然后把替换行内容的 行数 改成  i   就行了

补充内容 (2025-8-13 13:40):
没问题的话  请直接结算就行

补充内容 (2025-8-13 13:42):
补充一句   I本身就是行数   取行数多此一举了  出错就是因为这一行