【已解决】怎么修改XML文件内容

3131210

有个xml文件  想正则搜索    '[a-zA-Z]:\\.*\\'     自动修改   内容为au3所在当前目录       附上2段可以用的代码

直接正则暴力修改     有没有其他办法   比如读取xml字段编辑

代码1

$open = FileOpen("config.xml", 0)
$read = FileRead($open)
FileClose($open)

Local $DZ = StringRegExpReplace(@ScriptDir, '\\', '\\\\')
Local $Test = StringRegExpReplace($read, '[a-zA-Z]:\\.*\\', $DZ & "\")

$open = FileOpen("config.xml", 2)
FileWrite($open, $Test)
FileClose($open)

代码2

#Include <File.au3>
$IniFile = "config.xml"
$Lines = _FileCountLines($IniFile)
Local $DZ = StringRegExpReplace(@ScriptDir, '\\', '\\\\')
For $i=1 To $Lines
   $ReadFile=FileReadLine($IniFile,$i)
   If stringinstr($ReadFile,"<location>") Then
   Local $Test = StringRegExpReplace($ReadFile, '<location>.*\\', "<location>" & $DZ & "\")
   FileWriteLine("new.txt", $Test)
   ElseIf stringinstr($ReadFile,"<BackupPath>") Then
   Local $Test = StringRegExpReplace($ReadFile, '<BackupPath>.*\\', "<BackupPath>" & $DZ & "\")
   FileWriteLine("new.txt", $Test)
   Else
   FileWriteLine("new.txt", $ReadFile)
   EndIf
NEXT
FileMove("new.txt", "config.xml", 1)

xml的内容

<?xml version="1.0" encoding="utf-8"?>
<xml>
        <pexconfig>
                <PhraseFile>
                        <Data>
                                <phrases>
                                        <min_ver>10.0.34</min_ver>

                                        <version>4.0.21</version>
                                        <autolearn>
                                                <description>Word 自动更正</description>
                                                <location>D:\PhraseExpress\autocorrect.pxp</location>
                                                <project_name>False</project_name>
                                        </autolearn>
                                        <clipboard>
                                                <description>剪贴板缓存</description>
                                                <location>D:\PhraseExpress\clipboard.pxp</location>
                                                <cacheloaded>False</cacheloaded>
                                        </clipboard>
                                        <file>
                                                <description>新建本地文件</description>
                                                <location>D:\PhraseExpress\phrases.pxp</location>
                                                <cacheloaded>False</cacheloaded>
                                        </file>
                                </phrases>
                        </Data>
                        <NP/>
                        <DoSyncFiles>-1</DoSyncFiles>
                        <PhrasesTouched>0</PhrasesTouched>
                        <ServerSwitched>0</ServerSwitched>
                        <DBT/>
                        <DBTS/>
                        <BackupCount>99</BackupCount>
                        <BackupPath>D:\PhraseExpress\</BackupPath>
                        <CacheSQLData>0</CacheSQLData>
                        <LastSaveTarget/>
                        <SaveHistoryPaths/>
                </PhraseFile>
        </pexconfig>
</xml>

grubby618

看看

1361739590

可以把你的正则翻译一下么？

林苑书屋

回复 1# 3131210


    学习学习

林苑书屋

回复 1# 3131210


    学习学习