漂流瓶537 发表于 2024-3-6 19:02

PML语言学习之批量移动FTUB

var !brans coll all bran for ce

do !x index !brans
    !pipe = FLNM of OWNER of $!brans[$!x]
    var !ftubs coll all ftub for $!brans[$!x]
    !num = !ftubs.size()
    $p $!num
    if !num gt 1 then
       do !y index !ftubs
                                        $!pipe
                                        new bran
                                        new ftub copy $!ftubs[$!y]
          handle any
                                  endhandle
       enddo
       $!brans[$!x]
       delete bran
       handle any
       endhandle
          endif
   
enddo

afei 发表于 2024-3-7 13:16

学习中…………
页: [1]
查看完整版本: PML语言学习之批量移动FTUB