Necessitava de uma pequena ajuda para um pequeno problema que me tem dado umas pequenas dores de cabeça. Então é assim.
Estou a correr um script que me pesquisa todos os ficheiros mp3 que se encontram em C:\ e grava o log num txt. Até aqui tudo bem. O que necessito é de separar os files para uma váriavel e os bytes para outra.
O problema aqui é que o log que é gerado não tem os espaços correctos entre a informação. Passo a explicar. O espaçamento da esquerda até ao numero de ficheiros vai diminuindo quando o numero sobe. O numero de bytes se for de apenas 4gb o espaçamento entre a palavra File(s) até ao numero é de 2 se o numero de bytes aumentar para 14gb o espaçamento passa para 1.
Total Files Listed:
< 11 espaços >11305<1>File(s)<2>4.459.988.139<1>bytes
< 12 espaços >1305<1>File(s)<1>14.459.988.139<1>bytes
< 13 espaços >305<1>File(s)<1>114.459.988.139<1>bytes
Script para criar o log com a quantiadade de mp3 que tenho no meu pc:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "%comspec% /c c: & cd\ & dir /s /w *.mp3 >> C:\Dados\MusicPC.txt", 1, True
O script que estou a executar para retirar a informação que necessito é o seguinte:
Dim objFSO, objShell, objFile
Dim strFile, strLine, strTotalFiles, Flag
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
Set objFile = objFSO.OpenTextFile("C:\Dados\MusicPc.txt", 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If Instr(strLine, "Total Files Listed:") Then
Flag = True
End If
If Flag = True Then
strTotalFiles = Trim(strLine)
strTotalFiles = Trim(objFile.ReadLine)
wscript.echo strTotalFiles
Flag = False
End If
Loop
objFile.Close
Output: 11305 File(s) 4.459.988.139 bytes
Como é que faço para ter apenas numa variavel o numero de files e numa outra variavel o numero de bytes. Exemplo
strVarFiles = 11305
strVarBytes = 4.459.988.139 ou 14.459.988.139 ou 114.459.988.139
Obrigado pela colaboração
Ricardo Gaspar
