NaM4

kuroi, sem palavra pra você... funcionou meu caro eu deveria ter vindo aqui a mais tempo... fiquei mexendo em outros foruns especificos e não obtive resultado...estou nisso a 4 dias e nada... agora com 2 simples respostas sua eu cosegui muito obrigado kuroi e scriptbrasil abraços!

olá kuroi, primeiramente obrigado pela resposta... bom, não creio q tenha q utilizar o trim pois não há espaço nas linhas, apenas os ENTERS... voltando, eu tenho que por o IF na hora de colocar os valores do txt na variavel correto? seria algo + - assim?: Do While fsStream.AtEndOfStream = False line = Split(fsStream.ReadLine, "|") If line(0) <> vbCrLf Then NovoValor00 = Replace(line(0), "'", " ") NovoValor01 = Replace(line(1), "'", " ") NovoValor02 = Replace(line(2), "'", " ") NovoValor03 = Replace(line(3), "'", " ") con.Execute "INSERT INTO tabela(Col001, Col002, Col003, Col004) VALUES ('" & NovoValor00 & "','" & NovoValor01 & "','" & NovoValor02 & "','" & NovoValor03 & "')" sCodigo_cliente = oRsNome iContador = iContador + 1 Form1.progressBar.Caption = iContador & " PDB's de " & Format$(num_lines) Form1.statusBar.Caption = "Importando PDB's" DoEvents end if Loop se for isso, não funcionou, ao chegar na ultima linha de conteudo, da erro run-time '9' - subscription out of range abraços e estou no aguardo!

Olá pessoal, pesso encarecidamente ajuda de vocês, pois estou a tempo já procurando como fazer... bom tenho um programa de carga, onde pega linhas do txt e joga no banco de dados sqlserver... está funcionando perfeitamente, porém encontrei uma exception... ela é a seguinte: caso no txt tenha ENTERS, ou seja linhas em branco a carga não é feita corretamente, pois meu txt é delimitado por PIPE ("|") exemplos: TXT FUNCIONANDO: 007|21.07.01.068|2,53|2010 007|21.07.01.069|1,94|2010 007|21.07.01.070|3,56|2010 007|21.07.01.071|3,55|2010 007|21.12.01.004|3,07|2010 007|21.12.01.011|3,37|2010 TXT não FUNCIONANDO: 007|21.07.01.068|2,53|2010 007|21.07.01.069|1,94|2010 007|21.07.01.070|3,56|2010 007|21.07.01.071|3,55|2010 007|21.12.01.004|3,07|2010 007|21.12.01.011|3,37|2010 _ OBS: ignorem o underline, só coloquei para simular os espaços em branco no arquivo! note que no segundo bloco de codigo tem espaços (ENTERS PRESSIONADOS) após a ultima linha do txt que tem conteudo... e a carga não funciona... minha dúvida é como fazer para que meu programa ignore estas linhas em branco, ou simplesmente faça um replace nelas para 3 pipes, exemplo: 007|21.07.01.068|2,53|2010 007|21.07.01.069|1,94|2010 007|21.07.01.070|3,56|2010 007|21.07.01.071|3,55|2010 007|21.12.01.004|3,07|2010 007|21.12.01.011|3,37|2010 ||| ||| ||| ||| obrigado desde já.. abraços

Bom dia galera, gostaria de tirar uma duvida. tenho um programa que pega de um arquivo TXT as linhas delimitadas por "|" e joga no banco de dados... a rotina esta correta, quero saber como faço uma coisa muito simples, mas que não consegui ainda (sou novato em vb, e esse programa esta em vb6) a rotina é a seguinte: Do While fsStream.AtEndOfStream = False line = Split(fsStream.ReadLine, "|") con.Execute "INSERT INTO cemar_imp_clientes(Col001, Col002, Col003, Col004, Col005, Col006, Col007, Col008, Col009, Col010, Col011, Col012, Col013, Col014,Col015) VALUES ('" & line(0) & "','" & line(1) & "','" & line(2) & "','" & line(3) & "','" & line(4) & "','" & line(5) & "','" & line(6) & "','" & line(7) & "','" & line(8) & "','" & line(9) & "','" & line(10) & "','" & line(11) & "','" & line(12) & "','" & line(13) & "','" & line(14) & "')" sCodigo_cliente = oRsNome iContador = iContador + 1 progressBar.Caption = "Importando " & iContador & " clientes" Loop o que gostaria de fazer é o seguinte. Pegar o numero total de linhas que o txt tem...lembrando q pode ser variavel, 100, 2000 ou 29999 depende do nº de registro que tem nele nessa parte: progressBar.Caption = "Importando " & iContador & " clientes" ele faz um progress bar basico mostrando em tempo real os registros cadastrados... ele está assim: Importando XXXX arquivos e gostaria de Importando XXXX arquivos de YYYYY onde YYYYY seria o numero de itens que o txt tem (linhas) Obrigado desde já