@echo off
f index.html -r:"***:\w+\.css" -o:"k"
复制代码

@echo off
set file="index.html"

call :1 > temp.~
move temp.~ %file%
exit /b

:1
for /f "delims=" %%a in ('findstr /n .* %file%') do (
  set var=%%a
  setlocal enabledelayedexpansion
  if "!var:*:=!"=="</head>" (
    endlocal
    for /f "delims=" %%b in ('f %file% -r:"***:\w+\.css" -o:"k"') do (
      echo    ^<link rel="stylesheet" type="text/css" href="cmspath/%%b" /^>
    )
    echo ^</head^>
    for /f "delims=:" %%c in ("%%a") do more +%%c %file%
    goto :eof
  ) else echo;!var:*:=!
  endlocal
)
复制代码

sFile = "a.htm"
set fso = CreateObject("Scripting.FilesystemObject")
s = fso.OpenTextFile(sFile).ReadAll
set regEx = new regExp
regEx.Pattern = "^.*href=""?(/?(?:\w+/)+(\w+\.css)).*$"
regEx.IgnoreCase = True
regEx.Global = True
regEx.Multiline = True
Set Matches = regEx.Execute(s)
For Each Match in Matches
    t = t & Replace( Match.Value, Match.SubMatches(0), _
        "cmspath/" & Match.SubMatches(1) ) & vbLf
Next
s = Replace(s, "</head>", t & "</head>")
'wsh.echo s
fso.OpenTextFile("a2.htm",2,true).Write s
'确认无误后可直接将"a2.htm"换成sFile
复制代码