论坛 › 『 提问交流 』 › 请教，将文件夹名，写入xml里！

zz999 发表于 2014-5-24 16:21:32

请教，将文件夹名，写入xml里！

有个头大活，一个文件下有200多个子文件夹，有顺序的

people1,people2到people280

每个文件夹下一个xml文件，固定名 main.xml

每个xml里的前几行里会有一句<identifie><!]></identifie>我就是想把文件夹名字替换进去，变成<identifie><!]></identifie>

zz999 发表于 2014-5-24 16:45:59

或者把所有的文件重命名，并写入xml
请教跟该怎么做！

fuldho 发表于 2014-5-24 21:55:25

For $i = 1 To 280
        $aFileList = "D:\123\" & "people" & $i & "\main.xml"
        If FileExists($aFileList) Then
                $Str = FileRead($aFileList)
                $sR = StringRegExp($Str, 'CDATA\[(.*?)\]', 3)
                $Str = StringRegExpReplace($Str, $sR, "people1")
                FileWriteLine($aFileList & '.txt', $Str)
        EndIf
Next

查看完整版本: 请教，将文件夹名，写入xml里！