bat特殊字符追写文件行的方法

CALL :write_coded_line "kkkkkk"">|-^~" "q.txt"
goto :EOF


:write_coded_line
:: SUB :write_coded_line
:: param 1: data, param 2: file
SET wcl_out=%~2
SET P0=%1
SET wcl_check=%P0: =%
SET P0=%P0:'="%
SET P0=%P0:|=^|%
SET P0=%P0:-=^-%
SET P0=%P0:<=^<%
SET P0=%P0:>=^>%
SET P0=%P0:!=^!%
SET P0=%P0:(=^(%
SET P0=%P0:)=^)%
SET P0=%P0:;=^;%
SET P0=%P0:&=^&%
:: check for empty row; any separator resulty in a syntax error if "" or '' are included in the string

SET wcl_check=%wcl_check: =%
SET wcl_check=%wcl_check:|=$%
SET wcl_check=%wcl_check:-=$%
SET wcl_check=%wcl_check:<=$$$$%
SET wcl_check=%wcl_check:>=$$$$%
SET wcl_check=%wcl_check:!=$%
SET wcl_check=%wcl_check:(=$%
SET wcl_check=%wcl_check:)=$%
SET wcl_check=%wcl_check:,=$%
SET wcl_check=%wcl_check::=$%
SET wcl_check=%wcl_check:;=$%
SET wcl_check=%wcl_check:&=$%
SET wcl_check=%wcl_check:!=$%
SET wcl_check=%wcl_check:    =%
SET wcl_check=%wcl_check:.=$%
SET wcl_check=%wcl_check:/=$%
SET wcl_check=%wcl_check:'=$%
SET wcl_check=%wcl_check:"=%

IF "%wcl_check%"=="$" SET  wcl_check=
IF "%wcl_check%"=="$$" SET  wcl_check=
IF "%wcl_check%"=="$$$" SET  wcl_check=

IF "%wcl_check%"=="" (
    ECHO.>>"%wcl_out%"
    GOTO EOF_write_coded_line
)
ECHO %P0:~1,-1%>>"%wcl_out%"
:EOF_write_coded_line
GOTO :EOF