精易论坛

标题: 创建 edb 数据库源码 [打印本页]

作者: 15010496616 时间: 2019-10-28 21:45
标题: 创建 edb 数据库源码
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 dd, 字节集
.局部变量 dfd, 文本型
.局部变量分割文本, 文本型, , "0"
.局部变量 szs, 整数型
.局部变量 shu, 字段信息, , "12"
.局部变量 y, 整数型

' 数组.txt id|股票代码|股票编码|股票名称|最新价|今开|昨收|最高|最低|涨跌幅|成交量
dd ＝读入文件 (“H:\新建文件夹\数组.txt”)
dfd ＝到文本 (dd)
分割文本＝分割文本 (dfd, “|”, )
szs ＝取数组成员数 (分割文本)
调试输出 (szs)
.计次循环首 (取数组成员数 (分割文本), y)
shu [y].名称＝分割文本 [y]
shu [y].类型＝ #文本型
shu [y].最大文本长度＝ 30
.计次循环尾 ()
.如果 (创建 (“H:\新建文件夹\数组.edb”, shu) ＝真)
调试输出 (“111”)
.否则
调试输出 (“222”)
.如果结束

作者: 英雄最孤单 时间: 2019-10-29 08:19
提示: 作者被禁止或删除内容自动屏蔽

作者: 骑士学长 时间: 2019-10-29 09:09
谢谢分享支持

作者: kyo9766 时间: 2019-10-29 10:36
新手必备，感谢分享

作者: sampo 时间: 2019-10-30 15:33
学习了，感谢分享经验

作者: LoveCj 时间: 2019-10-31 15:07
谢谢分享支持

作者: av520 时间: 2019-11-12 05:03
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临精易论坛 (https://125.confly.eu.org/)