易语言通讯录EDB版例程

.如果真 (文件是否存在 (取特定目录 (10) ＋ “First_start.syx”) ＝ 假)
写配置项 (取特定目录 (10) ＋ “First_start.syx”, “_”, “_”, “*”) ' 判断是否为第一次启动，通过写一个配置文件判断！
信息框 (#TXT_Method, 0, “操作指导方法”)
.如果真结束
.如果真 (通用对话框.打开 ())
TXT文本 ＝ 到文本 (读入文件 (通用对话框.文件名))
TXT文本_ ＝ 分割文本 (TXT文本, #换行符, )
.计次循环首 (取数组成员数 (TXT文本_), 计次)
处理事件 ()
延时 (200)
信息文本_ ＝ 分割文本 (TXT文本_ [计次], “|”, )
加空记录 ()
.如果真 (写字段 (#姓名, , 信息文本_ [1]) 且 写字段 (#号码, , 信息文本_ [2]))

_读Data到框 ()
.如果真结束

.计次循环尾 ()
信息框 (“TXT全部信息导入成功！”, 0, “OK”)