[文本处理] 批处理对文本变量的重新排列及替换

leo1984

請教各位前輩幫忙
小弟有一些文本的內容如下:

MY_THUMB.appendItem(1,'復仇之戰.part1.rar.jpg','http://1.photo.xuite.net/1/e/1/b/leo20010101010/3556063/t/135435310.jpg'); MY_THUMB.appendItem(2,'復仇之戰.part2.rar.jpg','http://1.photo.xuite.net/1/e/1/b/leo20010101010/3556063/t/135435430.jpg'); MY_THUMB.appendItem(3,'復仇之戰.part3.rar.jpg','http://1.photo.xuite.net/1/e/1/b/leo20010101010/3556063/t/135435609.jpg');

............................以此類推

我想要把所有文本紅色內容替換如下:

/Ref:abc /Rename:復仇之戰.part1.rar http://1.photo.xuite.net/1/e/1/b/leo20010101010/3556063/t/135435310.jpg
/Ref:abc /Rename:復仇之戰.part2.rar http://1.photo.xuite.net/1/e/1/b/leo20010101010/3556063/t/135435310.jpg
/Ref:abc /Rename:復仇之戰.part3.rar http://1.photo.xuite.net/1/e/1/b/leo20010101010/3556063/t/135435310.jpg

請問該如何辦到呢?

拜託幫忙，先說聲感謝!::yct20::

[ 本帖最后由 leo1984 于 2009-10-13 20:35 编辑 ]

Batcher

因为从27楼开始，需求又变了，囧ing

asnahu

第一个是普通的ansi编码，第二是UTF-8 LITTLE ENDIAN编码，第三个是UTF-8 无 BOM 格式编码，用以下正则：

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

可以匹配第一个和第二个，不过第三个VBS打开是乱码。请你先测试。

随风

25楼用sed不是已经解决了吗，难道还不行？

leo1984

原帖由 asnahu 于 2009-10-14 22:08 发表
Dim objFSO, objFile, colLines
Dim objRegEx, objMatches, objMatch, aryMatches

Const ForReading   = 1
Const TristateTrue = -1

sFile = "a.txt"

Set objFSO = CreateObject("Scripting.FileSystemOb ...

大哥您有測試我的文本嗎@@

我測試結果是沒有輸出文本b.txt

所以我也不知道哪裡有問題

可以請您測試一下我的文本可否成功

感謝><

asnahu

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
复制代码

leo1984

原帖由 zqz0012005 于 2009-10-14 20:50 发表
对27楼的文本，你确认是用Unicode 格式打开的吗？
fso.OpenTextFile("a.txt", 1, false, -1)

我傳的文本是big5繁體中文碼

我另傳一個utf-8的碼給您看看

leo1984

原帖由 asnahu 于 2009-10-14 18:44 发表
还是正则来得快点，VBS：

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

Const ForReading   = 1
Const TristateTrue = -1

sFile = "a.txt"

Set objFSO = CreateObj ...

大哥
"復仇之戰"這些字不能當成變量，那是不固定的@@

另外可以請您幫我處理完字串後輸出文本嗎，像是b.txt
謝謝

[ 本帖最后由 leo1984 于 2009-10-14 21:50 编辑 ]

asnahu

谢谢斑竹，参数没用上，现在可以了。

zqz0012005

对27楼的文本，你确认是用Unicode 格式打开的吗？
fso.OpenTextFile("a.txt", 1, false, -1)

asnahu

不知何故，用unicode的方式打开读取文本2的内容只得到了一个问号，不解中...望斑竹测试一下。

zqz0012005

OpenTextFile 方法的语法是
OpenTextFile(filename[, iomode[, create[, format]]])

iomode 参数可以是下列设置中的任一种：

常数	值	描述
ForReading	1	以只读方式打开文件。不能写这个文件。
ForWriting	2	以写方式打开文件
ForAppending	8	打开文件并从文件末尾开始写。

format 参数可以是下列设置中的任一种：

常数	值	描述
TristateTrue	-1	以 Unicode 格式打开文件。
TristateFalse	0	以 ASCII 格式打开文件。
TristateUseDefault	-2	使用系统默认值打开文件。

LZ的文本是Unicode格式。

asnahu

还是正则来得快点，VBS：

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
复制代码

[ 本帖最后由 asnahu 于 2009-10-14 21:44 编辑 ]

leo1984

原帖由 asnahu 于 2009-10-14 08:52 发表
不知是否编码问题，第二个文本始终得不到正确结果，VBS也歇菜了。以下代码针对第一个文本：

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

Dim objFSO,oFile,colLines
Set objFSO = CreateObj ...

非常謝謝你

現在的問題出在第二文本@@

不過也見識到這命令這麼多元的寫法

asnahu

不知是否编码问题，第二个文本始终得不到正确结果，VBS也歇菜了。以下代码针对第一个文本：

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
复制代码

[ 本帖最后由 asnahu 于 2009-10-14 18:01 编辑 ]