创建一个简单的通讯录程序
该程序主要实现对通讯录的浏览、增加和删除功能,实现是把保存在文本文件中的数据读取出来,依次存放在一个列表中,再对列表进行操作来实现相应的功能,.在用户退出时再把列表中的内容保存回文本文件中。
其中文本文件的最后部分内容如图14.14所示。
图 14.14 文本文件中的内容
下面是具体的实现过程:
1.进入Authorware ,新建一个文件,保存为“对象_Demo.a6p”。打开文件属性设置对话框,设置程序窗口大小为Variable,选中Center on Screen,取消Title Bar和Menu 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)
说明:虽然系统
相关新闻>>
- 发表评论
-
- 最新评论 更多>>