## 為什么要用易語言呢，因為順手。 #### 原理很簡單 讀取文件名然后轉為xml 因為易語言沒有xml對象所以 直接拼接字符串了 **引入精易模塊** ~~~ .版本 2 文件_枚舉 (編輯框1.內容, “*.bmp”, 數組, 假) .計次循環首 (取數組成員數 (數組), i) 原名 ＝ 數組 [i] 分割數組 ＝ 分割文本 (原名, “&_”, ) 坐標數組 ＝ 分割文本 (分割數組 [1], “&”, ) xml節點 ＝ #xml頭 .計次循環首 (取數組成員數 (坐標數組), j) xy數組 ＝ 分割文本 (坐標數組 [j], “-”, ) obj節點 ＝ “<object><name>a23383</name><bndbox>” obj節點 ＝ obj節點 ＋ “<xmin>” ＋ xy數組 [1] ＋ “</xmin>” obj節點 ＝ obj節點 ＋ “<ymin>” ＋ xy數組 [2] ＋ “</ymin>” obj節點 ＝ obj節點 ＋ “<xmax>” ＋ xy數組 [3] ＋ “</xmax>” obj節點 ＝ obj節點 ＋ “<ymax>” ＋ xy數組 [4] ＋ “</ymax>” obj節點 ＝ obj節點 ＋ “</bndbox></object>” xml節點 ＝ xml節點 ＋ obj節點 .計次循環尾 () xml節點 ＝ xml節點 ＋ #xml尾 寫到文件 (文本_替換 (原名, , , , “bmp”, “xml”), 到字節集 (xml節點)) .計次循環尾 () 信息框 (“處理完畢”, 0, , ) ~~~