.版本 2 .支持库 spec .程序集 txt操作 .程序集变量 文件地址, 整数型 .程序集变量 文件路径提取, 文本型 .子程序 txt_初始化文件, 逻辑型, 公开, 成功返回真，失败返回假。 .参数 文件路径, 文本型, , 详细文件路径地址 文件地址 ＝ 打开文件 (文件路径, 3, 1) 文件路径提取 ＝ 文件路径 .如果 (文件地址 ＝ 0) 返回 (假) .否则 返回 (真) .如果结束 .子程序 txt_删除某行, 逻辑型, 公开, 成功返回真，失败返回假。 .参数 删除某行, 整数型, , 输入要删除第几行 .局部变量 获取到的文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 文本内容, 文本型 .局部变量 文本总行数, 整数型 .局部变量 i, 整数型 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (假) .否则 .如果结束 .如果 (移到文件首 (文件地址) ＝ 假) 返回 (假) .否则 .如果结束 获取到的文本 ＝ 读入文本 (文件地址, ) 文本分割 ＝ 分割文本 (获取到的文本, #换行符, ) 文本总行数 ＝ 取数组成员数 (文本分割) .如果 (文本总行数 ≥ 删除某行) .否则 调试输出 (“删除失败：文件内总行数小于设置的删除行数！”) 返回 (假) .如果结束 .计次循环首 (文本总行数, i) .如果 (i ＝ 删除某行) .否则 文本内容 ＝ 文本内容 ＋ 文本分割 [i] ＋ #换行符 .如果结束 .计次循环尾 () ' /开始删除原始文件内所有文本数据 关闭文件 (文件地址) 删除文件 (文件路径提取) .如果 (写到文件 (文件路径提取, 到字节集 (文本内容)) ＝ 真) 调试输出 (“删除成功！”) 返回 (真) .否则 调试输出 (“删除失败，未知原因！”) .如果结束 返回 (假) .子程序 txt_替换某行内容, 逻辑型, 公开, 成功返回真，失败返回假。 .参数 替换位置, 整数型, , 输入要替换位置（第几行） .参数 替换内容, 文本型, , 输入要替换的内容 .局部变量 获取到的文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 文本内容, 文本型 .局部变量 文本总行数, 整数型 .局部变量 i, 整数型 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (假) .否则 .如果结束 .如果 (移到文件首 (文件地址) ＝ 假) 返回 (假) .否则 .如果结束 获取到的文本 ＝ 读入文本 (文件地址, ) 文本分割 ＝ 分割文本 (获取到的文本, #换行符, ) 文本总行数 ＝ 取数组成员数 (文本分割) .如果 (文本总行数 ≥ 替换位置) .否则 调试输出 (“替换失败：文件内总行数小于设置的替换行数！”) 返回 (假) .如果结束 .计次循环首 (文本总行数, i) .如果 (i ＝ 替换位置) 文本内容 ＝ 文本内容 ＋ 替换内容 ＋ #换行符 .否则 文本内容 ＝ 文本内容 ＋ 文本分割 [i] ＋ #换行符 .如果结束 .计次循环尾 () ' /开始删除原始文件内所有文本数据 关闭文件 (文件地址) 删除文件 (文件路径提取) .如果 (写到文件 (文件路径提取, 到字节集 (文本内容)) ＝ 真) 调试输出 (“替换成功！”) 返回 (真) .否则 调试输出 (“替换失败，未知原因！”) .如果结束 返回 (假) .子程序 txt_在某行插入内容, 逻辑型, 公开, 成功返回真，失败返回假。 .参数 插入位置, 整数型, , 输入要要把内容插入第几行，原始内容下移。 .参数 插入内容, 文本型, , 输入要插入的内容 .局部变量 获取到的文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 文本内容, 文本型 .局部变量 文本总行数, 整数型 .局部变量 i, 整数型 .局部变量 替换内容, 文本型 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (假) .否则 .如果结束 .如果 (移到文件首 (文件地址) ＝ 假) 返回 (假) .否则 .如果结束 获取到的文本 ＝ 读入文本 (文件地址, ) 文本分割 ＝ 分割文本 (获取到的文本, #换行符, ) 文本总行数 ＝ 取数组成员数 (文本分割) .如果 (文本总行数 ≥ 插入位置) .否则 调试输出 (“插入失败：文件内总行数小于设置的替换行数！”) 返回 (假) .如果结束 .计次循环首 (文本总行数, i) .如果 (i ＝ 插入位置) 文本内容 ＝ 文本内容 ＋ 插入内容 ＋ #换行符 文本内容 ＝ 文本内容 ＋ 文本分割 [i] ＋ #换行符 .否则 文本内容 ＝ 文本内容 ＋ 文本分割 [i] ＋ #换行符 .如果结束 .计次循环尾 () ' /开始删除原始文件内所有文本数据 关闭文件 (文件地址) 删除文件 (文件路径提取) .如果 (写到文件 (文件路径提取, 到字节集 (文本内容)) ＝ 真) 调试输出 (“插入成功！”) 返回 (真) .否则 调试输出 (“插入失败，未知原因！”) .如果结束 返回 (假) .子程序 txt_取某行内容, 文本型, 公开, 成功返回取到的行文本，失败返回-1。 .参数 行数位置, 整数型, , 取第几行的内容 .局部变量 文本分割, 文本型, , "0" .局部变量 文件号, 整数型 .局部变量 获取到的文本, 文本型 .局部变量 文本总行数, 整数型 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (“-1”) .否则 .如果结束 .如果 (移到文件首 (文件地址) ＝ 假) 返回 (“-1”) .否则 .如果结束 获取到的文本 ＝ 读入文本 (文件地址, ) 文本分割 ＝ 分割文本 (获取到的文本, #换行符, ) 文本总行数 ＝ 取数组成员数 (文本分割) .如果 (文本总行数 ≥ 行数位置) .否则 调试输出 (“获取失败：文件内总行数小于设置的替换行数！”) 返回 (“-1”) .如果结束 返回 (文本分割 [行数位置]) .子程序 txt_取内容总行数, 整数型, 公开, 成功返回txt文本总行数，失败返回0。 .局部变量 文本分割, 文本型, , "0" .局部变量 文本总行数, 整数型 .局部变量 获取到的文本, 文本型 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (0) .否则 .如果结束 .如果 (移到文件首 (文件地址) ＝ 假) 返回 (0) .否则 .如果结束 获取到的文本 ＝ 读入文本 (文件地址, ) 文本分割 ＝ 分割文本 (获取到的文本, #换行符, ) 文本总行数 ＝ 取数组成员数 (文本分割) 返回 (文本总行数) .子程序 txt_删除全部内容, 逻辑型, 公开, 成功返回真，失败返回假。 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (假) .否则 .如果结束 关闭文件 (文件地址) 删除文件 (文件路径提取) .如果 (写到文件 (文件路径提取, { }) ＝ 真) 调试输出 (“删除成功！”) 返回 (真) .否则 调试输出 (“删除失败，未知原因！”) .如果结束 返回 (假) .子程序 txt_替换具体内容, 逻辑型, 公开, 成功返回真，失败返回假。 .参数 欲被替换的内容, 文本型, , 输入txt文件内欲被更换的内容 .参数 用作替换的内容, 文本型, 可空, 输入更换的内容，可留空，如果留空则直接删除掉欲被替换的内容 .局部变量 获取到的文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 文本总行数, 整数型 .局部变量 i, 整数型 .局部变量 文本内容, 文本型 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (假) .否则 .如果结束 .如果 (移到文件首 (文件地址) ＝ 假) 返回 (假) .否则 .如果结束 获取到的文本 ＝ 读入文本 (文件地址, ) 文本分割 ＝ 分割文本 (获取到的文本, #换行符, ) 文本总行数 ＝ 取数组成员数 (文本分割) .计次循环首 (文本总行数, i) 文本内容 ＝ 文本内容 ＋ 子文本替换 (文本分割 [i], 欲被替换的内容, 用作替换的内容, , , 真) ＋ #换行符 .计次循环尾 () ' /开始删除原始文件内所有文本数据 关闭文件 (文件地址) 删除文件 (文件路径提取) .如果 (写到文件 (文件路径提取, 到字节集 (文本内容)) ＝ 真) 调试输出 (“成功！”) 返回 (真) .否则 调试输出 (“失败，未知原因！”) .如果结束 返回 (假) .子程序 txt_在txt文件末尾插入内容, 逻辑型, 公开 .参数 要插入末尾的内容, 文本型 .局部变量 获取到的文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 文本总行数, 整数型 .局部变量 i, 整数型 .局部变量 文本内容, 文本型 .如果 (文件地址 ＝ 0) 调试输出 (“错误提示：请先初始化文件！”) 返回 (假) .否则 .如果结束 获取到的文本 ＝ 读入文本 (文件地址, ) 文本分割 ＝ 分割文本 (获取到的文本, #换行符, ) 文本总行数 ＝ 取数组成员数 (文本分割) .计次循环首 (文本总行数, i) 文本内容 ＝ 文本内容 ＋ 文本分割 [i] ＋ #换行符 .计次循环尾 () 文本内容 ＝ 文本内容 ＋ 要插入末尾的内容 ＋ #换行符 ' /开始删除原始文件内所有文本数据 关闭文件 (文件地址) 删除文件 (文件路径提取) .如果 (写到文件 (文件路径提取, 到字节集 (文本内容)) ＝ 真) 调试输出 (“插入成功！”) 返回 (真) .否则 调试输出 (“插入失败，未知原因！”) .如果结束 返回 (假)