dreamweaver 如何批量替换源代码文件

       正则表达式不能提取文件名作为变量，可以试试VBS：

       sFolder = "."

       Set oFSO = CreateObject("Scripting.FileSystemObject")

       Set oFolder= oFSO.GetFolder(sFolder)

       Set colFiles = oFolder.Files

       For Each oFile in colFiles

        If Lcase(oFSO.GetExtensionName(oFile)) = "html" The恒达源码n

        oName = Split(oFile.Name,".")(0)

        Set sFile = oFSO.OpenTextFile(oFile, 1)

        colLines = sFile.ReadAll

        sFile.Close

        aryLines = Replace(colLines, "1.jpg", oName & ".jpg")

        Set dtFile = oFSO.OpenTextFile(oFile, 2)

        dtFile.Write aryLines

        dtFile.Close

        End If

       Next

       Set oFSO = Nothing

       代码假设文件在同级文件夹，保存为VBS文件放到HTML文件夹，家政维修源码双击执行。软件源码法规如果不在同级文件夹，akmall源码下载HI我以作修改。asio源码下载