Pml Basic 3 - Object Real()
d
VAR !A EVAL NAME FOR ALL WITH MATCHWILD(NAME,'*TEST*') PIPE FOR CE
!collection = OBJECT COLLECTION()
!Collection.SCOPE(CE)
!Collection.TYPE('PIPE')
!Collection.FILTER(OBJECT EXPRESSION(|MATCHWILD(NAME,'*TEST*')|))
!A = !Collection.RESULTS()
<string> '/TEST1'
<string> '/TEST2'
<string> '/TEST3'
<string> '/TEST4'
<string> '/TEST5'
<dbref> '123456/1'
<dbref> '123456/2'
<dbref> '123456/3'
<dbref> '123456/4'
<dbref> '123456/5'
VAR !branmems COLL ALL BRAN MEM FOR CE
!Arraytest = ARRAY()
DO !branmem values !branmems
$*Stext값
VAR !stext STEXT OF DETREF OF SPREF OF $!branmem
$* 두번쨰로 나눈값
VAR !splitStext PART('$!stext' ,2)
$* Branmem 이름
VAR !name name of $!branmem
VAR !replaceName REPLACE('$!name','-','')
VAR !result !splitStext + !replaceName
!Arraytest.append(!result)
ENDDO
!branmems = !!collectAllFor('BRAN MEM', ||, CE)
DO !branmem values !branmems
!stext = !branmem.spref.detref.stext.part(2)
!name = !branmem.name.replace('-','')
!Arraytest.append(!stext + !name)
ENDDO
!branmems = !!collectAllFor('BRAN MEM', ||, CE)
!Arraytest = !branmems.EVALUATE(OBJECT BLOCK(|!branmems[!EvalIndex].spref.detref.stext.part(2) + !branmems[!EvalIndex].owner.name.replace('-','')|))
!A = =1237491/12 $* !A = CE 해도 DBREF 타입입니다.
!NAME = !A.NAME
!TYPE = !A.TYPE
!P1BORE = !A.PPBO[1]
!P2BORE = !A.PPBO[2]
!P1CONN = !A.PPCO[1]
!P2CONN = !A.PPCO[2]
!A = =1237491/12
!RESULT = !A.NAME.Replace('1','')