[Resolvido]Dcount recordset

Ola pessoal, boa noite.

Estou trabalhando em uma macro que faz a leitura de vários arquivos .txt em uma determinada pasta e os carrega numa tabela até ai tudo bem a coisa parecia funcionar porem, comecei a ter problemas durante a carga, pois algumas linhas dos arquivos que estão sendo carregados possuem mais delimitadores "|" do que deveriam, causando o deslocamento da coluna gerando erro na carga. Para solucionar este problema, pensei em tratar cada linha do arquivo .txt dentro do recordset criando uma contagem deste carácter, como eu sei que o padrão é de 10 caracteres do tipo "|" por linha aquela que apresentar mais de 10 devem ser ignoradas durante a carga, a questão é que não sei como realizar esta contagem dentro do recordset pelo que andei pesquisando daria para se utilizar a função dcount, mas não sei como fazer isso. Alguém por favor teria uma solução para esse problema?

Abaixo vou colocar um exemplo para melhorar o entendimento:

Suponha que um dos arquivos que estejam sendo carregados tenha este formato-

nome | idade | cidade | estado
João | 25 | são paulo | sp
Pedro | | 30 | Sorocaba | sp
Lucas | 19 | Jundiaí | sp
Matheus | 25 | Campinas | sp
Cleber | 33 | são paulo | sp

Para este exemplo o padrão é de 3 caracteres "|" por linha, mas a linha com o nome Pedro possui 4 caracteres do tipo "|" esta linha deve ser ignorada e não gravada na tabela do banco, a leitura final para gravação na babela do banco deve ser:

nome | idade | cidade | estado
João | 25 | são paulo | sp
Lucas | 19 | Jundiaí | sp
Matheus | 25 | Campinas | sp
Cleber | 33 | são paulo | sp


Obrigado.

É possível realizar a contagem de um Carácter através do método Split. Veja um exemplo a Baixo:


Coloque no CLique de um Botão a seguinte Instrução:

Private Sub Comando0_Click()

Dim F As Variant
F = Split("Pedro | | 30 | Sorocaba | sp", "|")
MsgBox UBound(F)

End Sub

Ao clicar no Botão, receberá uma Mensagem com o total de x que a | aparecerá na string.

Dessa forma seu problema será resolvido!

If UBound(F)<=10 then
'continua a importação
End if


Obs: Substitua o Item em Vermelho pelo Valor/Leitura da Linha do txt.

Muito obrigado resolveu meu problema

Grato pelo retorno amigo, até a próxima se Deus Quiser!

Se foi solucionada a duvida, ajude o próximo a ter sua duvida Solucionada! Marque o Tópico como Resolvido!!!

Como faço pra marcar o tópico como resolvido? Procurei está opção mas não achei.

Obrigado