home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac
/
splms130.zip
/
SPLLINI.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-18
|
973b
|
37 lines
/**/
/* If you want to learn about ini files this will help.
** Run from the directory where spllmstr.ini files exists.
*/
call sysini 'USER', 'SPLLMSTR', 'ALL:', 'stem.'
say "stem.0 ="stem.0
do c = 1 to stem.0
say "["c"] ="stem.c " " sysini( 'USER', 'SPLLMSTR', stem.c)"="
end /* do */
call sysini 'spllmstr.ini', 'spllmstr', 'ALL:', 'stem.'
say "stem.0 ="stem.0
do c = 1 to stem.0
say "["c"] ="stem.c " " sysini( 'spllmstr.ini', 'spllmstr', stem.c)"="
end /* do */
/**
rc = charout( , 'delete new ini entries ? ' )
parse pull ans
if ( ans = 'y' ) then
do c = 1 to stem.0
say "["c"] ="stem.c " " sysini( 'spllmstr.ini', 'spllmstr', stem.c)"="
if ( c > 4 ) then
sysini( 'spllmstr.ini', 'spllmstr', stem.c, 'DELETE:')
end /* do */
**/
RETURN
call sysini 'USER', 'SPLLMSTR', 'DELETE:'
call sysini 'USER', 'SPLLMSTR', 'program_path', 'D:\CMDS\'
call sysini 'USER', 'SPLLMSTR', 'words_path', 'D:\spelling\'