|
|
Postada em 16/09/2009 01:49 hs
o VB 6 tem algum componente para gerar arquivo txt direto do vb, ou seja pegar o conteúdo dos campos de textos ao apertar um botão e gravar num arquivo txt? agradeço se alguem tiver uma dica de apostila para eu estudar, obrigado.
|
|
|
|
|
|
|
|
Postada em 16/09/2009 10:00 hs
Que tipo de arquivo? Delimitado? É fácil. Basta pegar os valores dos campos e ir concatenando em uma string. Depois que todos estiverem na string, é só criar um arquivo e salvar o texto nele. Se você continuar com dúvida, eu posto um exemplo.
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
Rogerio
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 16/09/2009 12:31 hs
Se puder eu aceito porque a minha dúvida é de como eu iria por exemplo fazer um calculo de uma média aritimetica com 4 campos, ou seja txtnota1, txtnota2, 3 e 4, e gravar os dados de cada campo linha a linha no arquivo de texto uma embaixo da outrra. Eu não estou conseguindo é abrir um arquivo txt já gravado. usei esta maneira mas dá erro:
Esta função abaixo serve para abrir o arquivo já gravado mas dá erro, não acha o arquivo.
Public Function AbreArquivotxt( )
Dim arquivo
Open dialog1.FileName For Input As #1
Input #1, arquivo
Close #1
'Define o titulo
dialog1.DialogTitle = "Abrindo um txt"
'Definindo o caminho Inicial para procurar o arquivo
dialog1.InitDir = App.Path
Estou usando o vb 6. Muito obrigado.
|
|
|
|
|
|
Postada em 16/09/2009 13:23 hs
Para abrir o arquivo, você pode fazer assim:
Private Sub Form_Load()
sub_Abre_Arquivo "C: este.txt"
End Sub
Private Sub sub_Abre_Arquivo(sCaminho As String)
Dim iNumero As Integer
Dim sTextArquivo As String
'
iNumero = FreeFile
Open sCaminho For Input Access Read As iNumero
'
sTextArquivo = Input(LOF(iNumero), #iNumero)
Close iNumero
'
End Sub
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
|
|
Postada em 16/09/2009 15:45 hs
O código ficou assim, mas deu erro, dizendo "argumento não opcional" apontando para a chamada call abre_arquivo, pois eu coloquei que iria abrir no clique no botao abrir. estou usando o comom dialog e já acertei a gravar, só falta abrir o arquivo txt por inteiro como se agente estivesse dando 2 cliques no windows explorer. o que pode estar saindo errado, agradeço, obrigado.
Private Sub Command2_Click()
Call Abre_Arquivo
End Sub
Private Sub Abre_Arquivo(sCaminho As String)
Dim iNumero As Integer
Dim sTextArquivo As String
'
iNumero = FreeFile
Open "C:PROGRAMA est.txt" For Input Access Read As iNumero
'
sTextArquivo = Input(LOF(iNumero), #iNumero)
Close iNumero
'
End Sub
|
|
|
|
|
|
Postada em 16/09/2009 15:49 hs
Você tem que passar como parâmetro da função o caminho do arquivo.
Já que você está usando CommonDialog, tem que ser mais ou menos assim:
Private Sub Command2_Click()
Dialog1.ShowOpen
Abre_Arquivo Dialog1.FileName
End Sub
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
