.支持库 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.获取焦点 ()
问题:
文件是否存在里面的参数不对,路径没写全,哪个盘的文件夹都不知道。
先写注册信息(先给注册信息赋值),然后再创建数据库。顺序你已经倒了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)