易语言数据库 edb

.版本 2

.支持库 shell

.程序集 窗口程序集_启动窗口

.子程序 创建数据库子程序1

.局部变量 字段信息, 字段信息, , "1"

.局部变量 要分割的文本, 字节集

.局部变量 分割的文本, 文本型, , "0"

' ##############先指定数据库，数据名称，数据类型，

字段信息 [1].名称 ＝ “文本1” ' 数据库名称

字段信息 [1].类型 ＝ #文本型 ' 数据库数据类型

字段信息 [1].最大文本长度 ＝ 20 ' 如果数据库数据信息保存类型为文本型，就要指定文本长度

' ##############这样数据库就先行指定了一行数据

创建 (取当前目录 () ＋ “\范例”, 字段信息) ' 这时创建数据库，会包括一个空行，把文本分割后的文件导入数据库这一空行

要分割的文本 ＝ 读入文件 (取特定目录 (#系统桌面) ＋ “\1.txt”) ' 把文件读出来，导入到变量（要分割的文本）

加入成员 (分割的文本, 分割文本 (到文本 (要分割的文本), #换行符, )) ' 这这里分割一下，文本都是一行一行的就用换行符来分割吧

写 (“文本1”, 分割的文本 [1]) ' 这里可以用计次循环来赋值

说明:"启动窗口"中只有一个编辑框和一个列表框,当编辑框中敲了"回车键"，列表框中就加入一个项目,当编辑框中的文本最后有".edb"并敲了"回车键",就会创建这个名字的数据库.创建好之后.列表框中为空,又可创建另外一个数据库.

点击列表框中的项目,可在编辑框中修改,编辑框中为空,就删除该项目.别忘了敲"回车键"

其实在易语言中有创建edb数据库的,按"Alt+B"+S,在"数据库"的第一项"结构编辑器"中.

------------------------------------------------------------------

.版本 2

.子程序 _编辑框1_按下某键, 逻辑型

.参数 键代码, 整数型

.参数 功能键状态, 整数型

.如果真 (键代码 ≠ #回车键)

返回 ()

.如果真结束

.如果真 (列表框1.现行选中项 ≠ -1)

.如果 (编辑框1.内容 ≠ “”)

列表框1.置项目文本 (列表框1.现行选中项, 编辑框1.内容)

.否则

列表框1.删除项目 (列表框1.现行选中项)

.如果结束

列表框1.现行选中项 ＝ -1

清空编辑框 ()

返回 ()

.如果真结束

.如果真 (编辑框1.内容 ≠ “”)

返回 ()

.如果真结束

.如果 (取文本右边 (编辑框1.内容, 4) ≠ “.edb”)

列表框1.加入项目 (编辑框1.内容, )

.否则

创建数据库 ()

列表框1.清空 ()

.如果结束

清空编辑框 ()

.子程序 创建数据库

.局部变量 字段, 字段信息, , "0"

.局部变量 计次, 整数型

.计次循环首 (列表框1.取项目数 (), 计次)

字段 [计次].名称 ＝ 列表框1.取项目文本 (计次 － 1)

字段 [计次].类型 ＝ #文本型

字段 [计次].最大文本长度 ＝ 20

.计次循环尾 ()

创建 (取运行目录 () ＋ “\” ＋ 编辑框1.内容, 字段)

.子程序 _列表框1_列表项被选择

编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)

.子程序 清空编辑框

编辑框1.内容 ＝ “”

编辑框1.获取焦点 ()

问题：

文件是否存在里面的参数不对，路径没写全，哪个盘的文件夹都不知道。

先写注册信息(先给注册信息赋值)，然后再创建数据库。顺序你已经倒了。

---