vbs suddividi file - vbs

'

' vbs - suddivide un file Metel di grandi dimensioni

' in file da 60.000 righe

'

option explicit

'

dim filelistinometel

filelistinometel = "C:\LISTINOLSP.TXT"

'

Const ForReading = 1 'Apre un file in lettura.

Dim fso, fileinlettura, rigaletta, contarighe, testata, fileinscrittura, contafile

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileinlettura = fso.OpenTextFile(filelistinometel, ForReading, False)

'

contarighe = 0

contafile = 0

Do While fileinlettura.AtEndOfStream <> True

rigaletta = fileinlettura.ReadLine

contarighe = contarighe + 1

if contarighe = 1 then

testata = rigaletta

contafile = contafile + 1

call creafiledascrivere(testata)

else

fileinscrittura.WriteLine rigaletta

end if

if contarighe > 60000 then

fileinscrittura.Close

contafile = contafile + 1

contarighe = 2

call creafiledascrivere(testata)

end if

Loop

fileinlettura.Close

fileinscrittura.Close

'

sub creafiledascrivere(contenuto)

dim nomefilescrittura

nomefilescrittura = "C:\list-" & contafile & ".txt"

Set fileinscrittura = fso.CreateTextFile(nomefilescrittura)

fileinscrittura.WriteLine contenuto

end sub

'

' ===