主题:  整理的5d、宇风、aw爱好者三论坛关于文本显示的所有帖子

lvzhiguo

职务:普通成员
等级:1
金币:1.0
发贴:136
注册:2002/2/28 9:56:47
#12002/7/2 11:19:30
主程序读文本中的内容如何给另一个读txt的aw程序用?
小邓:假定读取到的地址保存在变量dizhi中
wei:=Rfind(".",dizhi)
kuo:=substr(dizhi,wei,charCount(dizhi))
if LowerCase(kuo)="txt" then
WriteExtFile(RecordsLocation^"dzh.txt",dizhi)
JumpOutReturn("<另一个程序>")
end if
然后再在另一个程序文件中读取
dizh:= ReadExtFile(RecordsLocation^"dzh.txt")

如何在文本中实现对文字的拷贝,打印以及复制,剪贴等工作?
小邓:TextCut Textcopy textpaste

在Text Entry响应中,一般是用Enter键表示输入的结束,那么我要换行这么办?
小平:放上一个文本交互,双击交互标志,把带有向右小黑三角的文本框拉大,然后在此双击,把action key(s)后面的return改为其他任何一个不常用的键(比如SHIFTENTER)
这样该差不多了吧试试.

如何实现黑板板书效果?即文字可以控制成一行一行或是一段一段地从上往下显示出来,排满一屏后,后出来的覆盖最上面的。
Jw_wh:
将文字分行存在一个文本文件中。每次读取一行,加放到变量"text"(自定义)用N(自定义变量)记录当前行数,并更新显示变量 text 。
当N达到一定值(即文本达到一屏)将N 归 1。如此循环,直到文本被取尽
lvzhiguo:
aw5.my163.com(aw爱好者网站)下载区,有我的一个程序“文本阅读器”,满足你的要求
下载地址:http://211.91.108.138/aw5/down/download.asp?Did=2333
地址2http://www.ahhnjj.com/lzg/text.rar ;


如何在aw中调整文本之间的行距呢?
如子牛:你可以在显示图标中另换一个文本输入框,然后使用对象对齐方式辅助,你就可以获得任意行间距了
aw5:选定文字,选择text/style/supers cript(文本-类型-上标)

如何用AW中制作成课件后可输入文字
老拳;
把你想输入文字的地方写上{MyInput},在程序中做一个文本交互或者按键交互,其下的计算图标中写上MyInput:=Entrytext或者MyInput:=MyInput^Key,当然别忘了设MyInput的初值为""。

请问显示图标出现的倒三角是怎么回事?
lvzhiguo:是显示图标中的文字应用了超链接
2、文本-定义风格-完成各项设置-增加导航到
3、在显示图标中选择文本应用风格
4、在6。0版本以下版本显示图标会出现三角,在6。0版本同样操作实现功能相同,但不出现三角

怎么读、写文本文件中的数据?
小平(aw5)string := ReadExtFile("filename") 读文本文件,把文本文件内容放一字符串string中。
WriteExtFile("filename", "string") 把字符串string写入filename这个文本文件中,如果此文件已经存在,则替换,如果不存在则建立。
AppendExtFile("filename", "string") 把字符串string写入filename中,如果此文件已经存在,则追加字符串,如果不存在则建立
lvzhiguo:参看范例http://211.91.108.138/aw5/down/download.asp?Did=2333

文本输入响应中怎样显示初始值,并可对修改?
笑么:presetentry:="初始值"

我要读取一个很大的文本文件,有2M但是,ReadExtFile读出文件必须一次性存放在一个字符串变量里面,而Authorware的字符串变量最大只能支持30000个字符.
小邓;在Xtra Fileio 类函数中有读取行的函数,不过有点缺陷,我们先看一下实现:
wen:=NewObject("fileio")
CallObject(wen, "openFile", "fileName", 1)
nei:=CallObject(wen, "readLine")
lin[1]:=nei
jie:=0
i:=1
repeat while jie<>1
nei:=CallObject(wen, "readLine")
if nei="###" then
jie:=1
else
i:=i+1
lin[i]=nei
end if
end repeat
--readline函数是读取下一行的意思,

