jntk

Aproveitando esse tópico, tendo o código abaixo: Dim loc As String loc = item.Text n = FreeFile() Open "C:\011029.TXT" For Binary As #n conteúdo = Input(LOF(n), n) Close #n 'txt.Text = conteúdo posição = InStr(1, conteúdo, loc) If posição > 0 Then MsgBox "Achou!" Else MsgBox "Não achou!" End If Gostaria de fazer com que ao achar o item solicitado (loc), ele copiasse a linha inteira do arquivo em uma variável qualquer..... Help-me please, I need....

Todos os códigos que achei mostram como abrir um determinado arquivo. (C:\arquivo.txt). Como faço para abrir todos os arquivos em uma determinada pasta, tipo um "*.txt"? Utilize a função Dir() para obter todos os nomes de arquivos *.txt de uma determinada pasta e depois faça um loop para abrir cada um deles (com o código que você já tem, que abre apenas um). Exemplos da função Dir() você também encontrará aqui no fórum. Abraços, Graymalkin Cara, ta embaçado aki no trampo..rs... Não sei como usar essa função dir para conseguir ler todos os arquivos da pasta. Procurei no forum, mas não encontrei o que preciso. Estou aceitando humildemente ajuda, e um teclado novo porque esse ta comendo o "r" e "o"...rs...

Todos os códigos que achei mostram como abrir um determinado arquivo. (C:\arquivo.txt). Como faço para abrir todos os arquivos em uma determinada pasta, tipo um "*.txt"?

Bom dia pessoal estou com um probleminha pra resolver e preciso da ajuda de todos e principalmente da de Deus..... Tenho uma série de arquivos TXT nesse formato: 2 0 2814340000181 0 0 0 0 0.00 3000241 01081 180.000 2158.20000 437.400 30 / 0 3000241 01212 12.000 95.16000 5.520 0 / 12 3000241 01421 16.000 52.16000 14.400 1 / 4 3000241 01425 4.000 27.68000 13.200 1 / 0 3000241 01703 7.000 19.67000 7.000 0 / 7 3000241 03034 4.000 7.68000 4.000 0 / 4 3000241 05515 1.000 29.00000 1.000 0 / 1 3000241 07909 11.000 8.80000 3.300 0 / 11 3000241 08011 3.000 153.39000 49.200 3 / 0 3000241 60013 4.000 32.84000 4.000 0 / 4 São cerca de mais de 4.000 ao todo. Queria de alguma forma importar isso no access (mdb), ou no excel (xls) para poder consultar cada valor. poderia importar isso no excel um por um, mas são 4.000!!! Preciso de um código que importe isso automáticamente (todos), dividido por colunas (todos estão alinhados), ignorando a primeira linha e a última linha (pois tem algumas "sugeiras"). Ou importar em um único arquivo TXT (ignorando a primeira linha e a última)... Se vocês copiarem isso no notepad sem quebra de linha, vão notar que estão todos alinhados um embaixo do outro. Uma luz, preciso disso pra amanha, acreditam???rsrsrs

Alguém tem, ou sabe onde encontro algum tutorial sobre o crystal 11? Se tiverem do crystal 10, creio que vai ajudar tb. No aguardo...

Como criar relatórios no VB sem usar o Crystal Report? Seria usando o Data Report? Se sim, como posso usar ele? Queria colocar um código e gerar um relatório trazendo da tabela todo os itens com o mesmo código. No aguardo...

Ola pessoal, alguém tem o código pronto de uma loja virtual (e-commerce) completo com pagamente em cartão de crédito, boleto, carrinho de compras, etc? Estou disposto a pagar por isso. No aguardo.

Como faço para meu software funcionar em outras versões do Windows? Eu compilei no WinXp, mas queria instala-lo no Win2000 e no Win98. No aguardo.....

Não foi, nenhum nem o outro. No primeiro continuou a mesma coisa, e no segundo aparece: "Method or data member not found" Na item: ".Provider =" No aguardo...

Sim, meu código está dessa forma: Dim db As Database Dim rs As Recordset Set db = DBEngine.Workspaces(0).OpenDatabase("S:\Controle\Data\database.mdb") Set rs = db.OpenRecordset("select * from movimentacao where codigo = 5") Set DataGrid1.DataSource = rs Mas tente dessa forma também: Dim db As Database Dim rs As Recordset Dim linhas As Integer Dim sql As String sql = "Select * from Tabela Where Codigo = 5" Set rs = cn.Execute(sql) Set DataGrid1.DataSource = rs No primeiro código acima o erro foi: "Run-time error '13': Type mismatch" Na linha: "Set DataGrid1.DataSource = rs" No segundo código acima o erro foi: "Run-time error '424': Object required" Na linha: "Set rs = cn.Execute(sql)" No aguardo...

A idéia é essa mesmo, só que não funcionou..... Deu erro no código, pra ser mais preciso em:Set DataGrid1.DataSource = rs

Certo, mas preciso "jogar" esses dados em um DBGrid ou DataGrid / ou algo semelhante..., (para visualizálos). E essa a questão.... No aguardo...

Olá, preciso de ajuda... Gostaria de fazer algo que ao clique de um botão traga os dados da tabela com o mesmo código para um DBGrid ou DataGrid. Por exemplo, escolhe se o número 5, e clica no botão, e ul filtro é utilizado trazendo somente os registros do correspondentes ao código 5. (somente para consulta) Não consigo fazer isso....

Entendi, mas eu quero que ele me dê um número somente, assim.... No exemplo que me deu, queria que ele me retornasse apenas o número "2" em uma variável qualquer... Se eu procurasse pela idade 19, ele me retornaria "3", e se procurasse pela idade 20, ele me retornaria "2". Apenas o número, entendeu?

Olá, alguém sabe como faço para bloquear configurações, entre outras coisas no WinXP. A idéia é que tem um micro no qual a função dele é ficar com um software aberto (o qual inicia com o windows) 24hrs por dia, e 7 dias por semana..rs... Só que sempre tem os caras que querem acessar outras coisas, papel de parede, painel de controle, notepad, etc, etc. Como bloqueio isso? No aguardo...

Não deu certo

Olá, como crio um tipo de um contador que me retorne quantos itens tem na tabela com o mesmo código. Por exemplo tenho uma tabela com "codigo", "produto", "datacompra" E ele me retorne o número de itens com o mesmo código. Valeu...

Aproveitando o embalo..hehe Alguém sabe alguma página, ou sabe me dizer os mapas de "keyCode", para eu usar no VB? como por exemplo acima... (If KeyCode = 13 Then SendKeys "{TAB}") Ou pelo menos me informar o do "ESC", e como fazer com que o esc feche a janela. No aguardo

Caramba, já responderam, e já deu certo. Valeu kuroi... Podem fechar o tópico....

Galera, como faço para em um formulário mudar de campo quando pressionar "Enter" ao invés de ficar pressionando "Tab"? No aguardo

Gostaria de fazer isso no VB. Se tipo eu crio um softare e se o usuário mudou a data do sistema para usar mais o software, tem algum truque para eu saber se foi mudado ou não a data? Algum código que faça alguma monitoração, ou algum tipo de verificação?

Certo...., valeu... Tópico encerrado...hehe

Galera existe alguma forma de somar datas? Somar mais alguns dias em uma determinada data no formato: "xx/xx/xxxx" (date) No aguardo.

Pessoal, existe algum truque para saber se o usuário mudou a data do sistema? Existe alguma forma de monitorar isso? No aguardo.

É isso ai Decio. Valeu cara. Podem fechar o tópico...hehe