|
1易币
本帖最后由 十万个为什么 于 2021-2-21 10:42 编辑
写了一组分割数据调试,一直报错,小白求大神支招解惑,谢谢了!
程序源码
[e=0].版本 2
.支持库 edroptarget
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (取窗口句柄 ())
拖放对象1.接收文件 = 真
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
编辑框1.内容 = 接收到的文件路径
.子程序 _按钮1_被单击
.局部变量 文件字节集, 字节集
.局部变量 文本文件内容, 文本型
.局部变量 需要读入的文件路径, 文本型
.局部变量 临时分割文件, 文本型
.局部变量 i, 整数型
.局部变量 临时分割文本, 文本型, , "0"
.局部变量 临时分割文本2, 文本型, , "100"
.局部变量 分割记录, 通用型
需要读入的文件路径 = 到文本 (编辑框1.内容)
' 文件字节集 = 读入文件 (“E:\测试文本1-1.txt”) ' 这是指定(写死文件路径)正确的写法(用时删除)
' 文件字节集 = 读入文件 (取当前目录 () + “\测试文本1-1.txt”) '这个是(程序和文本在同一路径下的)正确的练习题写法
文件字节集 = 读入文件 (需要读入的文件路径) ' 这个是(程序和文本在同一路径下的)正确的练习题写法
' 文件字节集 = 读入文件 (e:\\测试文本1-1.txt) —— 这种写法是错误滴,切记!
文本文件内容 = 到文本 (文件字节集)
调试输出 (i)
' 调试输出 (到文本 (文件字节集)) ——'这是正确的写法(用时删除)
临时分割文本 = 分割文本 (文本文件内容, #换行符, )
' 如果真 (取数组成员数 (i) > 2)
.计次循环首 (取数组成员数 (临时分割文本), i)
' 临时分割文本 = 分割文本 (文本文件内容, #换行符, )
' 调试输出 (临时分割文本 )
' 调试输出 (i) ' 调试查看分割是否正常
临时分割文本2 = 分割文本 (临时分割文本 , “=”, )
调试输出 (临时分割文本2 [1], 临时分割文本2 [2])
.计次循环尾 ()
[/e]
|
|