请问关于文本移动的平滑度
冷血:文本不要用去锯齿的选项,这样移动速度就会平滑一些;
lvzhiguo:按住alt+t后再按一下t或者再文本--消除锯齿

在AW中如何改文本的颜色,不是在设计开发时,而是用语句来改
cryingfox:1.用交换变量的值来实现,{red}(blue)
2.用activex来实现
3.用一个UCD可以实现,这个UCD我忘了名字了
如果文本一定要抗锯齿,就只有第一种方法可以用了

如何在滚动文本中实现超联接?
aw先生:
1、先在绘图工具箱上的文本工具(A)上单击,再在需要设链接的文字上单击。拖动鼠标选定你需要选定的文字;
2、Define Styles...(定义样式),再选定文字Aplly Styles...(应用样式)。
说明:链接文字是与“页”挂钩的。“页”就是框架图标右边的图标。

制作课件时,公式如何处理?
qyg:先安装office在安装时必须选择公式编辑器。再在aw中插入activex选择相应的activex控件
bigpotato:在Word中,用文本框输入公式(框选白色),然后选择,copy!搞定!
尘尘:先在word中打好之后再导入到Authorware中,注意字体。如果公式少的话,个人强烈建议你把它们转成图片

在authorware中能做艺术汉字吗?
Y:能制作一些特效,只要灵活运用覆盖模式和绘图工具.
第一行是用两个文本对象,利用覆盖模式造成效果。
第二行是用多边形工具,比着文本对象描出来的多边形,最后再填充一下。(看“Authorware教程”作的)
第三行是用文本对象和一幅纹理图样叠出来的。(图片效果看
再一种方法:用word做艺术汉字,粘贴进AW(粘贴后变成WMF矢量图像)。

文本滚动的随时暂停?
syzy;看我的例子http://www11.brinkster.com/syzy/jdfl/movepause.a6p

怎样在aw中显示日、韩、俄等外国文字
lvzhiguo:做成图片导入

调用*txt文本时,如何在AW中改变文本的底色
Y:将文本对象设置为透明,然后更换设计图标的背景。

我想用变量和函数动态调入Jpg图片文件和Txt文本文件,如何可以实现?
Y:动态调入文本文件可以用
string := ReadExtFile( "pathANDfilename" )
来实现,内容存贮在变量string中,但长度不可超过32000个字符。将string嵌入显示图标中就可以显示文本内容了,文本过长时为string所在的文本对象设置Scrolling风格。
调入Jpe:可以事先准备一个显示图标image,插入一个图像对象,在File属性里用变量pathANDfilename。然后在需要显示时设置变量pathANDfilename的值,再执行displayicon( @"image" )。

如何用程序来对文本长度进行判断后(如果文本太长)加入滑动条么?
颠构和y;用 CharCount("string")大概判断一下文本长度,在按下法做,可以用两个显示图标,判断文本太长,displayicon它,否则displayicon另一个。一个有滚动条风格一个没有。
不过还是统一有的好,界面固定些

从文件夹中读取文件名,怎样对中文字符排序
Y:SortByvalue(list, 1)基本上是按拼音(内码)排序。
例如a:=a=["王三","王","赵四","李三","abc"]
SortByvalue(a, 1)之后就是["abc", "李三", "王", "王三", "赵四"]
--------------------------------
用数组反而简单些:
aa:=Catalog("c:\\windows" ,"F" | "D")
I:=1
list_aa:=Array("",LineCount(aa))
--字符串拆分为数组元素
repeat while I<=LineCount(aa)
list_aa[I]:=GetLine(aa,I)
I:=I+1
end repeat
SortByvalue(list_aa, 1)
--------------------------------
--排序后的数组元素合并为字符串
result:=""
I=1
repeat while I<=LineCount(aa)
result:=result^list_aa[I]^Return
I:=I+1
end repeat

result中保存的是排序后的字串。注意Catalog是大小写敏感的,而对文件名排序则不需要区分大小写,因此可以再用upcase处理一下。

怎样将ActiveX调用出的Web页的文本滑动条去掉?
Y:ActiveX调用出的Web页的文本滑动条是个老问题了,好象还没有解决办法。


如何才可以把输入的文本变成"********"?????
lvzhiguo:金色太阳鸟有一个密码登陆的例子需要的可以到他的网站下载
rubi93:用microsoft forms2.0 textbox可以实现用密码字符屏蔽输入文本然后用条件交互响应来实现交互即可
-------------------------------------------
小邓:可以用按键输入来实现,在显示结果时只用*来代替就行了在交互响应中有一个keypress(按键响应),用户所输入的键都记录在变量Key中。
具体的
先拖入一个计算图标,在其中输入以下内容:
shuru:=""
pass:=""
(这两个都是自定义变量)
先拖入一个显示图标,在其中输入一些提示,再输入:{shuru}
更改该显示图标的属性,选中Update displayed variable
拖入一个交互图标,再拖一个计算图标到右边,在弹出的“response type”对话框中选择“keyPress”。计算图标改名为“?”,在计算图标中输入以下内容:
pass:=pass^key
shuru:=shuru^"*"
----------------------------------

我用插入---actives---选择ie浏览器,然后在流程线上放上计算图标,输入:addres="文件名"
测试时只能看到屏幕中央出现一小块空白,不知道是怎么回事儿?
虚竹:问题是你创造了一个机器人,但没有对他进行任何操作,没有下达任何命令啊!
在你插入了MICROMEDIA WEB 浏览器控件后,为它命名,如web
然后建立一个交互,下挂这样几个交互项(交互方式自选),分别实现这样几个功能:
1、输入地址交互
文本交互,输入设为“*”,下挂计算图标,内容为——callsprite(@"web",#navigate,entrytext)
2、打开主页交互
类型设为按钮,下挂计算图标,内容为——callsprite(@"web",#gohome)
3、停止交互
类型设为按钮,下挂计算图标,内容为——callsprite(@"web",#stop)
4、刷新交互
类型设为按钮,下挂计算图标,内容为——callsprite(@"web",#refresh)
5、后退交互
类型设为按钮,下挂计算图标,内容为——callsprite(@"web",#goback)
6、前进交互
类型设为按钮,下挂计算图标,内容为——callsprite(@"web",#goforward)
以上从技术和理论上实现了一个简易浏览器的功能,你可以根据自己的需要进行改变!!

怎么知道rtf在aw显示时有多少页(StartPage, EndPage)
Y:函数rtfGetPageCount可知共有多少页。

如何在文本中查找一个字符串(如:文本查找)并确定在文本中的行数?
寒冰;循环读取每一行的字符串,然后在每一行中查找那个字符串。
syzy:用这几个函数number := LineCount("string" [, delim])
resultString := GetLine("string", n [, m, delim])
number := Find("pattern", "string")

在 Authorware中使用word来编辑文字
蓝色多瑙河:在保证系统安装了Word的前提下,打开Authorware,拖一显示图标至流程线,命名为“调用Word”,双击打开。选择“Insert”→“OLE Object…”,会出现一个对话框。选择“新建”,通过滚动条拖拉后,选择“Microsoft Word”,单击确定。
  此时,你会惊讶地发现Authorware中的菜单(File菜单除外)已经变成了Word的菜单,并且文本编辑区有一个光标在不停的闪动,此时,你就可以使用Authorware中的Word了。如果觉得文字编辑区太小,可以拖动文字编辑区的右下角即可放大文字编辑区。例如:在制作一个艺术体字后,如果需要停止编辑,就在文字编辑区外单击鼠标,即又回到了Authorware中,如要修改艺术体字,双击艺术体字又将回到Word中,可以继续编辑修改。

如何去除文本交互的小三角
acky:取消文本交互中的Interaction_Entry Marker选项,即可去到小黑三角

Authorware中如何输入数学符号?
ROCK:用公式编辑器(在Word里)等东西编辑好,拷贝粘贴到Authorware中,此时公式在AW中是WMF矢量图,可以选择编辑-OLE对象-转换-转换为位图即可,不转换打包后自动转换。

如何调用默认浏览器打开Html文件?
ROCK:打开本地文件readme.htm:
JumpOutReturn("",FileLocation^"readme.htm")
打开WEB上的网页:
JumpOutReturn("","http://www.5dmedia.com/index.htm")

我的aw的系统显示的字体被改了,但我不知道怎么改回来。中文是用的楷体倒还好,但英文变成了手写体了,看都看不清,怎么回事?
LVZHIGUO:这主要是因为你安装了文鼎酷字体。解决方法:
之一:可以删除这些字体。
之二:这是一个完美的方法:
在Office 2000安装盘中寻找一个叫Arialuni.ttf的字体,它在某一CAB文件中。
先安装它,再安装其它字体。
它可解决3DSMAX的字体问题,比以前的什么补丁字体不知好上多少倍!!
这是汉化aw6的周氏工作室写在自述文件上的,我不过摘抄了一下
grass:点击这里下载arialuni.ttfhttp://www.fba.nus.edu.sg/viewchinese/arialuni.ttf
不好意思 这个字体是我从一个网站找的 我的几个空间都小 没法上传这么大的东东 3322.NET只有10M 533.NET也只有10M MYRICE倒有200M 可惜只能上传不能下载 国外的那个空间 30M 不过超过1M的文件好像被不能下载 看来要买空间了
我现在在家里用512K 的ADSL 下载 大概用了8分钟 安装了 相当好用
我安装了以后 ,再安装一个习字体 打开AW6以后 不是乱七八糟的字体了 用猫的朋友找不到Office 2000的话 强烈建议也要下载 装上这个字体后 你就会觉得物有所值
飞翔2000 :1、下了N次都不行呀。我的那张Office 2000里也没有这种字体。惨了
2、谢了,我找了很久,终于在一个叫office1的cab包中找到它了。现在已经成功地安装好了。高兴呀!连3dsmax 3的字体问题都解决了。高兴呀……


如何显示如{kkkk}形式的文本
rock:AW在显示图标里面默认变量的显示方法为{variant},你这种情况可以在有花括号的前面加"\",即想显示{kkkk}应该改写为\{kkkk},例如:
B=(K,R);
K=\{ki|1≤i≤n}
这样最终显示出来的就是:
B=(K,R);
K={ki|1≤i≤n}


由于有些文章涉及版权,只能向大家提供网址
专题文章网址
authorware中实现长文本输入四法
211.155.224.153/test/text/list.asp?id=303
Authorware中双向超文本链接的实现
211.155.224.153/test/text/list.asp?id=235
Authorware实现双向超文本链接
211.155.224.153/test/text/list.asp?id=203
在Authorware中灵活运用提示文本
www.5dmedia.com/bbs/newsdetail.asp?id=297573


范例下载(例子里有注明作者)
如何用函数读外部文本文件
按上下页进行翻页,也可直接输入页码,有总页码提示,而且输入错误会出现提示框 ,可按两种方式打开文本文件
211.91.108.138/aw5/down/download.asp?Did=2333
利用文本交互回答问题。
211.91.108.138/aw5/down/download.asp?Did=2215
TA载体--滨滨的TA载体
211.91.108.138/aw5/down/download.asp?Did=1908
一个简单实用的PDF阅读器实例
www.5dmedia.com/users/public/pdf.zip
一个利用控件实现内置浏览器的实例
www.5dmedia.com\users\public\ie.a6p
fileio xtra与txt文件过滤(需要fileio Xtra;5d制作)
www.5dmedia.com/users/y/txtfile.a6p


函数下载
tmstextbox有一个建立文本选择框的扩展函数,可以实现滚动显示
211.91.108.138/aw5/down/download.asp?Did=1835




飘雪无痕

职务:普通成员
等级:2
金币:1.0
发贴:514
注册:2000/11/8 14:55:33
#22002/7/2 15:11:31
不错,有很多可以借鉴和学习的东西。