globalroot="d:\statashu"localwjm=subinstr(subinstr("`c(current_date)'",":","",.),"","",.)localyear=year(date("`wjm'","DMY"))localmonth=substr("00"

//替换所有空格//下面语句结果为4displength(subinstr("1233","","",.))//itrim(s)将字符间多于一个空格缩减为一个空格,对首尾空格不起作用displengt

//*命令subinstr(S1,S2,S3,n),n表示迭代的次数，S1是变量，S2是需要替代的变量，S3是新替换的变量。如果n是.代表所有的都换*///reverse()字符串逆顺localwjm="`c(current_t