PML语言学习之批量移动FTUB

漂流瓶537

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

来自安卓APP客户端

afei

学习中…………