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

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

  
displaystem: PROCEDURE EXPOSE (dict$.exposestems)
PARSE ARG stem
SAY dict$.exposestems
i=0
IF stem='CITIES' THEN DO 
   DO VAR OVER cities.
      i=i+1 
      mpout.i='cities.'VAR'='VALUE('cities.'var)
   END
   i=i+1
   mpout.i='cities. contains 'i' variables'
   mpout.0=i
END
IF stem='COUNTRIES' THEN DO 
   DO VAR OVER countries.
      i=i+1 
      mpout.i='countries.'VAR'='VALUE('countries.'var)
   END
   i=i+1
   mpout.i='countries. contains 'i' variables'
   mpout.0=i
END
RETURN 
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Mon 2017-9-25  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2011-06-15 11:46:11