#32001/11/12 22:16:52
草兄说的也不尽然,因为楼顶的兄弟所提出的问题可能性和随意性太大。文本文件的写法没有说明,所以是否是一行一个内容还是写在一起都不一定。时间关系,只能列出一种情况的方法,请允许我假设一下:
在E:\Myfile\mytext.txt中有你所说的资料,其中有“本人姓别:男,年龄:25”等等
你可以把E:\Myfile\mytext.txt创建好,输入“本人姓别:男,年龄:25”等等,再做一个按扭和两个文本,把这三个东东放在舞台上,然后把下面的Behaivor赋给按钮,基本可以达到你的要求。时间关系,我只是说明一种方法,仅供参考。
property pstring,mytext,MytestList
on mouseup me
MytestList=[]
fobj=xtra("fileio").new()
textfile="E:\Myfile\mytext.txt"
openfile(fobj,textfile,1)
if status(fobj) then
alert "Open file Error" && textfile
else
mytext=readfile(fobj)
member("myfile").text=mytext
repeat with i=1 to length(member("myfile").text)
add MytestList,char i of member("myfile").text
end repeat
closefile(fobj)
end if
fobj=0
searchsex
end
on searchsex me
pXing="性"
pBie="别"
repeat with i=1 to length(member("myfile").text)-2
Xing=getAt(mytestlist,i)
Bie=getAt(mytestlist,i+1)
if pXing=Xing and pBie=Bie then
set member("sex").text=getAt(mytestlist,i+3)
updatestage
end if
end repeat
end
编辑历史:[这消息被marker编辑过(编辑时间2001-11-14 11:43:48)]