易语言txt操作模块源码

.版本 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] ＋ #换行符
.计次循环尾 ()
文本内容 ＝ 文本内容 ＋ 要插入末尾的内容 ＋ #换行符
' /开始删除原始文件内所有文本数据
关闭文件 (文件地址)
删除文件 (文件路径提取)
.如果 (写到文件 (文件路径提取, 到字节集 (文本内容)) ＝ 真)
    调试输出 (“插入成功！”)
    返回 (真)
.否则
    调试输出 (“插入失败，未知原因！”)
.如果结束
返回 (假)

@y582058728