Question

我在C下有以下不同档案:logs3

log1.txt
log2.txt
log3.txt

how to create with VB script , relevant code that create one file called:

log.general.txt

这份VB文件需要读到名称——标识的日志中的所有档案内容。

as:  log1.txt  log2.test.txt log3.start.txt  mylog.txt  big.log.txt

But: not read the files as: test.txt  or ABBA.txt or CAR.txt

并将这些档案的内容拷贝到一份档案中——记录、总目录、txt——“也列在记录3下”

<><>>在档案空闲时,须作标记(接下档案)

例如

log1.txt:

111111
222222

log2.txt:

333333
444444


log3.txt

555555
666666

file.test.txt

777777
888888


 log.general.txt content: -> (Expected results from the VB script)

 111111
 222222
 333333
 444444
 555555
 666666

其他例子:(为了解释我的问题)

cat log1.txt >> log.general.txt  
cat log2.txt >> log.general.txt
cat log3.txt >> log.general.txt

Answer 1

@jon: 这里,VB 文本中的另一种解决办法

Option Explicit

Const ForAppending = 8
Const ForReading   = 1
Const ForWriting   = 2

Dim oFS, oFolder, oFile, oRead, oWrite, oRegEx
Dim sContents, sDir, sFile
Dim iMatch

sDir  = "C:log3"
sFile = "log.general.txt"

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFS.GetFolder(sDir)
Set oRegEx = New RegExp
With oRegEx
    .Pattern    = "log"
    .IgnoreCase = True
    .Global     = True
End With

For Each oFile In oFolder.Files
    iMatch = oRegex.Test(oFile.Name)

    If oFile.Name <> sFile AND iMatch = -1 Then
        Set oRead = oFS.OpenTextFile(oFile, ForReading)
        sContents = sContents & oRead.ReadAll & vbCrLf
        oRead.Close
    End If
Next

Set oWrite = oFS.OpenTextFile(sDir & sFile, ForAppending, True)
oWrite.WriteLine sContents
oWrite.Close

Set oRegEx = Nothing
Set oFS = Nothing

Answer 2

著作载于VB文本:

Set oWSH = CreateObject("WScript.Shell")
oWSH.Run ("%comspec% /c copy /b c:docsconclog*.txt c:docsconconefile.txt")

友情链接