Garu

Resolvido: Dim file As String Dim LCasechave As String = txtChave.Text For Each file In Directory.GetFiles("C:\logs") 'Lcase txtChave.Text = LCase(txtChave.Text) 'Verifica se txtChave foi preenhida. If txtChave.Text <> "" Then Dim total As Integer = 0 Dim fileName As String = file Dim busca1 As String = txtChave.Text 'Armazena num Array linha a linha Dim lines() As String = IO.File.ReadAllLines(fileName) 'O valor inicial de index é -1 porque o array começa em 0 Dim index As Integer = -1 'x = variável contadora Dim x As Integer = 0 Dim i As Integer 'Define "line" como uma linha do array lines: For Each line As String In lines Dim LCaseline As String LCaseline = LCase(line) Do 'Usei o LBound para retornar o nº mínimo 'de linhas possível, assim, tenho o nº 'real de linhas... For i = 0 To LBound(lines) index += 1 index = LCaseline.ToString.IndexOf(busca1, index) 'Se index é diferente de 0... If index >= 0 Then 'Jogo o conteúdo da linha no campo txtLinhas txtLinhas.Text += file + vbCrLf + line + vbCrLf + vbCrLf 'e adiciono +1 ao contador x x += 1 End If Next Loop Until index = -1 'Debug.WriteLine(line.ToString) total += 1 Next Else MsgBox("Informe um valor para a busca!") End If Next If txtLinhas.Text = "" Then MsgBox("Nenhum Registro encontrado!") End If Favor moderadores, marcar tópico como resolvido.

Beleza! funcionou... Agora seguinte: Consigo abrir, pesquisar a linha e jogar a linha na caixa de texto, preciso localizar uma palavra dentro da linha, aí sim jogar a linha inteira... tem como? Dim total As Integer = 0 Dim fileName As String = "c:\arquivo.txt" Dim busca1 As String = txtChave.Text ' Armazena num Array linha a linha Dim lines() As String = IO.File.ReadAllLines(fileName) ' Loop que irá mostrar linha a linha '#Este loop só funciona se digitar a linha inteira '#ele não localiza um valor específico em uma linha. For Each line As String In lines 'Aqui é que está o meu problema... 'Eu não consigo fazer a busca por uma palavra... If line.Substring(0) = busca1 Then 'Essa linha é só pra teste MsgBox(line) 'Joga o resultado na caixa de texto txtLinhas.Text += line + vbCrLf Debug.WriteLine(line.ToString) total += 1 End If Next

Prezados, Tenho um arquivo de log em formato .txt, gostaria de montar um programa que possa localizar um determinado valor nesse arquivo. Alguém pode me ajudar? Pelo menos dizer por onde começo... Desde já grato, _____________Garu

Olá pessoal, estou começando a programar agora em ASP.NET usando VB. Estou tendo problemas em um INSERT, o registro é criado na tabela + todos os valores vão em branco... Será que alguém pode me dar uma força? Minha Query: INSERT INTO [cadastro] ([nome], [endereco], [cidade], [bairro], [estado], [telefone], [site], [email], [obs]) VALUES ( @nome, @endereco,@cidade, @bairro, @estado, @telefone, @site, @email, @obs ) Valeu pela força!