willianrc

Hello folks,Estou com um probleminha aqui, gostaria de filtrar os aniversariantes do mes da listbox, e gostaria tambem de ocultar os simbolos "|" da listbox e manter somente na base de dados .txt. Gostaria também de fazer o botao Editar funcionar.Segue o codigo até o momento e o link para download. Desde já agradeço. Option Explicit Private Sub UserForm_Initialize() With ComboBox1 .AddItem "01 - Janeiro" .AddItem "02 - Fevereiro" .AddItem "03 - Março" .AddItem "04 - Abril" .AddItem "05 - Maio" .AddItem "06 - Junho" .AddItem "07 - Julho" .AddItem "08 - Agosto" .AddItem "09 - Setembro" .AddItem "10 - Outubro" .AddItem "11 - Novembro" .AddItem "12 - Dezembro" End With Call Cria_Pasta Call PreencheListbox End Sub Private Sub CommandButton1_Click() If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then MsgBox "Preencha todos os campos", vbInformation, "Atenção" Else SalvaInfo VBA.Trim(TextBox1.Text) & "|" & VBA.Trim(TextBox2.Text) & "|" & VBA.Trim(TextBox3.Text) Call Limpar End If Call PreencheListbox End Sub Sub Limpar() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End Sub Sub PreencheListbox() 'preencher listbox users Dim sTemp As String Dim vrTemp As Variant ListBox1.Clear On Error Resume Next Dim LineofText As Variant Dim archivo As Variant ' Open the file for Input. Open ThisWorkbook.Path & "\REGISTRO\users.txt" For Input As #1 archivo = ThisWorkbook.Path & "\REGISTRO\users.txt" If Dir(archivo) = "" Then MsgBox "ARQUIVO não ENCONTRADO. FOI CRIADO UMA PASTA 'REGISTRO' NO MESMO LOCAL DESTE ARQUIVO EXCEL" Exit Sub End If Open archivo For Input As #1 ' Read each line of the text file into a single string ' variable. Do While Not EOF(1) 'Line Input #1, LineofText Line Input #1, LineofText ListBox1.AddItem LineofText vrTemp = Split(LineofText, "|") Loop ' Close the file. Close #1 End Sub Private Sub ListBox1_Change() TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 0) 'TextBox2.Text = ListBox1.List(ListBox1.ListIndex, 1) 'TextBox3.Text = ListBox1.List(ListBox1.ListIndex, 2) End Sub Sub SalvaInfo(LogMessage As String) Dim LogFileName As String Dim ConferePasta As String Dim FileNum As Integer ConferePasta = ThisWorkbook.Path & "\REGISTRO" 'Definir caminho e nome do arquivo de log onde você deseja salvar 'O arquivo de log LogFileName = ConferePasta & "\users.txt" 'nome do arquivo que sera gravado" FileNum = FreeFile 'Próximo número de arquivo Open LogFileName For Append As #FileNum 'Cria o arquivo se ele não existir Print #FileNum, LogMessage 'Escrever informações no final do arquivo de texto Close #FileNum 'Fechar o arquivo End Sub Sub Cria_Pasta() Dim ConferePasta As String 'Atribui caminho do diretório. ConferePasta = ThisWorkbook.Path & "\REGISTRO" 'Testa se o diretório existe. Caso não exista, cria-se o mesmo. If Dir(ConferePasta, vbDirectory) = "" Then MkDir ConferePasta 'cancela End Sub ´link para download : https://drive.google.com/file/d/10t8tDwUi6l9EIpdCRY5a5lMWt0qko9JY/view?usp=sharing Obirgado

