创建一个简单的通讯录程序

来源:网络整理 责任编辑:栏目编辑 发表时间:2013-07-01 15:18 点击:

    该程序主要实现对通讯录的浏览、增加和删除功能,实现是把保存在文本文件中的数据读取出来,依次存放在一个列表中,再对列表进行操作来实现相应的功能,.在用户退出时再把列表中的内容保存回文本文件中。

其中文本文件的最后部分内容如图14.14所示。

14.14  文本文件中的内容

下面是具体的实现过程:

1.进入Authorware ,新建一个文件,保存为“对象_Demo.a6p”。打开文件属性设置对话框,设置程序窗口大小为Variable,选中Center on Screen,取消Title BarMenu Bar前的选择。

2.在程序开头拖入一个计算图标,命名为“读取文本”,在其中加入以下语句:

--设置窗口大小

ResizeWindow(320,240)

--定义一个空的列表

wen:=[]

tem:=[]

--创建一个Fileio Xtra的子对象

zil:=NewObject("fileio")

--以只读方式打开文本文件

CallObject(zil, "openFile", FileLocation^"ziliao1.txt",1)

--依次读取该文本文件的行,存放到列表中

temp:=CallObject(zil,"readLine")

i:=1

repeat while temp<>-1

    repeat with p:=1 to 4

    tem[p]:=GetWord(p,temp)

    end repeat

    wen[i]:=[#name:tem[1],#sex:tem[2],#age:tem[3],#tel:tem[4]]

    temp:=CallObject(zil, "readLine")

    temp:=SubStr(temp,2,CharCount(temp))

    i:=i+1

end repeat

--关闭文本文件

CallObject(zil, "closeFile")

--初始化一个计数器

j:=1

--统计列表wen中元素的个数

geshu:=ListCount(wen)

说明:虽然系统

    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    用户名: 验证码:点击我更换图片
    最新评论 更多>>

    媒体动画导航

    Authorware
    网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
    Copyright © 2008-2015 计算机技术学习交流网. 版权所有

    豫ICP备11007008号-1