0

我有一系列 XML 文件，我需要在其中添加几行文本，但是附加文本的位置非常重要，否则 XML 文件将不再工作。

<Tools>幸运的是，需要在每个 XML 文件中只出现一次的文本之后插入新文本。

如何使用 Windows 批处理，找到文本<Tools>并在之后直接插入附加文本？（为了论证的缘故，假设要添加的文本是<HELLO WORLD>）

亲切的问候

编辑：

我刚刚意识到我需要替换所有<Tools>实例<Tools> <HELLO WORLD>

我怎样才能做到这一点？

编辑2：

以下是运行良好但不带引号的vbs

有没有办法用另一个文件的文本内容替换文本

    Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Text.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "CH1", "*901*")

Set objFile = objFSO.OpenTextFile("C:\Text.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close
4

2 回答 2

0

引起问题的报价在哪里发挥作用？

有没有办法用另一个文件的文本内容替换文本？你的意思是用另一个文件中的片段替换某些片段吗？

下面将在源文件中找到字符串并输出带有插入的新文件。

:: Hide Command and Isolate Scope with Command Extensions
@echo off
setlocal EnableExtensions DisableDelayedExpansion

:: See the following for help
rem echo /?
rem setlocal /?
rem for /?
rem type /?
rem find /?
rem del /?


:: Setup
set "xIn=Test.xml"
set "xOut=Output.xml"
set "xTerm=<Tools>"
set "xInsert=^<HELLO WORLD^>"


:: Validate
if not defined xIn goto End
if not defined xOut goto End


:: Place on Seperate Line Method
if defined xOut if exist "%xOut%" del /f /q "%xOut%" > nul
for /f "usebackq tokens=*" %%a in (`type %xIn%`) do (
    echo.%%a >> %xOut%
    for /f "usebackq tokens=*" %%x in (`echo."%%a" ^| find "%xTerm%"`) do (
        echo.%xInsert% >> %xOut%
    )
)


:: Setup
set "xOut=Output2.xml"


:: Validate
if not defined xOut goto End


:: Place on the Same Line Method
if defined xOut if exist "%xOut%" del /f /q "%xOut%" > nul
for /f "usebackq tokens=*" %%a in (`type %xIn%`) do (
    for /f "usebackq tokens=*" %%x in (`echo."%%a" ^| find /v "%xTerm%"`) do (
        echo.%%a >> %xOut%
    )
    for /f "usebackq tokens=*" %%x in (`echo."%%a" ^| find "%xTerm%"`) do (
        echo.%%a %xInsert% >> %xOut%
    )
)

:End
endlocal

编辑：这是上述脚本的修改版本，它将用文件内容替换包含搜索词的行。它应该可以很好地处理报价。请参阅脚本中的 call 命令以了解如何使用它。

:: Hide Command
@echo off

set "xResult="
call :ReplaceWith xResult "Source.xml" "<Tools>" "Input.xml" "Output.xml"
echo.%xResult%

goto End


::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:ReplaceWith <xReturn> <Source File> <Search Term> <Input File> <Output File>
:: Replace a line in the source file containing the search term with the entire
:: contents of the input file and save the changes to the output file.
:::: Note: Only supports single line search terms.
:: Returns the number of lines replaced.  -1 for error.

:: Hide Commands, Isolate Scope, and Set Abilities
@echo off
setlocal EnableExtensions DisableDelayedExpansion

:: Setup
set "xResult=-1"
set "xSource=%~2"
set "xTerm=%~3"
set "xInput=%~4"
set "xOut=%~5"

:: Validate
if not defined xSource goto EndReplaceWith
if not exist "%xSource%" goto EndReplaceWith
if not defined xTerm goto EndReplaceWith
if not defined xInput goto EndReplaceWith
if not exist "%xInput%" goto EndReplaceWith
set "xResult=0"

:: Search
type nul > %xOut%
for /f "usebackq tokens=* delims=" %%a in (`type "%xSource%"`) do (
    for /f "usebackq tokens=*" %%x in (`echo."%%a" ^| find /v "%xTerm%"`) do (
        echo.%%a>> %xOut%
    )
    for /f "usebackq tokens=*" %%x in (`echo."%%a" ^| find "%xTerm%"`) do (
        type "%xInput%" >> %xOut%
        echo.>> %xOut%
        set /a "xResult+=1"
    )
)
:EndReplaceWith
endlocal & if not "%~1"=="" set "%~1=%xResult%"
goto :eof
:: by David Ruhmann


:End
endlocal
于 2012-12-07T18:55:37.373 回答
0

使用或构造 XSLT 并应用它来保持 XML 有效不是更安全吗？如果你愿意探索这个选项，我会推荐使用像AltovaXML（免费社区版）这样的命令行 xslt 处理器来在你的批处理文件中使用。
许多 IDE/代码编辑器，例如 Visual Studio/Notepad++/Emacs/Eclipse/...，也有应用甚至调试 XSLT 的方法（有时集成，有时使用插件或附加组件），这在编写转换时可能很方便。

于 2012-12-09T14:36:26.837 回答