Eu tentei assim e nao deu certo: @echo off :Menu cls echo.ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» echo.º º echo.º ESCOLHA UMA DAS OP€åES ABAIXO E TECLE ENTER º echo.º º echo.ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ echo.º º echo.º º echo.º [1] ADICIONAR º echo.º º echo.º [2] BUSCAR º echo.º º echo.º º echo.º º echo.º º echo.º º echo.º º echo.º º echo.º º echo.º º echo.ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ echo. PC NAME ( %USERNAME% ) DATA: %date% HORA: %time:~0,5% echo. ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ set /p opt1= Digite a op‡ao: if "%opt1%"=="" goto Error if %opt1%==1 goto:Adicionar else goto:Error if %opt1%==2 goto:BusCodigo else goto:Error :Error cls echo. echo.ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» echo.º º echo.º Houve um erro. º echo.º Foi digitado valor incorreto º echo.º Digite o numero correto. º echo.ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ rem pause>nul echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo VOLTANDO A TELA ANTERIOR... goto:Menu :Adicionar cls color 0b title SYSTEM - Adicionar Registro echo.ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» echo.º º º echo.º ADICIONAR REGISTRO º [V] VOLTAR AO MENU º echo.º º º echo.ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ rem ###Nesta linha Caso nao exista o arquivo para gravacao e leitura sera criado o arquivo com codigo zero "0" .### if NOT exist Cont echo 0 > Cont if NOT exist Cont2 echo 0 > Cont2 set /p cod=< Cont set /a cod=%cod%+1 set /p codg=< Cont2 set /a codg=%codg%+1 echo %date% %time:~0,5% echo Codigo: %cod% echo.ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ rem ###Obtendo dadas para a gravacao###. set codigo=%cod% set codig=%codg% echo. :Cad1 set /p Nome= NOME : FOR /F "DELIMS=0123456789" %%§ IN ("%Nome%") DO ( GOTO :Cad2 ) IF "%Nome%"=="" goto Campo1Branco if %Nome%==v CLS&goto Redireciona if %Nome%==V CLS&goto Redireciona GOTO :ERRO :Campo1Branco echo CAMPO EM BRANCO, DIGITE UM VALOR! goto Cad1 :ERRO echo VOCE DIGITOU (%Nome%) DIGITE SOMENTE LETRAS echo. GOTO :Cad1 :Cad2 echo. set /p telf= TELEFONE : if %telf%==v CLS&goto Redireciona if %telf%==V CLS&goto Redireciona FOR /F "DELIMS=abcdefghijklmnopqrstuvxwyzABCDEFGHIJKLMNOPQRSTUVXWYZ" %%§ IN ("%telf%") DO ( GOTO :Gravar ) IF "%telf%"=="" goto Campo2Branco GOTO :ERRO2 :Campo2Branco echo CAMPO EM BRANCO, DIGITE UM VALOR! goto Cad2 :ERRO2 rem CLS echo VOCE DIGITOU (%telf%) DIGITE SOMENTE NUMEROS echo. GOTO :Cad2 rem ###Fim da obtencao dos dadas.### echo ------------------ rem ###Gravando os dados### :Gravar echo. %codigo% > Cont echo. %codig% > Cont2 echo %codigo%__Nome:............[ %Nome% ] >>Registros echo %codigo%__Telefone:........[ %telf% ] >>Registros echo %codigo%__Data:............[ %date% ] >>Registros echo %codigo%__Hora:............[ %time:~0,5% ] >>Registros echo. >> Registros echo PC NAME( %USERNAME% ) Login:(%login%) Adicionou o Registro nº (%codigo%) data e hora:(%date% %time:~0,5%) >> Log_Adicionar_Registros.txt rem ###Fim da gravacao dos dados### echo REGISTRO ADICIONADO COM EXITO... ping localhost -n 2.8 >nul echo VOLTANDO AO MENU PRINCIPAL... ping localhost -n 2.8 >nul cls Goto Menu :BusCodigo cls echo.ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» echo.º º º echo.º BUSCAR CODIGO º [V] VOLTAR º echo.º º º echo.ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ set /P "codigoPesq=- DIGITE O CODIGO PARA PESQUISAR: " if %codigoPesq%==v CLS&goto Menu if %codigoPesq%==V CLS&goto Menu cls echo.ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» echo.º º º echo.º RESULTADOS BUSCAR CODIGO º [V] VOLTAR º echo.º º º echo.ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ echo. if exist Registros find /I "%codigoPesq%__" Registros echo. echo. set /p opcao3= DESEJA EXPORTAR ? (S-SIM / N-NAO): if %opcao3%== s goto:Export else goto :Error if %opcao3%== S goto:Export else goto :Error if %opcao3%== n goto:Buscar else goto :Error if %opcao3%== N goto:Buscar else goto :Error echo. :Export For /f "delims=" %%i in ('cscript //nologo "%~f0?.wsf" //job:VBS') do Set "folder=%%i\%codigoPesq%__RELATORIO.txt" For /f "eol=- delims=" %%i in ('find /I "%codigoPesq%__" Registros') do >>"%folder%" Echo.%%i START %folder% ECHO. ECHO. ECHO. ECHO. ECHO VERIFIQUE O LOCAL [%folder%] ECHO. echo. echo ENTER PARA VOLTAR AO MENU PRINCIPAL pause>nul rem exit /b %errorlevel% Goto :Menu <package> <job id="VBS"> <script language="VBScript"> Dim objFolder, objShell Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "Selecione uma pasta.", &H4000, 0) If Not (objFolder Is Nothing) Then wscript.echo objFolder.Self.path Else wscript.echo 0 End If </script> </job> </package>

