grip 英文字母 小写转大写

英文字母 小写转大写

string/str(100),x(2,1)

str='个dggggjjjjdds'

a=lenf(str)

do/upp:,i,1,a
ifthen/ascii(str,i)>=97 and ascii(str,i)<=122
x(1)=substr(str,i,1)
n=ascii(str,i)
x(2)=chrstr(n-32)
str=repstr(str,x(1),x(2),i)
endif
upp:

print/str

halt

$$ 结果输出：个DGGGGJJJJDDS

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/