Grip如何对字符串字母实现小写转大写（或大写转小写）

tangxiaoli711

Grip中好像没有实现此功能的函数
" R/ i5 c* L! d8 D# J; M
/ P+ s* W- }6 s9 o7 B0 Q如下若文件名为aaaaa.prt  
) y1 E& k# w- {2 `属性TB_PARTNO要求转换成AAAA.PRT
" |! n* N# u5 NSTRING/Pn(40)
pn=&PNAME
! K& O8 ?9 N% K5 ^' E- t4 q; y4 W&ATTVL(PART,'TB_PARTNO')=pn
* D7 b9 E$ Q- X& {/ H' rHALT

tangxiaoli711

没人顶,只有用笨办法了,......连用26次REPSTR
" w! X0 G4 h/ Y0 }! [  kstr=REPSTR(str,'a','A',1)
str=REPSTR(str,'b','B',1)
str=REPSTR(str,'c','C',1)  
str=REPSTR(str,'d','D',1)
str=REPSTR(str,'e','E',1)
& q& n# R/ A5 Dstr=REPSTR(str,'f','F',1)
' t! i& Y$ U' B" o! pstr=REPSTR(str,'g','G',1)
5 K( e; k# V0 S( pstr=REPSTR(str,'h','H',1)
' I8 f3 t" f- \+ u" jstr=REPSTR(str,'i','I',1)
+ ^7 B; S* w3 H5 dstr=REPSTR(str,'j','J',1)
str=REPSTR(str,'k','K',1)
4 ^6 _4 |; R: `. A" \str=REPSTR(str,'l','L',1)
str=REPSTR(str,'m','M',1)
( `4 Y8 I! Z+ u; Y* ~  Wstr=REPSTR(str,'n','N',1)
; X3 d4 L& x+ v1 {str=REPSTR(str,'o','O',1)
str=REPSTR(str,'p','P',1)
str=REPSTR(str,'q','Q',1)
str=REPSTR(str,'r','R',1)
str=REPSTR(str,'s','S',1)
* J/ ], u  j' G* Z) W( b1 Dstr=REPSTR(str,'t','T',1)
7 [5 [# ~) K* z/ V' a! C; }str=REPSTR(str,'u','U',1)
; f3 {6 e4 S) T0 P' ?str=REPSTR(str,'v','V',1)
str=REPSTR(str,'w','W',1)
& a3 J+ M. y7 Q& k: ~  Y4 |8 dstr=REPSTR(str,'x','X',1)
0 g  a: e" ]' ]str=REPSTR(str,'y','Y',1)
0 e. G! p/ [7 j" @8 ?+ ?) ]str=REPSTR(str,'z','Z',1)

-KASA-

使用ASCII码转换。

tangxiaoli711

谢谢点化,已解决!
$$ Transfer lower to upper
STRING/str(100),x(2,1)
3 B- }7 _. J; f9 K. ea=LENF(str)
7 F/ Z6 }3 Y6 ]( }# N
DO/upp:,i,1,a
5 I$ {3 G4 A  iIFTHEN/ASCII(str,i)>=97 AND ASCII(str,i)<=122
x(1)=SUBSTR(str,i,1)
n=ASCII(str,i)
  F+ k  M, o* R* s! ?, \x(2)=CHRSTR(n-32)
, Z; H7 @2 P( ?  Tstr=REPSTR(str,x(1),x(2),i)
4 x* d/ x' d3 W1 q% Z+ `5 |8 D$ vENDIF
upp: