AJUDA COM ARQUIVO TEXT
oi.Pessoal me ajude. Tenho que verificar em um diretório se existe um arquivo cujo o nome contenha este valor, e se for verdade abrir o documento e pegar uma linha deste documento e mostrar no textbox.
exemplo: informo no textbox o valor : 52632356 e teria que procurar um arquivo texto que contenha no seu nome este valor.
Agradeço a ajuda de todos.
exemplo: informo no textbox o valor : 52632356 e teria que procurar um arquivo texto que contenha no seu nome este valor.
Agradeço a ajuda de todos.
[ô]SERIA MAIS OU MENOS ISSO ???
Private Sub Command1_Click()
arquivo = Dir([Ô]c:\*.*[Ô])
Do Until arquivo = [Ô][Ô]
If InStr(arquivo, [Ô]52632356[Ô]) > 0 Then
[ô]se for arquivo em formato ascii
intFreeFile = FreeFile
Open (arquivo) For Input As #intFreeFile
Do Until EOF(intFreeFile)
Line Input #intFreeFile, Registro
[ô]...
TextBox.Text = Registro
[ô]...
Loop
Close #intFreeFile
End If
arquivo = Dir
Loop
End Sub
Private Sub Command1_Click()
arquivo = Dir([Ô]c:\*.*[Ô])
Do Until arquivo = [Ô][Ô]
If InStr(arquivo, [Ô]52632356[Ô]) > 0 Then
[ô]se for arquivo em formato ascii
intFreeFile = FreeFile
Open (arquivo) For Input As #intFreeFile
Do Until EOF(intFreeFile)
Line Input #intFreeFile, Registro
[ô]...
TextBox.Text = Registro
[ô]...
Loop
Close #intFreeFile
End If
arquivo = Dir
Loop
End Sub
neste caso parece que o arquivo já foi selecionado.
tenho q pega um texto informado, e por este texto selecionar um arquivo [Ô]txt[Ô], obs.: o texto que informar não é o nome do arquivo é só uma parte...
Então, é mais ou menos como o FEDERHEN mostrou, peguei o que ele fiz e dei uma [Ô]enxugada[Ô] pra ficar mais ou menos o que você quer:
arquivo = Dir([Ô]C:\PASTA\*[Ô] & Text1.Text & [Ô]*.txt[Ô])
Do While arquivo <> [Ô][Ô]
intFreeFile = FreeFile
Open [Ô]C:\C Sharp\[Ô] & arquivo For Input As #intFreeFile
Do Until EOF(intFreeFile)
Line Input #intFreeFile, Registro
TextBox.Text = TextBox.Text & Registro & vbNewLine
Loop
Close #intFreeFile
arquivo = Dir
Loop
Os detalhes são:
[Ô]C:\PASTA[Ô] é a pasta onde os arquivos estão.
Text1 é a caixa de texto onde você digita o nome parcial do arquivo
TextBox é uma outra caixa de texto que vai mostrar o conteúdo do arquivo.
Outra coisa importante, é que essa procura é feita por [Ô]coringas[Ô], e vai buscar o primeiro arquivo que tiver o padrão passado que no caso é [Ô]*(o nome parcial)*.txt[Ô], que significa que ele vai procurar por arquivos que no seu nome contenha o que você digitou na caixa de texto em qualquer parte do arquivo.
Ou seja, se tiver um arquivo com o nome: AAABBB12345CCC.TXT e você digitou [Ô]12345[Ô] na caixa de texto, este será o arquivo retornado. Se tiver algum outro arquivo com esse padrão, como [Ô]XXX12345ZZZYYY.TXT[Ô] e este não for o primeiro da lista, ele não vai ser retornado.
arquivo = Dir([Ô]C:\PASTA\*[Ô] & Text1.Text & [Ô]*.txt[Ô])
Do While arquivo <> [Ô][Ô]
intFreeFile = FreeFile
Open [Ô]C:\C Sharp\[Ô] & arquivo For Input As #intFreeFile
Do Until EOF(intFreeFile)
Line Input #intFreeFile, Registro
TextBox.Text = TextBox.Text & Registro & vbNewLine
Loop
Close #intFreeFile
arquivo = Dir
Loop
Os detalhes são:
[Ô]C:\PASTA[Ô] é a pasta onde os arquivos estão.
Text1 é a caixa de texto onde você digita o nome parcial do arquivo
TextBox é uma outra caixa de texto que vai mostrar o conteúdo do arquivo.
Outra coisa importante, é que essa procura é feita por [Ô]coringas[Ô], e vai buscar o primeiro arquivo que tiver o padrão passado que no caso é [Ô]*(o nome parcial)*.txt[Ô], que significa que ele vai procurar por arquivos que no seu nome contenha o que você digitou na caixa de texto em qualquer parte do arquivo.
Ou seja, se tiver um arquivo com o nome: AAABBB12345CCC.TXT e você digitou [Ô]12345[Ô] na caixa de texto, este será o arquivo retornado. Se tiver algum outro arquivo com esse padrão, como [Ô]XXX12345ZZZYYY.TXT[Ô] e este não for o primeiro da lista, ele não vai ser retornado.
Tópico encerrado , respostas não são mais permitidas