(XD::XML:SetNodeProperties)设置节点属性

st788796

1. ;|
   
2. 2 attribute
   
3. 3 "TEXT"
   
4. 4 "CDATA"
   
5. 8 "COMMENT"
   
6. |;
   
7. ;;("ATTR" "test") or ("ATTR" ("lang" "en"))
   
8. ;;(("ATTR" ("lang" "en")) ("TEXT" "dddde" "ddere") ("COMMENT" "dfafa" "fasfdsa") ("CDATA" "fadsfsa" "fdasfa" "adafa"))
   
9. (defun XD::XML:SetNodeProperties
   
10.        (xmlobj lst / _getnodeType _setattribute _setproperty doc)
    
11.   (defun _getnodeType (str)
    
12.     (setq str (strcase str))
    
13.     (cond
    
14.       ((= str "ATTR") 2)
    
15.       ((= str "TEXT") 'createTextNode) ;_
    
16.       ((= str "COMMENT") 'createComment) ;_
    
17.       ((= str "CDATA") 'createCDATASection) ;_
    
18.       (t nil)
    
19.     )
    
20.   )
    
21.   (defun _setattribute (node lst)
    
22.     (if        (= (type lst) 'STR)
    
23.       (setq lst (list "atttribute" lst))
    
24.     )
    
25.     (vl-catch-all-apply
    
26.       'vlax-invoke-method
    
27.       (append (list node "setAttribute") lst)
    
28.     )
    
29.   )
    
30.   (defun _setproperty (node func lst /)
    
31.     (setq element (vlax-invoke-method
    
32.                     (vlax-get-property node 'ownerDocument)
    
33.                     func
    
34.                     ""
    
35.                   )
    
36.     )
    
37.     (vlax-put-property element 'text lst)
    
38.     (vlax-invoke-method node 'appendChild element)
    
39.   )
    
40.   (if (= (vlax-get-property xmlobj 'nodeType) 9)
    
41.     (setq doc xmlobj)
    
42.     (setq doc (vlax-get-property xmlobj 'ownerDocument))
    
43.   )
    
44.   (mapcar
    
45.     '(lambda (x)
    
46.        (mapcar '(lambda        (a / typ tag att)
    
47.                   (setq typ (_getnodeType (car x)))
    
48.                   (if (= typ 2)
    
49.                     (_setattribute xmlobj a)
    
50.                     (_setproperty xmlobj typ a)
    
51.                   )
    
52.                 )
    
53.                (cdr x)
    
54.        )
    
55.      )
    
56.     lst
    
57.   )
    
58. )

;|<br /> 2 attribute<br /> 3 "TEXT"<br /> 4 "CDATA"<br /> 8 "COMMENT"<br /> |;<br /> ;;("ATTR" "test") or ("ATTR" ("lang" "en"))<br /> ;;(("ATTR" ("lang" "en")) ("TEXT" "dddde" "ddere") ("COMMENT" "dfafa" "fasfdsa") ("CDATA" "fadsfsa" "fdasfa" "adafa"))<br /> (defun XD::XML:SetNodeProperties<br />        (xmlobj lst / _getnodeType _setattribute _setproperty doc)<br />   (defun _getnodeType (str)<br />     (setq str (strcase str))<br />     (cond<br />       ((= str "ATTR") 2)<br />       ((= str "TEXT") 'createTextNode) ;_ <br />       ((= str "COMMENT") 'createComment) ;_ <br />       ((= str "CDATA") 'createCDATASection) ;_ <br />       (t nil)<br />     )<br />   )<br />   (defun _setattribute (node lst)<br />     (if        (= (type lst) 'STR)<br />       (setq lst (list "atttribute" lst))<br />     )<br />     (vl-catch-all-apply<br />       'vlax-invoke-method<br />       (append (list node "setAttribute") lst)<br />     )<br />   )<br />   (defun _setproperty (node func lst /)<br />     (setq element (vlax-invoke-method<br />                     (vlax-get-property node 'ownerDocument)<br />                     func<br />                     ""<br />                   )<br />     )<br />     (vlax-put-property element 'text lst)<br />     (vlax-invoke-method node 'appendChild element)<br />   )<br />   (if (= (vlax-get-property xmlobj 'nodeType) 9)<br />     (setq doc xmlobj)<br />     (setq doc (vlax-get-property xmlobj 'ownerDocument))<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (mapcar '(lambda        (a / typ tag att)<br />                   (setq typ (_getnodeType (car x)))<br />                   (if (= typ 2)<br />                     (_setattribute xmlobj a)<br />                     (_setproperty xmlobj typ a)<br />                   )<br />                 )<br />                (cdr x)<br />        )<br />      )<br />     lst<br />   )<br /> )