帮看下哪里出了问题

猪哥亮

分割文件后，文件内容不正确{:3_227:}


.版本 2
.子程序 子程序1
.局部变量 i, 整数型
.局部变量 R, 整数型
.局部变量 文件号, 整数型
.局部变量 路径, 文本型
.局部变量 文件名称, 文本型
.局部变量 分割长度, 整数型
.局部变量 递增长度, 整数型
.局部变量 份数, 整数型
分割长度 ＝ 到数值 (编辑框1.内容)  ' 字节
通用对话框1.打开 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, , )
文本内容 ＝ 到字节集 (读入文本 (打开文件 (通用对话框1.文件名, , ), ))
路径 ＝ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假))
文件名称 ＝ 取文本左边 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假)), 倒找文本 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假)), “.”, , 假) － 1)
.如果 (取文本长度 (读入文本 (文件号, )) ＼ 分割长度 ＞ 取文本长度 (读入文本 (文件号, )) ÷ 分割长度)
    份数 ＝ 绝对取整 (取文本长度 (读入文本 (文件号, )) ÷ 分割长度) ＋ 1
.否则
    份数 ＝ 绝对取整 (取文本长度 (读入文本 (文件号, )) ÷ 分割长度)
.如果结束
.计次循环首 (份数, i)
    写到文件 (路径 ＋ 文件名称 ＋ 取文本右边 (“0000” ＋ 到文本 (i), 4) ＋ “.txt”, 到字节集 (读入文本 (文件号, 分割长度)))
    递增长度 ＝ 递增长度 ＋ 分割长度
    移动读写位置 (文件号, 递增长度, 分割长度)
.计次循环尾 ()

358778

.版本 2

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

分割长度 ＝ 取文本长度 (编辑框1.内容)  ' 编辑框1字节长度
通用对话框1.打开 ()  ' 打开对话框
文件号 ＝ 打开文件 (通用对话框1.文件名, 1, )  ' 打开文件
文本内容 ＝ 到字节集 (读入文本 (打开文件 (通用对话框1.文件名, 1, ), ))  ' 读入
路径 ＝ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 真))
文件名称 ＝ 文件名 (通用对话框1.文件名)
.如果 (取文本长度 (读入文本 (文件号, )) ＼ 分割长度 ＞ 取文本长度 (读入文本 (文件号, )) ÷ 分割长度)
    份数 ＝ 绝对取整 (取文本长度 (读入文本 (文件号, )) ÷ 分割长度) ＋ 1
.否则
    份数 ＝ 绝对取整 (取文本长度 (读入文本 (文件号, )) ÷ 分割长度)
.如果结束
.计次循环首 (份数, i)
    写到文件 (路径 ＋ 文件名称 ＋ 取文本右边 (“0000” ＋ 到文本 (i), 4) ＋ “.txt”, 到字节集 (读入文本 (文件号, 分割长度)))
    递增长度 ＝ 递增长度 ＋ 分割长度
    移动读写位置 (文件号, 递增长度, 分割长度)
.计次循环尾 ()
文件名称 ＝

.子程序 文件名, 文本型
.参数 路径, 文本型
.局部变量 取位置, 整数型
.局部变量 取出的文件名, 文本型

取位置 ＝ 倒找文本 (路径, “\”, , 假)
取出的文件名 ＝ 取文本右边 (路径, 取文本长度 (路径) － 取位置)
返回 (取出的文件名)


不想看下去啦

尽量啦

看看有帮助不

猪哥亮

回复 2# hhfly


    全部源码就这些。直接复制就办了。

黯メ影翼

··看不懂··希望有大侠能够帮助到你··