[问题] aw中如何动态的判断某文件夹下文件的格式,并使之的值返回到一组字符串中？

[解答] （Rock Studio 魔岩工作室、AW5 、虚竹）

--取得文件列表
FileString:=Catalog(FileLocation,"F")
--取得文件个数
FileNumber:=LineCount(FileString,Return)
--初始化文件后缀名记录字符串
FileFixs:=""

--取得总的文件后缀名
repeat with i:=1 to FileNumber
FileNames:=GetLine(FileString,i)
lastindex:=CharCount(FileNames)
FileFix:=SubStr(FileNames,RFind(".",FileNames)+1,CharCount(FileNames))
FileFixs:=FileFixs^FileFix^Return
end repeat

--筛选后缀名
FixsNumber:=LineCount(FileFixs)
repeat with k:=0 to FixsNumber
str:=LowerCase(GetLine(FileFixs,k))
str3:=str3^str
str1:=LowerCase(GetLine(FileFixs,k+1))
if Find(str1,str3)=0 then
fixs:=fixs^str1^Return
end if
end repeat

范例下载：
 判断文件后缀名8K

[问题]
请问，要是这样的一种矩阵如何编程：
１，２，３，４选三个数的组合（不重复）：
１，２，３
１，３，４
２，１，３
２，３，４


[解答一]（Rock Studio 魔岩工作室）

相关脚本：

--默认数列 ，可自己删除增加数列值
DefaultList:=[1,2,3,4,5]
--临时数列
CurrentList:=DefaultList
--随机数个数 ，可自己更改，必须不大于数列最大索引号
GetNumCount:=3
--输出结果字符串，格式为：#,#,#（以逗号分隔）
RandomNumber:=""

--取得不重复随机数
repeat with i:=1 to GetNumCount
RandomIndex:=Random(1,ListCount(CurrentList),1)
if iRandomNumber:=RandomNumber^CurrentList[RandomIndex]^","
else
RandomNumber:=RandomNumber^CurrentList[RandomIndex]
end if
DeleteAtIndex(CurrentList,RandomIndex)
end repeat


范例下载：
 随机不重复取数7K


[解答二] [yufeng 小邓]
yufeng小邓的算法：
这些排列问题,如果要列出所有的可能,最好就不用随机来实现了,因为其中浪费了极大的取数时间.
下面给出从i个数中取3个数的组合的方法,假定这i个数保存在Deflist[]中且各不相同而把取出的数保存在CurList[]中
Deflist:=[1,2,3,4,5,6,7,8,9]
Curlist:=[]
p:=1
repeat with a:=1 to i-2
CurList[p][1]:=deflist[a]
repeat with b:=2 to i-1
CurList[p][2]:=defList[b]
repeat with c:=3 to i-1
CurList[p][3]:=defList[c]
end repeat
end repeat
end repeat

[问题] 如何将时钟日期改成中文形式出现

[解答]（网友kiwi）
其实这可用一个很简单的方法来实现，具体如下：
计算图标中输入：
months := ["一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月"]
days := [#Sunday:"星期日", #Monday:"星期一", #Tuesday:"星期二", #Wednesday:"星期三", #Thursday:"星期四", #Friday:"星期五", #Saturday:"星期六"]
显示图标：
{days[Symbol(DayName)]} {months[Month]}
这样就可以显示中文 星期几 和月份

[问题]避免程序被多次同时执行的方案

[解答]
避免重复执行的脚本：
在程序流程开始处放置一计算图标并写入一下代码：

方法一：
在程序流程最开始处添加计算脚本（假设程序标题为“魔岩工作室”）：
Result:=FindWindow("APWMainClass","魔岩工作室")
if Result<>0 then Quit(0)
SetWindowText(WindowHandle,"魔岩工作室")


方法二：（网友kwwx）

利用budapi中的bawindowlist函数。
返回值为目前运行的所有符合要求的程序的句柄，每个句柄之间用换行符分开。如果返回值多于一行，既意味着发现了一个以上的程序实例在运行，当前程序便退出。
在程序中写：
win_list:=bawindowList("APWMainClass","yourname")
if LineCount(win_list)>1 then
Quit(0)
end if

[问题]如何检测ActiveX是否已经注册？

[解答]（宇风 寒冰）
检测ActiveX控件文件是否存在可以使用FileType()
检测ActiveX控件是否注册可以使用ActiveXControlQuery("CLASSID")，如果没注册，使用ActiveXControlRegister("FILENAME")进行注册！

[问题]经常需要在显示设计图标中实时显示自定义变量的当前值，或在条件响应中判断外部函数的返回值（例如midiplaying()）。如何实现自定义变量值或外部函数返回值的自动刷新？
[解答](from Y)
AW仅自动刷新系统即时型变量的值，如sec、minute、AltDown等等，外部函数或自定义变量的值AW是不查的。随时检测自定义变量值可以用带有即时型变量的表达式来代替，比如 myvar+sec-sec，这个表达式实际上是自定义变量myvar，但由于有了系统即时型变量sec，AW会自动刷新该表达式的值。因此这个式子可以用作条件响应或嵌入显示设计图标中并反映出实时更新。

[问题]如何将调整用drawline画的线段的层数?
[解决](from Y)
SetLayer(layer)，layer就是想要的层数。
或者
将运算设计图标附着在显示设计图标上，显示设计图标的层数就是画出线段的层数。