Question

易语言怎么写txt文本分割器

易语言怎么写txt文本分割器

要求：可以把文本平均分成几份的 或 根据大家分割 就这两中。
有源码的发我邮箱：563943328@qq.com
能把源码发下吗？

Answer 1

.版本 2
.支持库 dp1
.支持库 iext

临时数值 ＝ 取文件尺寸 (临时路径)

临时字节 ＝ 到字节集 (临时数值)

文件大小 ＝ 取字节集数据 (临时字节, #长整数型, )

文件属性 ＝ 取文件属性 (临时路径)
.判断开始 (文件属性 ＝ 1)
属性文本 ＝ “只读文件”
.判断 (文件属性 ＝ 2)
属性文本 ＝ “隐藏文件”
.判断 (文件属性 ＝ 3)
属性文本 ＝ “系统文件”
.判断 (文件属性 ＝ 16)
属性文本 ＝ “文件夹”
.判断 (文件属性 ＝ 32)
属性文本 ＝ “存档文件”
.默认
属性文本 ＝ “未知类型”
.判断结束

编辑框2.内容 ＝ “文件大小：” ＋ 到文本 (文件大小) ＋ “ 字节” ＋ #换行符 ＋ “文件类型：” ＋ 属性文本 ＋ #换行符 ＋ “创建时间：” ＋ 到文本 (取文件时间 (临时路径)) ＋ #换行符

取值次数 ＝ 到整数 (文件大小 ÷ 取值大小)

最后取值 ＝ 文件大小 － 取值次数 × 取值大小

进度位置 [1] ＝ 100 ÷ 取值次数

关闭文件 (读入文件号)
读入文件号 ＝ 打开文件 (临时路径, , )

移动读写位置 (读入文件号, #文件首, 0)

写到文件 (“D:\My Documents\123\123.avi”, 到字节集 (“”))
临时文件号 ＝ 打开文件 (“D:\My Documents\123\123.avi”, , )

.计次循环首 (取值次数, 次数循环)
进度位置 [2] ＝ 进度位置 [2] ＋ 进度位置 [1]
进度条1.位置 ＝ 进度位置 [2]

读入的数据 ＝ 读入字节集 (读入文件号, 取值大小)
读入长度 ＝ 读入长度 ＋ 取字节集长度 (读入的数据)
读入的摘要 ＝ 读入的摘要 ＋ 取数据摘要 (读入的数据)
状态条1.置文本 (0, “ 处理大小：” ＋ 到文本 (读入长度) ＋ “ 字节”)
.计次循环尾 ()
读入的数据 ＝ 读入字节集 (读入文件号, 最后取值)
读入长度 ＝ 读入长度 ＋ 取字节集长度 (读入的数据)
读入的摘要 ＝ 读入的摘要 ＋ 取数据摘要 (读入的数据)
状态条1.置文本 (0, “ 处理大小：” ＋ 到文本 (读入长度) ＋ “ 字节”)
最后摘要 ＝ 取数据摘要 (到字节集 (读入的摘要))
对比摘要 ＝ 最后摘要
进度条1.位置 ＝ 100
关闭文件 (读入文件号)
编辑框2.内容 ＝ 编辑框2.内容 ＋ “文件特征：” ＋ 最后摘要 ＋ #换行符
-------------------------------------------------------------
以上是我写的分割文件的，文本貌似没必要吧 直接取文本长度，取左边右边，中间随便你选

Answer 2

.版本 2

.局部变量 i, 整数型
.局部变量 R, 整数型
.局部变量 文件号, 整数型
.局部变量 路径, 文本型
.局部变量 文件名称, 文本型
.局部变量 分割长度, 整数型
.局部变量 递增长度, 整数型
.局部变量 份数, 整数型

分割长度 ＝ 到数值 (编辑框1.内容) ' 字节
通用对话框1.打开 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, , )
文本内容 ＝ 到字节集 (读入文本 (打开文件 (通用对话框1.文件名, , ), ))
路径 ＝ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假))
文件名称 ＝ 取文本左边 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假)), 倒找文本 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假)), “.”, , 假) － 1)
.如果 (取文本长度 (读入文本 (文件号, )) ＼ 分割长度 ＞ 取文本长度 (读入文本 (文件号, )) ÷ 分割长度)
份数 ＝ 绝对取整 (取文本长度 (读入文本 (文件号, )) ÷ 分割长度) ＋ 1
.否则
份数 ＝ 绝对取整 (取文本长度 (读入文本 (文件号, )) ÷ 分割长度)
.如果结束

.计次循环首 (份数, i)

写到文件 (路径 ＋ 文件名称 ＋ 取文本右边 (“0000” ＋ 到文本 (i), 4) ＋ “.txt”, 到字节集 (读入文本 (文件号, 分割长度)))
递增长度 ＝ 递增长度 ＋ 分割长度
移动读写位置 (文件号, 递增长度, 分割长度)
.计次循环尾 ()

Answer 3

分割文本 (, , )

这个命令 返回的是数组 文本型的

.版本 2

.局部变量 数组, 文本型, , "0"

数组 ＝ 分割文本 (, , )
数组[n] 'n代表分成了几份 这个代码是取数组中的第几份文本

自己去修改N

Answer 4

发了，请查收。