xjh.prg

本程程会根据过程相应代码来编辑学生的学籍号

i=89
*GO eof
*zap
DO WHILE !eof()&&i<=23
*APPEND BLANK 
*REPLACE lj WITH 'i:\二次\二中2-'+right(ALLTRIM(STR(100+i)),2)+'.jpg'
REPLACE xh WITH i
i=i+1
SKIP
endd