Comandos DOS e arquivos .bat (Parte 5) – Cadastro de Pessoas

OBS.: 1) É altamente recomendado, para melhor aprendizagem, que ao invés de copiar e colar, digite todo conteúdo dos exemplos, dessa forma terá maior fixação dos comandos e sintaxe dos mesmos.

2) Todos os testes dos exemplos foram realizados utilizando como sistema operacional o Windows 8, o que não significa que só funcionará no mesmo.

Atualizado em 08/01/2017  - Inserido a funcionalidade de editar cadastro.

Depois do Blog Cabeça Nerd desenvolver o programa NIVER, tiveram leitores pedindo-nos um programa para cadastro de pessoas. Lembro que para tal procedimento seria necessário uma linguagem de programação mais robusta. Entretanto, aceitei o desafio e fiz usando apenas comandos do MS-DOS através de arquivo em lote. Agradeço a participação e incentivos de todos, abaixo, segue o programa.

Nesse programa você poderá cadastrar:

• Nome;
• Endereço (rua, numero, complemento e CEP);
• Telefone/fax;
• Celular;
• CPF e RG;
• Sexo;
• Estado civil;
• e-mail e ainda colocar uma observação.

Poderá também consultar os dados cadastrados e excluí-los posteriormente. Esse é um típico programa onde se trabalha muito com strings (conjunto de caractere) e isso é bastante complicado em arquivos em lote. Sendo assim, os mais observadores poderão encontrar algumas limitações do programa, algo que peço que desconsiderem dadas as restrições dos comandos do MS-DOS. Obviamente, estarei disposto a receber opiniões, assim, ajudaremos todos.

@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-Editar echo                 5-Desenvolvedor echo                 6-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 nao 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=Editar if %op%==5 set operacao=Desenvolvedor if %op%==6 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 Editar if %op%==5 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. %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 :Editar set cod=type codigo.cadp echo Ultimo Codigo Cadastrado %cod% echo. echo. set /P "codigoEdit=Codigo para editar: " find /I /V "%codigoEdit%__" cadastros.cadp > cadastros2.cadp echo. echo               ------ INSTRUCAO ------ echo. echo. echo   Para os campos que nao deseja editar, deixar em branco. echo. echo. echo. pause cls echo Dados atuais: find /I "%codigoEdit%__" cadastros.cadp echo. echo. echo Novos dados: echo. echo. rem ###Obtendo dadas para a gravacao###. echo. echo. rem Zera a variavel### set nome= set /p "nome=Nome: " echo. set endereco= set /p "endereco=Endereco: " set numero= set /p "numero=Numero: " set complemento= set /p "complemento=Complemento: " set cep= set /p "cep=CEP: " echo. set telefoneFax= set /p "telefoneFax=Telefone/Fax: " set celular= set /p "celular=Celular: " echo. set cpf= set /p "cpf=CPF: " set rg= set /p "rg=RG: " set sexo= set /p "sexo=Sexo: " set estadoCivil= set /p "estadoCivil=Estado Civil: " echo. set email= set /p "email=E-mail: " echo. set observacao= set /p "observacao=Observacao: " rem ###Fim da obtencao dos dados.### rem ###Gravando os dados### if "%nome%"=="" ( find /I "%codigoEdit%__NOME:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__NOME: %nome% >> cadastros2.cadp ) if "%endereco%"=="" ( find /I "%codigoEdit%__ENDERECO:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__ENDERECO: %endereco% >> cadastros2.cadp )  if "%numero%"=="" (  find /I "%codigoEdit%__NUMERO:" cadastros.cadp >> cadastros2.cadp  ) else (  echo %codigoEdit%__NUMERO: %numero% >> cadastros2.cadp )  if "%complemento%"=="" (  find /I "%codigoEdit%__COMPLEMENTO:" cadastros.cadp >> cadastros2.cadp  ) else ( echo %codigoEdit%__COMPLEMENTO: %complemento% >> cadastros2.cadp ) if "%cep%"=="" ( find /I "%codigoEdit%__CEP:" cadastros.cadp >> cadastros2.cadp ) else (  echo %codigoEdit%__CEP: %cep% >> cadastros2.cadp ) if "%telefoneFax%"=="" ( find /I "%codigoEdit%__TELEFONE/FAX:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__TELEFONE/FAX: %telefoneFax% >> cadastros2.cadp ) if "%celular%"=="" ( find /I "%codigoEdit%__CELULAR:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__CELULAR: %celular% >> cadastros2.cadp ) if "%cpf%"=="" ( find /I "%codigoEdit%__CPF:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__CPF: %cpf% >> cadastros2.cadp ) if "%rg%"=="" ( find /I "%codigoEdit%__RG:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__RG: %rg% >> cadastros2.cadp )   if "%sexo%"=="" ( find /I "%codigoEdit%__SEXO:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__SEXO: %sexo% >> cadastros2.cadp )   if "%estadoCivil%"=="" ( find /I "%codigoEdit%__ESTADO CIVIL:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__ESTADO CIVIL: %estadoCivil% >> cadastros2.cadp ) if "%email%"=="" (  find /I "%codigoEdit%__E-MAIL:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__E-MAIL: %email% >> cadastros2.cadp )   if "%observacao%"=="" ( find /I "%codigoEdit%__OBSERVACAO:" cadastros.cadp >> cadastros2.cadp ) else ( echo %codigoEdit%__OBSERVACAO: %observacao% >> cadastros2.cadp ) rem ###Fim da gravacao dos dados###   del cadastros.cadp rename cadastros2.cadp cadastros.cadp find /I /V "cadastros.cadp" cadastros.cadp > cadastros2.cadp rem retira linhas em branco type cadastros2.cadp | find " " > cadastros3.cadp rem retira outras linhas em branco type cadastros3.cadp | find /V "  " > cadastros4.cadp del cadastros.cadp del cadastros2.cadp del cadastros3.cadp rename cadastros4.cadp cadastros.cadp echo. echo. pause set operacao=Editar goto menuEscolha   :Desenvolvedor echo. echo. echo ########################################################### echo #                                                         # echo # Cadastro de Pessoas eh um programa livre para cadastrar # echo # pessoas e seus respectivos dados, produzido por Leomar  # echo # Ilario como parte dos estudos do MS-DOS com arquivos em # echo # lote desenvolvido para o Blog Cabeca Nerd.              # echo #                                                         # echo #                                                         # echo # Contato desenvolvedor: blogcabecanerd@gmail.com         # echo #                                                         # echo ########################################################### echo. echo. echo. echo. echo. pause cls goto menuEscolha

O programa ficará da seguinte forma:

Veja também:

Comandos DOS e arquivos.bat (Parte 1)

Comandos DOS e arquivos.bat (Parte 2)

Comandos DOS e arquivos .bat (Parte 3) - Calculadora
Comandos DOS e arquivos .bat (Parte 4) - Cadastro de Aniversariantes