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

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

  
reportcities: PROCEDURE EXPOSE (dict$.exposestems) 
mpout.0=0
writel('Cities with Population > 1,000,0000')
writel(LEFT('Cities',20)right('Population',15) 'Country')
writel(COPIES('-',65))
DO i=1 TO cities.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='???'
*/
   city=WORD(cities.i,1)
   tcity=TRANSLATE(city)
   tcity=TRANSLATE(tcity,'___','-')
   writel(LEFT(city,20)right(cities.tcity.population,15) LEFT(cities.tcity.country,30))
END
writel(cities.0 'Cities reported')
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