Gerador de dados pessoais fictícios

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Gerador de dados pessoais fictícios

Mensagem por alxsts »

Olá!

Precisei de alguns dados de pessoas para fazer testes e descobri o site Fake Name Generator

É possível escolher entre nomes de pessoas de alguns países, sexo, idade e ainda selecionar os campos desejados entre os campos disponíveis, alem de determinar a ordem de aparição dos campos no arquivo gerado, que pode ser em alguns diferentes formatos, e é enviado por e-mail.

Muito útil.
[]´s
Alexandre Santos (AlxSts)
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Gerador de dados pessoais fictícios

Mensagem por rochinha »

Amiguinhos,

Vou complementar a idéia com um trecho usado por mim em um teste de envio de dados.

Código: Selecionar todos

   Request DBFCDX
   RddRegister('DBFCDX',1)
   RddSetDefault('DBFCDX')
   Request OrdKeyNo
   Request OrdKeyCount
   //
   if file( "clientes.dbf" )
      dbCloseAll()
      erase( "clientes.dbf" )
      ESTRU_DBF := { { "IDCODIGO"  , "N",  5, 0 } , ;
                              { "NOME"     , "C", 30, 0 } }
     dbcreate( "clientes", ESTRU_DBF )
   endif
   USE clientes SHARED
   for i = 1 to 100
                      aPrimeiroNome := {"JOSE","JOAO","ANTONIO","MARIA","CATIA","MARIANA"}
                      aSegundoNome  := {"CARLOS","MARCOS","PIRES","FLAVIO","HENRIQUE","VAGNER"}
                      aSobreNome    := {"DA SILVA","DA COSTA","DOS ANJOS","DOS SANTOS","DE MOURA","DE PAULA"}
                      //
                      cSSNome := aPrimeiroNome[Random(6)] + " " + aSegundoNome[Random(6)] + " " + aSobreNome[Random(6)]
                      //
                      dbAppend()
                      clientes->IDCODIGO := i
                      clientes->NOME       := cSSNome
                      dbCommit()
   next
   dbCloseAll()
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Responder