@echo off&setlocal enabledelayedexpansion
(for /f "tokens=2,4 delims='" %%a in (a.txt) do (
   echo /Ref:abc /Rename:%%~na %%b
))>c.txt
start c.txt
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1-3 delims=)" %%a in (a.txt) do (
   for %%I in ("%%a" "%%b" "%%c") do (
      for /f "tokens=2,4 delims='" %%i in ("%%I") do (
         echo /Ref:abc /Rename:%%~ni %%j
))))>c.txt
start c.txt
复制代码

@echo off&set/ps=<a.txt
:g
(for /f "tokens=1-4* delims='" %%a in ("%s%") do (if "%%b"=="" exit)&echo /Ref:abc /Rename:%%b %%d>>b.txt&set s=%%e)&goto g
复制代码

@echo off
(for /f "delims=" %%a in (a.txt) do (
   set "str=%%a"
   setlocal enabledelayedexpansion
   set "str=!str:)="!"
   set "str=!str:(="!"
   for %%I in (!str!) do (
      for /f "tokens=2,4 delims='" %%i in ("%%I") do (
         echo /Ref:abc /Rename:%%~i %%j
      )
   )
   endlocal
))>c.txt
start c.txt
复制代码

sed "s/; /\n/g" a.txt | sed "s/.*[0-9],'\(.*part...\.rar\.jpg\)','\(.*\.jpg\)../\/Ref\:abc \/Rename\:\1 \2/g">b.txt
复制代码

 
http://photo.xuite.net/_my/b_5'); 
复制代码

 
</script><tr>
复制代码

Dim objFSO,objRegEx
Const ForReading = 1
sFile = "a.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = objFSO.OpenTextFile(sFile,  1, TristateTrue)
colLines = oFile.ReadAll
oFile.Close

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "MY_THUMB.*jpg"
Set Matches = objRegEx.Execute(colLines)

For Each objMatch in Matches
     aryLines = aryLines & objMatch & vbCrLf
Next

aryLines = Split(aryLines, ";")

For i = 0 To Ubound(aryLines) - 1
    var_1 = Replace(Replace(Split(aryLines(i), ",")(1),".jpg", ""),"'", "")
    var_2 = Replace(Replace(Split(aryLines(i), ",")(2),"'",""), ")", "")
    strLine = "/Ref:abc /Rename:" & var_1 & " " & var_2 & vbCrLf
    strLines = strLines & strLine & vbCrLf
Next

Wscript.Echo strLines

Set objFSO   = Nothing
Set objRegEx = Nothing
复制代码

Dim objFSO, objFile, colLines
Dim objRegEx, objMatches, objMatch, aryMatches

Const ForReading   = 1
Const TristateTrue = -1

sFile = "a.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(sFile,1, false, -1)
colLines = objFile.ReadAll
objFile.Close

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "(復仇之戰\.[a-z]*[0-9]*\.[a-z]*\.[a-z]+)[^a-zA-z]*(\w+:\/\/\d\.\w+\.\w+\.\w+\/\d\/\d\/\w\/\d\/\w*\d*\/\d*\/\w\/\d*\.\w{3})"
Set objMatches = objRegEx.Execute(colLines)

For Each objMatch in objMatches
        objMatch = Replace(objMatch, ".jpg','", " ")
        objMatch = "/Ref:abc /Rename:" & objMatch
        aryMatches = aryMatches & objMatch & vbCrLf
Next

Wscript.Echo aryMatches

Set objFSO   = Nothing
Set objRegEx = Nothing
复制代码

Dim objFSO, objFile, colLines
Dim objRegEx, objMatches, objMatch, aryMatches

Const ForReading   = 1
Const TristateTrue = -1

sFile = "a.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(sFile,1, false, -1)
colLines = objFile.ReadAll
objFile.Close

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "(\D*\.[a-z]*[0-9]*\.[a-z]*\.[a-z]+)[^a-zA-z]*(\w+:\/\/\d\.\w+\.\w+\.\w+\/\d\/\d\/\w\/\d\/\w*\d*\/\d*\/\w\/\d*\.\w{3})"
Set objMatches = objRegEx.Execute(colLines)

For Each objMatch in objMatches
        objMatch = Replace(objMatch, ".jpg','", " ")
        objMatch = "/Ref:abc /Rename:" & objMatch
        aryMatches = aryMatches & objMatch & vbCrLf
Next

Set strFile = objFSO.CreateTextFile("b.txt", True)
strFile.Write aryMatches
strFile.Close

Set objFSO   = Nothing
Set objRegEx = Nothing
复制代码

(\D*\.[a-z]*[0-9]*\.[a-z]*\.[a-z]+)[^a-zA-z]*(\w*:\/\/[^/]*[^.]*\.\w{3})
复制代码