MAIS UMA DE ARQUIVO TEXTO
Linon o Lbound retorna apenas o primeiro caracter da esquerda correto ?
sendo assim naum consigo definir em qual registro utilizarei o select, me corriga se eu estiver errado
sendo assim naum consigo definir em qual registro utilizarei o select, me corriga se eu estiver errado
esquenta não cara!!
também concordo contigo, tirando a parte do "Lion o lindão".
também concordo contigo, tirando a parte do "Lion o lindão".
Não fox.
O lBound(array) serve pra dizer qual o primeiro indice do array.
exemplo:
array (12 to 30)
Lbound(array) = 12
UBound(array) = 30
sacou?
o que acontece ali é assim:
"0143004145319000166PERFUMARIA REGINA 23/11/2006000006 "
Mid(aDados(i), 1, 2) = os dois primeiros caracteres da linha "i" ou seja, o 01
select case Mid(aDados(i), 1, 2)
case "01" então ......
end select
aà ele entra no 01, e executa o que vc quiser.
O lBound(array) serve pra dizer qual o primeiro indice do array.
exemplo:
array (12 to 30)
Lbound(array) = 12
UBound(array) = 30
sacou?
o que acontece ali é assim:
"0143004145319000166PERFUMARIA REGINA 23/11/2006000006 "
Mid(aDados(i), 1, 2) = os dois primeiros caracteres da linha "i" ou seja, o 01
select case Mid(aDados(i), 1, 2)
case "01" então ......
end select
aà ele entra no 01, e executa o que vc quiser.
Certo Lion, eu tentei dessa forma e ele passava pelas 3 select e não achava o valor de dDados(i)
então fiz o seguinte :
no lugar da select coloquei isso :
De qualquer forma a sua opção eh muito interessante, jogar o arquivo em aDados
eh mais fácil mesmo
AH, viu ae q utilizei a função para converter string para double, neh...deu certo também.....
Cara, BRIGADAUMMMMMM mesmo.
Qdo o código estiver pronto vou disponibilizar para todos.
então fiz o seguinte :
no lugar da select coloquei isso :
Dim tTipoRegistro As String
tTipoRegistro = Left(aDados(i), 2)
Const head = "01"
Const body = "02"
Const trailler = "03"
If tTipoRegistro = head Then
'frmCadCompras.txtTotalGeral.Text = CCur(Mid(aDados(i), 20, 10)) ' Le total do Pedido
'frmCadCompras.lblQtdeProdutos.Caption = (UBound(aDados) - LBound(aDados)) - 1
ElseIf tTipoRegistro = body Then
'joga os dados em um grid
ElseIf tTipoRegistro = trailler Then
frmCadCompras.txtTotalProduto.Text = ConverterStringParaDouble(Mid(aDados(i), 9, 10)) 'Le total do Produto
'joga os dados no form
End If
De qualquer forma a sua opção eh muito interessante, jogar o arquivo em aDados
eh mais fácil mesmo
AH, viu ae q utilizei a função para converter string para double, neh...deu certo também.....
Cara, BRIGADAUMMMMMM mesmo.
Qdo o código estiver pronto vou disponibilizar para todos.
Quero antes de encerrar o tópico agradecer aos colegas q se prontificaram a resolver meu problema,
Em especial ao MARCELOHF, pois sua resposta também funciona, e como ele mesmo concordou com a opção do Lion, encerrarei o tópico pontuando o Lion.
Obrigado a todos
O tópico será encerrado dentro de uma Hora.
Em especial ao MARCELOHF, pois sua resposta também funciona, e como ele mesmo concordou com a opção do Lion, encerrarei o tópico pontuando o Lion.
Obrigado a todos
O tópico será encerrado dentro de uma Hora.
Blz Cara... Com certeza ponto pro Lion que apresentou a melhor solução.
Tópico encerrado , respostas não são mais permitidas