esdrasfoundit
-
Total de itens
2 -
Registro em
-
Última visita
Posts postados por esdrasfoundit
-
-
Boa tarde Pessoal,
Estou começando a programar com VBA e estou com uma dificuldade escrevi o código abaixo para buscar dados em um arquivo txt.
O código está buscando porém traz somente o primeiro encontrado, gostaria que trouxesse todos.
Vocês poderiam me ajudar?
Agradeço.
Sub Amazonas1()
Dim arquivo As String, texto As String, linhaTexto As String
Dim Recebido As String, Servico As String
arquivo = "C:\Esdras\Teste\Amazonas.txt"
Open arquivo For Input As #1
Do Until EOF(1)
Line Input #1, linhaTexto
texto = texto & linhaTexto
Loop
Close #1
Servico = InStr(texto, "Serviço: ")
Recebido = InStr(texto, "Recebido Por: ")
Range("A1").Value = Mid(texto, Servico + 9, 200)
'Range("A2").Value = Mid(texto, Recebido + 9, 125)
End Sub
Arquivo TXT com VBA
em Visual Basic
Postado
Endereço/Roteiro: Motorista: Status:
Itinerário 2: Endereco: Av. Albert Einstein, 628 - Jardim
Leonor, São Paulo - SP, 05653-090, Brasil - Hospital Albert
Einstein Maternidade, Bloco D. Quarto 904 - Serviço:
ENTREGAR PARA Maria Carolina Furtado
Bruno Siqueira Santos Concluída
Data: Recebido Por: Latitude: Longitude:
16/05/2019
10:49:26
beatriz ercepção -23.599419 -46.714747
Assinatura: Foto: Mapa:
Endereço/Roteiro: Motorista: Status:
Itinerário 3: Endereco: Av. Pavão, 561 - Moema, São Paulo -
SP, 04516-012, Brasil - Apto 101 - Serviço: ENTREGAR
PARA Antonia Serpa
Bruno Siqueira Santos Concluída
Data: Recebido Por: Latitude: Longitude:
16/05/2019
11:24:05
jose rogerio -23.605151 -46.670014
Assinatura: Foto: Mapa:
Endereço/Roteiro: Motorista: Status:
Itinerário 4: Endereco: R. Afonso Braz, 747 - Vila Nova
Conceição, São Paulo - SP, 04511-011, Brasil - 41b -
Serviço: ENTREGAR PARA Natalia Aarão
Bruno Siqueira Santos Concluída
Data: Recebido Por: Latitude: Longitude:
Av. Santo Amaro, 2116 - Vila Nova Conceição, São Paulo - SP, Brasil - Vila Nova Conceição - 04506003 - São Paulo/SP
1126134249 - amazonas@amazonasexpress.com.br
Loex - Logistica Expressa Serviços Integrados Eire
Protocolo
Ordem Serviço
Speranzini Serviços e Comércio Ltda
R. Princesa Isabel, 1364 - Brooklin Paulista, São Paulo - SP, Brasil
Solicitante:
Endereço:
Número: 893
Solicitação:
Gislene Godoi 11991281886
Agendamento: Não agendado
Centro Custo: LOGÍSTICA Departamento:
Telefone:
16/05/2019
11:37:11
Jeferson
ccarvalho
porteiro
-23.595157 -46.671100
Assinatura: Foto: Mapa:
Endereço/Roteiro: Motorista: Status:
Itinerário 5: Endereco: R. Campevas, 74 - Perdizes, São
Paulo - SP, 05016-010, Brasil - Apto 43 - Serviço:
ENTREGAR PARA Mariana Marcondes e Eduardo Gripa
Bruno Siqueira Santos Concluída
Data: Recebido Por: Latitude: Longitude:
16/05/2019
12:00:27
everaldo porteiro -23.535594 -46.674619
Assinatura: Foto: Mapa:
Endereço/Roteiro: Motorista: Status:
Itinerário 6: Endereco: Alameda Barão de Limeira, 1022 -
Campos Elíseos, São Paulo - SP, 01202-002, Brasil -
Apartamento 24- Giovanna Spada de Lima - Serviço:
ENTREGAR PARA VIVIAN RODRIGUES AUN MACHADO
Bruno Siqueira Santos Concluída
Data: Recebido Por: Latitude: Longitude:
16/05/2019
12:19:01
manoel porteiro -23.532813 -46.649003
Assinatura: Foto: Mapa:
Av. Santo Amaro, 2116 - Vila Nova Conceição, São Paulo - SP, Brasil - Vila Nova Conceição - 04506003 - São Paulo/SP
1126134249 - amazonas@amazonasexpress.com.br
Loex - Logistica Expressa Serviços Integrados Eire
Protocolo
Ordem Serviço
Speranzini Serviços e Comércio Ltda
R. Princesa Isabel, 1364 - Brooklin Paulista, São Paulo - SP, Brasil
Solicitante:
Endereço:
Número: 893
Solicitação:
Gislene Godoi 11991281886
Agendamento: Não agendado
Centro Custo: LOGÍSTICA Departamento: