willianrc

Junho 15, 2019

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

Março 16, 2017

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>

Março 15, 2017

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.

Dezembro 9, 2016

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

Entrar

willianrc

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por willianrc

Listar Aniversariantes do Mes no arquivo .txt

COLOCAR .VBS DENTRO DO .BAT

COLOCAR .VBS DENTRO DO .BAT

Adicionar no menu EDITAR pesquisa ou EDITAR CADASTRO em arquivos .bat

Navegação

Atividades