## 为什么要用易语言呢，因为顺手。 #### 原理很简单 读取文件名然后转为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, , ) ~~~