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