SALVANDO EM TXT, LINHA POR LINHA

USUARIO.EXCLUIDOS 04/09/2007 20:35:22
#234150
bom hoje me mostraram como fazer pra um Combo ler um arquivo de texto
graças ao "MARCELOHF" =P que me ajuda a cada duvida minha...


MARCELOHF valeu por toda ajuda que você tem me dado
e pela paciência com um aprendiz noob!

bom gostaria de saber como faço pra salvar determinado TEXT
em um arquivo de texto da seguinte forma:]

linha por linha.

ou seja se eu salvei o tenho no texto

X (linha 1)
Y (linha 2)
Z (aqui onde eu salvei)
Q (aqui salvei novamente o texto do text)
... e assim por diante

=)
!
alguem pode me mostrar?
USUARIO.EXCLUIDOS 04/09/2007 21:30:00
#234155
pelo o que eu entendi:

Open "c:\exemplo.txt" For Append As #1 'salva sempre no final do arquivo
Print #1, "abcd"
Close #1
USUARIO.EXCLUIDOS 04/09/2007 21:47:24
#234157
tah! isso mesmo,..
e agora pra apagar uma determinada linha?
USUARIO.EXCLUIDOS 04/09/2007 22:20:39
#234159
ERRATA:
bom num era exatamente isso, tipo eu quero criar uma linha depois da ultima

tipo

LINHA 1 BLA BLA BLA
LINHA 2 BLA BLA BLA
LINHA 3 BLA BLA BLA

qndo eu executar o comando
ai faz-se o seguinte

LINHA 1 BLA BLA BLA
LINHA 2 BLA BLA BLA
LINHA 3 BLA BLA BLA
(CRIA AQUI O NOVO TEXTO)

e de novo

LINHA 1 BLA BLA BLA
LINHA 2 BLA BLA BLA
LINHA 3 BLA BLA BLA
(CRIA AQUI O NOVO TEXTO)
(AQUI O MAIS NOVO TEXTO)

e assim por diante!
ROBIU 05/09/2007 06:41:11
#234171
Isso depende de onde vem os dados(de um Banco de dados, de uma grid, de uma textboxs, etc
Se os dados forem de um textbox, faz assim:
Open "c:\ArquivoTexto.txt" For Append As #1 
     Print #1, Text1.Text
     Print #1, Text2.Text
Close #1


Se os dados são de uma grid, usa um contador de linhas e o For
dim i as integer
Open "c:\ArquivoTexto.txt" For Append As #1 
for i=1 to grid.row-1 'FlexGrid ou HflexGrid
 Print #1, grid.TextMatriz(i,0); 'Primeira coluna
 Print #1, grid.TextMatriz(i,1);'Segunda coluna na mesma linha
next i ' Vai para a proxima linha e repete a operaçao


Se o texto vier de banco de dados, use o loop "Do Until Rs.EOF".
Veja em anexo o que esse código faz. com o "Output as #1" ele cria o txt e insere os dados da tabela; com "Append As #1" ele insere o texto a partir do texto existente.

Private Sub But6_Click()
     Set Rs = New ADODB.Recordset
    Dim Sql As String, tamanho As Integer
    With FrmMenu.Stb
        Empresa = .Panels(1) & "-" & .Panels(2) & ".mdb"
    End With
    
    Conexao.AbrirConexao "\Dados\" & Empresa
    Sql = "Select format(Data,'ddmm'), 'Compra Merc NF ' & Nf & ' de ' & Nome,VlrNf from ccompras order by data"
    Rs.Open Sql, Cnn, adOpenKeyset, adLockPessimistic
    Rs.MoveNext
    
    Open "j:\Teste.txt" For Append As #1 'Use Output As #1 para criar o txt e iniciar o salvamento dos registros na primeira linha ou substituir o texto existente
    Do Until Rs.EOF
    
    Print #1, Rs(0) & "11301003"; 'Sem o ; ele imprime na outra linha
    Print #1, Tab(17); "11101001";'O Tab é para colocar o valor na posição fixa 
    Print #1, Tab(34); Mid(Rs(1), 1, 45);
    Print #1, Tab(83); Format$(Format$(Rs(2), "0.00"), "@@@@@@@@") 'Aqui não tem ; no final para imprimir na outra linha. O uso da função format$ é para formatar e alinhar o texto à direita.
    Rs.MoveNext
    Loop

    
    Close #1
    Rs.Close
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar