|
|
5精币
.版本 2
.支持库 spec
.支持库 iext
.局部变量 数据, 文本型
.局部变量 文本, 文本型
.局部变量 n, 整数型
.局部变量 sy, 整数型
通用对话框1.打开 ()
文本 = 到文本 (读入文件 (通用对话框1.文件名))
数据 = 分割文本 (文本, #换行符, )
调试输出 (取数组成员数 (数据))
.计次循环首 (取数组成员数 (数据), n)
sy = 超级列表框1.插入表项 (, 到文本 (n), , , , )
超级列表框1.置标题 (sy, 1, 编码_BASE64解码 (到文本 (数据 [n])))
超级列表框1.置标题 (sy, 2, 数据 [n])
加入成员 (数据_, 编码_BASE64解码 (到文本 (数据 [n])))
.计次循环尾 ()
信息框 (“导入完毕”, 0, )
按钮1.禁止 = 假
我想把一个数据导入到超级列表框 然后自动解码BASE64
|
最佳答案
查看完整内容
.版本 2
.支持库 spec
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 数据, 文本型, , "0"
.局部变量 数据_, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 n, 整数型
.局部变量 sy, 整数型
通用对话框1.打开 ()
文本 = 到文本 (读入文件 (通用对话框1.文件名))
数据 = 分割文本 (文本, #换行符, )
调试输出 (取数组成员数 (数据))
.计次循环首 (取数组成员数 (数据), n)
调试输出 (编码_BASE64解码 (到文本 (数据 [n]) ...
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|