Olá , sou novo por aqui , estou com um projetinho e estou com uma dificuldade de colocar um script .vbs dentro do .bat Alguem me ajuda ???? Parte do meu código: cadastro.bat : @echo off echo. set /p opcao3= DESEJA EXPORTAR ? (S-SIM / N-NAO): if %opcao3%== s goto:Export else goto :Error if %opcao3%== S goto:Export else goto :Error if %opcao3%== n goto:Buscar else goto :Error if %opcao3%== N goto:Buscar else goto :Error echo. :Export For /f "delims=" %%i in ('Cscript //nologo "script_.vbs" "Selecione uma pasta"') do Set "folder=%%i\%codigoPesq%__RELATORIO.txt" For /f "eol=- delims=" %%i in ('find /I "%codigoPesq%__" Registros') do >>"%folder%" Echo.%%i START %folder% ECHO. ECHO. ECHO. ECHO. ECHO VERIFIQUE O LOCAL [%folder%] ECHO. echo. echo ENTER PARA VOLTAR AO MENU PRINCIPAL script_.vbs: Dim objFolder, objShell Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "Selecione uma pasta.", &H4000, 0) If Not (objFolder Is Nothing) Then wscript.echo objFolder.Self.path Else wscript.echo 0 End If ALGUMA AJUDA ???????????????????? OBRIGADO.

