Question

我询问了question 。 about file。我接受了答复并撰写了以下文 rub:

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

这一文字将投入生产,并改变档案,但生产是一个窗户,只允许用纸张。 Unfortunatley I havn t written any in VB before. 某人能否帮助将上述法典的肉类改成真?

我迄今所做的是:

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

Answer 1

就像你一样,你走了90%的道路。

由于VB文本没有直接任意提供显示内容的渠道,你需要利用某些职能进行操纵。

I d go with Mid 和 ft 。

E.g.

dim a, b
a = "Hello, World!"
b = left( mid( a, 8 ), 5 )
wscript.echo(b)

产出:<世界代码>

Answer 2

你们是否寻求替换或去掉?

   Replace(expression, find, replace [, start ] [, count ] [, compare ] )
 Replace(sText,"a","b") 

 Mid(sText,4,1)=Mid(sText,6,1)

友情链接