PML语言学习之批量替换型材规格

漂流瓶537

VAR !EQUIS COLL ALL EQUI WITH( MAT(DBNAME,'ELEC') GT 0 AND ( NAME OF TMPR EQ '/220-LB(1)-TYPE-TMPL' OR NAME OF TMPR EQ '/220-LB-TYPE-TMPL' OR NAME OF TMPR EQ '/220-LC-TYPE-TMPL' OR NAME OF TMPR EQ '/220-LC(1)-TYPE-TMPL') ) for ce

Q VAR !EQUIS

DO !E VALUES !EQUIS
  $!E
  TMPLATE 1
  UNLOCK ALL
  
  SCTN 8
  !flnm8 = flnm of spref of sctn 8
  if mat(!flnm8,'LDK') gt 0 then
          $p sctn 8 |is ok|
  else
          !flnm8 = !flnm8.replace('/GB/BEAM/L', '/ELEC/BEAM/LDK')
          q var !flnm8
          handle any
          endhandle
          spref $!flnm8
          $p |sctn 8 is changed|
  endif
  
  SCTN 9
  !flnm9 = flnm of spref of sctn 9
  if mat(!flnm9,'LDK') gt 0 then
          $p sctn 9 |is ok|
  else
          !flnm9 = !flnm9.replace('/GB/BEAM/L', '/ELEC/BEAM/LDK')
          q var !flnm9
          handle any
          endhandle
          spref $!flnm9
          $p |sctn 9 is changed|
  endif

  SCTN 10
  !flnm10 = flnm of spref of sctn 10
  if mat(!flnm10,'LDK') gt 0 then
          $p sctn 10 |is ok|
  else
          !flnm10 = !flnm10.replace('/GB/BEAM/L', '/ELEC/BEAM/LDK')
          q var !flnm10
          handle any
          endhandle
          spref $!flnm10
          $p |sctn 10 is changed|
  endif
  
  SCTN 11
  !flnm11 = flnm of spref of sctn 11
  if mat(!flnm11,'LDK') gt 0 then
          $p sctn 11 |is ok|
  else
          !flnm11 = !flnm11.replace('/GB/BEAM/L', '/ELEC/BEAM/LDK')
          q var !flnm11
          handle any
          endhandle
          spref $!flnm11
          $p |sctn 11 is changed|
  endif

ENDDO

来自安卓APP客户端