我问过一个question关于分析一个红宝石文件。我接受了答案,写了下面的Ruby脚本:VBscript相当于一个简单的红宝石脚本
file = File.open('X:myfile.txt', 'r')
file.each_line do |line|
ccyy = line[53...57]
mmdd = line[57...61]
line[53...57] = mmdd
line[57...61] = ccyy
File.open('c:\myfile_MODIFIED.txt', 'a') do |f2|
f2.puts line
end
end
这个脚本会在生产运行和更改文件,然而,生产是在Windows中,只有VBScript是允许在其上运行。 Unfortunatley我以前没有在VB中写过任何东西。有人可以帮助将上面的代码转换为vb吗?
我至今是:
Dim oFolder, oFile, sText, ots
Set OFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = OFSO.GetFolder("X:\myfolder")
Set RegXP=New RegExp
RegXP.IgnoreCase=1
RegXP.Pattern="PROD_FILE_\d+.txt"
For Each oFile in oFolder.Files
If (RegXP.test(oFile.Name)) Then
WScript.Echo oFile.Name
set ots = OFSO.opentextfile(oFile)
Do While Not ots.AtEndOfStream
sText = ots.ReadLine
'read file line by line. change characters in the line. write line to new file'
Loop
ots.close
End If
Next
谢谢。但仍然没有取代字符串。从你的例子....说我想要替换第六个字符 – john 2010-06-02 18:35:02
只是将它分成4个块:开始,ccyy,mmdd,结束第四个字符。然后将它重新组合为'start&mmdd&ccyy&end'。 – dmb 2010-06-04 21:17:50