[VBScript] Tekstbestanden samenvoegen

[Cai]

Situatie:
Op een server worden elke nacht automatisch tekst bestanden geplaatst met de extensie .000 met een willekeurige bestandsnaam.

In Dos lieten we de tekstbestanden samenvoegen naar één bestand met behulp van het commando:

code:

copy *.000 week.001

Alle .000 bestanden zijn nu dus één .001 bestand.

Vraag:
Hoe doen we dit in VBscript?

het vraagstuk bestaat uit 2 delen, hoe krijg ik alle bestanden met .000 geopend terwijl ik de bestandsnaam niet weet.

Hoe voeg ik dit in één bestand samen.

Wat heb ik geprobeerd:
Met mijn (beperkte) VBscript kennis iets geprobeerd te bouwen, probleem is echter als ik op internet zoek zijn de meeste voorbeelden voor VB.

[Alex)]

Kijk eens naar het FileSystemObject, daarmee kun je veel dingen doen (zoals een folder enumeraten) en daar kan je ook gewoon filters aan meegeven (*.000) bijvoorbeeld... daarna kun je met het File Object (dacht ik) bestanden openen en uitlezen, en uitvoeren naar een apart bestand.

Zoek eens op MSDN naar FileSystemObject


(Waarom wil je eigenlijk om naar VBscript ?)

[ Voor 7% gewijzigd door Alex) op 29-08-2007 10:12 ]

[Cai]

We willen van het batch bestandje af.

Heb je misschien aanbevelingen?

[Alex)]

Mja, eigenlijk vind ik "als het werkt is het mooi toch" een prima antwoord, dus waarom wil je van het batchbestand af? Geeft het te veel ellende ofzo?

[Crayne]

Alex) heeft je al in de juiste richting gezet. Schrijf eerst gewoon voor jezelf uit in pseudocode welke stappen je zou moeten nemen en zou je al een heel eind moeten kunnen komen met de documentatie op MSDN.

[ Voor 21% gewijzigd door Crayne op 29-08-2007 10:24 ]

[sopsop]

Zoals bijvoorbeeld: http://www.google.com/sea...8&startIndex=&startPage=1

[Cai]

Gelukt,

bedankt voor de inbreng.

Voor het archief de oplossing:

code:

Set fso = CreateObject("Scripting.FileSystemObject")
set mainfolder=fso.GetFolder(".")
Set filecollection = mainfolder.Files
set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set objfileOut=fso.OpenTextFile ("merged.001",2,true)
init=false

For Each fileList In filecollection

If fso.GetExtensionName(fileList.Path)="000" Then
b= fso.GetFilename(filelist.path)  
 Set ts = fs.OpenTextFile(b, 1)
   s = ts.ReadALL

objfileOut.Write s
objfileOut.Write VbCrLf
ts.Close
End If
Next

[ZaZ]

En wat is nu het voordeel t.o.v het batch bestandje? Of hadden jullie gewoon op het werk even niets meer te doen

[Cai]

Ik werk op detacheringsbasis bij de opdrachtgever, dus het niet uit oogpunt van verveling, maar meer om na de samenvoeging andere applicaties aan te roepen en gebruik te maken van functies die een batch script niet ondersteund.