Guidance
指路人
g.yi.org
Software / Reginald / Examples / VarServer / ReportCountries.rex

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
countries: PROCEDURE EXPOSE (dict$.exposestems) 
mpout.0=0
writel(LEFT('Countries of the World',30)left('Capitol',15)right('Population',10)right('Size',10))
writel(COPIES('-',65))
DO i=1 TO countries.0
/*
   if exists('countries.CAPITOL.i')=0 then countries.CAPITOL.i='???'
   if exists('countries.POPULATION.i')=0 then countries.POPULATION.i='???'
   if exists('countries.SIZE.i')=0 then countries.SIZE.i='???'
*/
   writel(LEFT(countries.i,30)left(countries.capitol.i,15)right(countries.population.i,10)right(countries.size.i,10))
END
RETURN   

writel:
PARSE ARG line
lmax=mpout.0+1
mpout.0=lmax
mpout.lmax=line
RETURN
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Mon 2017-9-25  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2011-06-15 11:46:11