encode.dlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
	encode
	
	VERSION 1.0.1  03oct2003
*/

VERSION 8.0

INCLUDE _std_small
INCLUDE _ht210
INCLUDE header
HELP hlp1, view("help encode")
RESET res1

DIALOG main,label("encode - Encode string into numeric")              /*
		*/	tabtitle("Main")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/
   TEXT	    tx_var        _lft	    _top      _iwd	.,            /*
		*/	label("String variable:")
	
   VARNAME  vn_var        @         _ss       _vnwd     .,            /*
                */      label("String variable")

   TEXT     tx_newvar     @         _ms       _iwd      .,            /*
                */      label("Create a numeric variable:")

   EDIT     ed_newvar     @         _ss       _vnwd     .,            /*
                */      label("Create a numeric variable")            /*
                */      option(generate)                              /*
		*/      max(32)

   GROUPBOX gb_label      @         _ls       _iwd      _ht6h,        /*
                */      label("Value label name:") 

   RADIO    rb_default    _ilft     _ss       _ibwd     .,            /*
                */      label("Same as new variable name")            /*
                */      first                                         /*
                */      clickon("script name_off")                    

   RADIO    rb_name       @         _ss       _rbwd     .,            /*
                */      label("")	                              /*
                */      last                                          /*
                */      clickon("script name_on")                     

   EDIT     ed_name       _rbsep    @         _vnwd     .,            /*
                */      label("Value label name")                     /*
                */      max(32)                                       /*
                */      option(label)

   CHECKBOX ck_noextend  _ilft      _ms       _ibwd     .,            /*
                */      label("Do not extend specified value label")  /*
                */      option(noextend)
END

INCLUDE ifin

PROGRAM command
BEGIN
	put "encode "
	varlist main.vn_var
	INCLUDE _ifin_pr 
	beginoptions
		require main.ed_newvar
	        optionarg main.ed_newvar	
		if main.rb_name{
			optionarg main.ed_name
		}
		option main.ck_noextend
	endoptions
END

SCRIPT name_off
BEGIN
	main.ed_name.disable
	main.ck_noextend.disable
END

SCRIPT name_on
BEGIN
	main.ed_name.enable
	main.ck_noextend.enable
END