[Resolvido]Captura dados em tela tipo AIX (IBM)

Olá Colegas,

Procurei por captura de dados, mas não encontrei nada parecido. Então posto minha dúvida e pedido de ajuda.
Onde trabalho temos um sistema baseado no sistema AIX da IBM, por razões que prefiro não comentar, tenho que duplicar algumas informações do cadastro de clientes que estão no AIX para o ACCESS.
Atenção "não posso solicitar cópia ou acesso dos dados no AIX/IBM". Então faço consulta no AIX/IBM e redigito no ACCESS.... (é arffff).
Pensei que poderia criar uma rotina que capturasse e interpretasse os campos (código, nome, endereço, fones e etc...) e gravasse em uma tabela no access.
Particularmente acho difícil, até porque conheço muito pouco de access e VBA, então lanço o desafio. Quem pode me socorrer?

Em anexo cópia de uma tela AIX/IBM.

Não será possível capturar as informações. Mas Interpretá-las, talvez.

Como você disse que redigita, certamente é porque não é possível selecionar o texto e dar control+c. Mas caso isso seja possível, o que pode ser feito é você abrir a tela, selecionar todo o texto presente, e deixar o resto por conta do access.

Se existir a possibilidade de selecionar o texto e copiá-lo para a área de transferência com um control+c então faça isso e cole o resultado em um arquivo .txt e anexe-o aqui para que possamos ajudá-lo.

Olá Ivan,

Exatamente, é possível selecionar tudo e copiar.
Estou anexando uma cópia salva no wordpad.

Olá Ivan,

Inspirado na sua pergunta criei o código abaixo, onde marco e recorto os dados da tela IBM/IAX, copio para um arquivo texto e depois executo a rotina abaixo:

Código:

Private Sub Bt_Importar_Click()
Arq = FreeFile
   Open stFile For Input As #1
   If Len(stFile) = 0 Then
       MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
       Ed_Arquivo.SetFocus
       Exit Sub
   End If
   If Len(Dir(stFile)) = 0 Then
       MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
       Exit Sub
   End If
   While Not EOF(1)
       Line Input #1, Linha
       Contador = Contador + 1
       Select Case (Contador)
       Case 3
           Ed_Registro = CStr(Trim(Mid$(Linha, 13, 8)))
           Ed_Cliente = CStr(Trim(Mid$(Linha, 22, 52)))
       Case 4
           Ed_Sexo = CStr(Trim(Mid$(Linha, 35, 1)))
       Case 7
           Ed_Fone_1 = CStr(Trim(Mid$(Linha, 15, 13)))
       Case 9
           Ed_Fone_2 = CStr(Trim(Mid$(Linha, 15, 13)))
       Case 10
           Ed_Fone_3 = CStr(Trim(Mid$(Linha, 15, 13)))
       Case 11
           Ed_Fone_4 = CStr(Trim(Mid$(Linha, 15, 13)))
       Case 12
           Ed_Fone_5 = CStr(Trim(Mid$(Linha, 15, 13)))
       Case 15
           Ed_Endereco = CStr(Trim(Mid$(Linha, 2, 66)))
           Ed_Numero = CStr(Trim(Mid$(Linha, 73, 6)))
       Case 16
           Ed_Complemento = CStr(Trim(Mid$(Linha, 9, 25)))
           Ed_Bairro = CStr(Trim(Mid$(Linha, 42, 37)))
       Case 17
           Ed_Cidade = CStr(Trim(Mid$(Linha, 10, 50)))
           Ed_Estado = CStr(Trim(Mid$(Linha, 65, 2)))
       Case 18
           Ed_CEP = CStr(Trim(Mid$(Linha, 7, 9)))
       End Select
   Wend
Saida:
   Close
       MsgBox "Arquivo importado com sucesso", vbInformation, "Importação"
   Exit Sub
End Sub


Não ficou 100 %, mas economizou a digitação e a possibilidade de erros na transcrição. Estou criando alguns parâmetros de segurança para testar os primeiros e últimos caracteres do conjunto para garantir a cópia de dados corretos.
Vou tentar automatizar ao máximo, se tiver alguma ideia... por favor....

Olá a todos,

Luiz Santos, conseguiu cegar lá, é mesmo isso.
Obrigado pelo retorno o fórum agradece.

Se tiver uma forma de exportar tudo para TXT ou necessitar de importar "Cabeçalho" e "detalhe", recomendo ver este tópico:
https://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo

Abraço a todos

Veja o caminho que eu planejava... apenas finalize-o

Olá a todos,

IvanJr, parabéns, gostei
Como diz o nosso Grande JPaulo, existe várias formas de fazer Nestum

Ficamos aguardar retorno do colega que abriu o tópico.

Abraço a todos

Mestre Alvaro... então... minha cabeça falta só explodir quando percebo tantas possibilidades. (risos)

aguardemos um retorno aqui

Ivan, inacreditável, seu código faz a captura com 15 linhas de comandos.
Com sua permissão, e devidos créditos, vou adaptar seu código e utilizá-lo, o sistema ficará mais enxuto.
Valeu pela ajuda, muito obrigado.


>>>> Só somos fortes, juntos somos invencíveis. <<<<<

O fórum agradece o retorno. Sucesso.