@echo off
set "file=D:\php-5.2.9-Win32\php.ini-dist"
rem a对应b，不需要空格
set "#"a"=b"
set "#"cgi.fix_pathinfo"=1"
rem 替换为空值，则值为 / 在21行判断，如
set "#"c"=/"
 
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%file%"') do (
	if "%%b" neq "" (
		for /f "delims==" %%c in (" %%b") do (
			for /f "tokens=1* delims=; " %%d in ("%%c") do (
				if defined #"%%d" (
					if "%%e" equ "" (
						for /f "tokens=* delims=; " %%f in (" %%b#") do (
							for /f "tokens=1* delims==" %%g in ("%%f") do (
								for /f "tokens=*" %%i in ("%%h") do (
									set str=%%f
									setlocal enabledelayedexpansion
									if "!#"%%d"!" equ "/" (
										echo=%%g=
									) else (
										call echo=!str:%%i=%%#"%%d"%%!
									)
									endlocal
									set m_e=1
								)
							)
						)
					)
				)
			)
		)
	)
	if defined m_e (
		set m_e=
	) else (
		echo=%%b
	)
)) > "out.txt"
rem move "out.txt" "%file%"
pauseCOPY

   set "INPUT_FILE_52_dev=php.ini-dist"
   setlocal enabledelayedexpansion
    <略 去一些其他代码>
   endlocal
   @REM 获取配置文件
    set PHP_INI_FILE=
    if exist "%INPUT_FILE_52_dev%" (
        set PHP_INI_FILE="%INPUT_FILE_52_dev%"
    ) else if exist "%INPUT_FILE_dev%" (
        set PHP_INI_FILE="%INPUT_FILE_dev%"
    ) else (
        echo. & echo.
        echo [ Error ] 没有匹配的 dev 版 ini 配置文件:%PHP_INI_FILE% ！！！ 
        echo. & echo. & pause & exit /b
    )COPY

[ Error ] 没有匹配的 dev 版 ini 配置文件: ！！！COPY

rem 另存为 ANSI 编码 bat
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit /b
 
PHP_INI_FILE = "php.ini-dist"
SEARCH_TEXT  = "; cgi.fix_pathinfo = 0"
REPLACE_TEXT = "cgi.fix_pathinfo = 1"
OUT_FILE     = "php.ini"
 
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 2
oStream.Mode = 3
oStream.Charset = "GBK"
oStream.Open()
oStream.LoadFromFile PHP_INI_FILE
s = oStream.ReadText()
oStream.Close()
m = Replace(SEARCH_TEXT, " ", "")
m = Replace(m, ".", "\.")
Pattern = "^"
If Left(m, 1) = ";" Then
    Pattern = Pattern & "; *"
    m = Right(m , Len(m) - 1)
End If
m = Split(m, "=")
Pattern = Pattern & m(0) & " *= *" & m(1)
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.Global = True
oRegExp.MultiLine = True
oRegExp.IgnoreCase = True
oRegExp.Pattern = Pattern
If oRegExp.Test(s) Then s = oRegExp.Replace(s, REPLACE_TEXT)
oStream.Open()
oStream.WriteText s
oStream.SaveToFile OUT_FILE, 2
oStream.Close()COPY