rgaspar

Viva, 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 :unsure:

Aqui segue a solução para quem estiver interessado. No Visual Studio 2010 eis o código: Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim sArr3 As String() = System.Environment.GetCommandLineArgs() Dim i2 As Integer = 0 While i2 < sArr3.Length Dim s1 As String = sArr3(i2) Dim chArr1 As Char() = New Char() {"="c} Dim sArr1 As String() = s1.Split(chArr1) If sArr1.Length = 2 Then If sArr1(0).ToLower() = "/message" Then Dim s2 As String = sArr1(1).Replace("<BR>", System.Environment.NewLine) TextBox1.Text = s2 End If Else TextBox1.Text = "Falta Dados" End If i2 = i2 + 1 End While End Sub Num ficheiro em vbscript > Run.vbs Dim objShell, INST_USER Set objShell = createobject("Wscript.Shell") Inst_user = "teste" tryAgain = """WindowsApplication2.exe"" /message=""Este texto vai aparecer na textbox " & INST_USER & "<BR><BR>segunda linha de texto""" tryAgain = objShell.Run(tryAgain, 1, True) :rolleyes:

uhmmmmm!!!! Viva, estou a ver que a minha questão é um bocado complexa!!!!!! Até ao momento não houve ninguém que pudesse ajudar.

Viva, Eu estou a dar os primeiros passos na criação de pequenos programas na linguagem Visual Basic. Não sei se me podem ajudar, mas já pesquisei pela internet e não encontro um código simples que me explique como passar um simples texto atraves de um script em vb script: Dim objShell, INST_USER Set objShell = createobject("Wscript.Shell") Inst_user = "teste" tryAgain = """Mensagem.exe"" /message=""After reboot press CRTL+ALT+DEL Switch User Other User and Login as " & INST_USER & "<BR><BR>Teste Customization""" tryAgain = objShell.Run(tryAgain, 1, True) Ao executar este script vai transportar o texto (que está entre aspas) para o executavel Message.exe. A minha duvida é como fazer este executavel e inserir o texto que esta na variavel message no form1. Alguém pode enviar-me este exemplo já construido para que possa estudar o código. Obrigado