DATAGRID COM TXT
Bom dia a todos.
Eu tenho uma situação onde eu sempre utilizei um textbox para mostrar um arquivo txt. Esse arquivo txt contém informações referente ao meu cliente. Como o TXT tem o mesmo nome do meu cliente, quando eu seleciono ele, o txt é automaticamente aberto no textbox.
As informações são simples:
10/02/2010 - 10:45:23 - Telefonema: Falei com o João
Esse é o formato das informações que guardo nesse txt.
Eu vi em um tutorial, onde ele alimentava um datagrid com o txt só separando por caracteres, alguma coisa assim. Era um texo normal, mas que a partir de adeterminado caractere passava para outra célula.
Eu gostaria de fazer algo parecido, mas não com limite de caractere, mas com alguma informação que eu poderia adicionar, por exemplo um #.
é possÃvel fazer isso?
Eu tenho uma situação onde eu sempre utilizei um textbox para mostrar um arquivo txt. Esse arquivo txt contém informações referente ao meu cliente. Como o TXT tem o mesmo nome do meu cliente, quando eu seleciono ele, o txt é automaticamente aberto no textbox.
As informações são simples:
10/02/2010 - 10:45:23 - Telefonema: Falei com o João
Esse é o formato das informações que guardo nesse txt.
Eu vi em um tutorial, onde ele alimentava um datagrid com o txt só separando por caracteres, alguma coisa assim. Era um texo normal, mas que a partir de adeterminado caractere passava para outra célula.
Eu gostaria de fazer algo parecido, mas não com limite de caractere, mas com alguma informação que eu poderia adicionar, por exemplo um #.
é possÃvel fazer isso?
http://www.macoratti.net/txt_arqs.htm
ok, obrigado
ok, obrigado
Agora minha dúvida ficou mais básica ainda.
Como abrir uma txt no textbox? Direto, sem precisar escolher a pasta e o arquivo pelo prompt?
Eu achei esse código:
Private Sub Command1_Click()
Dim s As String
Dim f As Integer
f = FreeFile [ô]Pega o numero do arquivo a ser aberto caso tenha mais de um arquivo aberto.
Open [Ô]c: emp\lista.txt[Ô] For Input As #f [ô] abre o arquivo
Text1.Text = [Ô][Ô]
Do Until EOF(f)
Line Input #f, s
Text1.Text = Text1.Text + s
Loop
Close #f [ô] fecha o arquivo
End Sub
Mas olha o tamanho do código só para abrir um txt!!!
EDIT1:
Ainda achei grande, mas está bem melhor:
Dim EntireFile As String
Dim oRead As System.IO.StreamReader
oRead = IO.File.OpenText([Ô]d:\sample.txt[Ô])
EntireFile = oRead.ReadToEnd()
MsgBox(EntireFile)
Como abrir uma txt no textbox? Direto, sem precisar escolher a pasta e o arquivo pelo prompt?
Eu achei esse código:
Private Sub Command1_Click()
Dim s As String
Dim f As Integer
f = FreeFile [ô]Pega o numero do arquivo a ser aberto caso tenha mais de um arquivo aberto.
Open [Ô]c: emp\lista.txt[Ô] For Input As #f [ô] abre o arquivo
Text1.Text = [Ô][Ô]
Do Until EOF(f)
Line Input #f, s
Text1.Text = Text1.Text + s
Loop
Close #f [ô] fecha o arquivo
End Sub
Mas olha o tamanho do código só para abrir um txt!!!
EDIT1:
Ainda achei grande, mas está bem melhor:
Dim EntireFile As String
Dim oRead As System.IO.StreamReader
oRead = IO.File.OpenText([Ô]d:\sample.txt[Ô])
EntireFile = oRead.ReadToEnd()
MsgBox(EntireFile)
Tópico encerrado , respostas não são mais permitidas