alltrim( ) 函数示例

下面的示例使用 afont( ) 函数创建一个包含所有可用字体名的数组。然后使用 alltrim( ) 函数删除字体名前后的空格符。接着显示每种去掉空格后的字体名，以及该字体的示例。如果字体多于 10种，则仅显示前 10 种。

clear
=afont(gafontarray) && 包含字体名称的数组
gnnumfonts= alen(gafontarray) && 字体号
if gnnumfonts > 10
gnnumfonts = 10 && 显示前 10 种字体
endif

for ncount = 1 to gnnumfonts
? alltrim(gafontarray(ncount)) && 显示字体名称
?? ' this is an example of ' ;
+ alltrim(gafontarray(ncount)) font gafontarray(ncount), 8
endfor