Olá amigos , estou com uma dúvida de como colocar um campo para EDITAR meu itens cadastrados, alguém me ajuda ? Obrigado. Segue meu código .bat @echo Off mode con cols=60 lines=30 :menuPrin rem ###Mostra Menu inicial.### Title Cadastro de Pessoas - Menu Principal cls echo Cadastro de Pessoas echo. echo O que deseja fazer? echo. echo. echo 1-Cadastrar echo 2-Apagar echo 3-Pesquisa echo 4-Desenvolvedor echo 5-Sair echo. echo. set /p "op=Escolha uma opcao: " rem ###Validacao para aceitar apenas os valores pre determinados### if %op% LSS 1 ( echo. echo ESCOLHA INCORRETA! echo. pause goto menuPrin ) if %op% GTR 5 ( echo. echo ESCOLHA INCORRETA! echo. pause goto menuPrin ) rem ###Fim da validacao para aceitar apenas os valores pre determinados### if NOT exist codigo.cadp echo 0 > codigo.cadp rem ###Nesta linha 39 Caso não exista o arquivo para rem gravacao e leitura do ultimo codigo cadastrado rem sera criado o arquivo com codigo zero "0" .### if %op%==1 set operacao=Cadastrar if %op%==2 set operacao=Apagar if %op%==3 set operacao=Pesquisar if %op%==4 set operacao=Desenvolvedor if %op%==5 exit rem ###Cabecalho que sera usado para Cadastrar, Apagar, Pesquisar e Desenvolvedor###. :tipoOperacao Title Cadastro de Pessoas - %operacao% cls echo Cadastro de Pessoas - Operacao escolhido: %operacao% echo. echo. if %op%==1 goto Cadastrar if %op%==2 goto Apagar if %op%==3 goto Pesquisa if %op%==4 goto Desenvolvedor rem ###Fim do cabecalho### :menuEscolha cls echo Cadastro de Pessoas echo. echo. echo C-Continuar a %operacao% echo M-Menu Principal echo S-Sair echo. echo. set /p "escolha=Escolha uma opcao: " if /I %escolha%==C goto tipoOperacao if /I %escolha%==M goto menuPrin if /I %escolha%==S exit :Cadastrar set operacao=Cadastrar set cod=type codigo.cadp echo Ultimo Codigo Cadastrado %cod% rem ###Obtendo dadas para a gravacao###. echo. echo. set /p "codigo=Codigo: " echo. set /p "nome=Nome: " echo. set /p "endereco=Endereco: " set /p "numero=Numero: " set /p "complemento=Complemento: " set /p "cep=CEP: " echo. set /p "telefoneFax=Telefone/Fax: " set /p "celular=Celular: " echo. set /p "cpf=CPF: " set /p "rg=RG: " set /p "sexo=Sexo: " set /p "estadoCivil=Estado Civil: " echo. set /p "email=E-mail: " echo. set /p "Observacao=Observacao: " rem ###Fim da obtencao dos dadas.### rem ###Gravando os dados### echo %codigo%__NOME: %nome% >> cadastros.cadp echo %codigo%__ENDERECO: %endereco% >> cadastros.cadp echo %codigo%__NUMERO: %numero% >> cadastros.cadp echo %codigo%__COMPLEMENTO: %complemento% >> cadastros.cadp echo %codigo%__CEP: %cep% >> cadastros.cadp echo %codigo%__TELEFONE/FAX: %telefoneFax% >> cadastros.cadp echo %codigo%__CELULAR: %celular% >> cadastros.cadp echo %codigo%__CPF: %cpf% >> cadastros.cadp echo %codigo%__RG: %rg% >> cadastros.cadp echo %codigo%__SEXO: %sexo% >> cadastros.cadp echo %codigo%__ESTADO CIVIL: %estadoCivil% >> cadastros.cadp echo %codigo%__E-MAIL: %email% >> cadastros.cadp echo %codigo%__OBSERVACAO: %observacao% >> cadastros.cadp echo. >> cadastros.cadp echo. %codigo% > codigo.cadp rem ###Fim da gravacao dos dados### goto menuEscolha :Apagar set cod=type codigo.cadp echo Ultimo Codigo Cadastrado %cod% echo. echo. set operacao=Apagar set /p "apagar=Codigo que deseja apagar: " find /I /V "%apagar%__" cadastros.cadp > cadastros2.cadp echo. echo. pause del cadastros.cadp rename cadastros2.cadp cadastros.cadp find /I /V "cadastros.cadp" cadastros.cadp > cadastros2.cadp del cadastros.cadp rename cadastros2.cadp cadastros.cadp goto menuEscolha :Pesquisa set cod=type codigo.cadp echo Ultimo Codigo Cadastrado %cod% echo. echo. set /P "codigoPesq=Codigo para pesquisar: " if exist cadastros.cadp find /I "%codigoPesq%__" cadastros.cadp echo. pause set operacao=Pesquisar goto menuEscolha :Desenvolvedor echo. echo. echo. echo. echo. echo. echo. pause cls goto menuEscolha