USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ## Editar arquivo texto de coluta x a coluna y ##
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 10/09/2008 10:43 hs            
Olá VBzadores!!!
 
Pessoal eu sempre evitei de trabalhar com arquivo texto (.txt) por motivos de segurança, porem, agora nao tem como escapar, vê só!!!!!
 
Estou criando uma tela de configuração (config) para o usuario Ver e Informar onde está o BD  ex: NomePCPasta    e estou Lendo um arquivo .txt que fiz na UNHA veja o codigo para Ler o .txt :
 
Private Sub Command1_Click()
'####INICIO
Dim LINHA, NOME_SISTEMA, LOCAL_BD As String
Dim CONTA_LINHA As Double

Open App.Path & "CONFIG.TXT" For Input As #1
     CONTA_LINHA = -1 '-1 pega apartir da 3ª linha no arquivo txt
       Do Until EOF(1)
        Line Input #1, LINHA
          
           If CONTA_LINHA = 1 Then 'Ler 1º Linha
                NOME_SISTEMA = Trim$(Mid$(LINHA, 9, 83))
           End If
           If CONTA_LINHA = 2 Then 'Ler 2º Linha
                LOCAL_BD = Trim$(Mid$(LINHA, 9, 83))
           End If   
       CONTA_LINHA = CONTA_LINHA + 1
       Loop
Close #1
 
'----mostra conteudo do txt
Text1 = NOME_SISTEMA
Text2 = LOCAL_BD
'####FIM
End Sub
Até aí blz, porem, agora quero EDITAR o arquivo ou seja, alem de Ver onde está o usuario podera alterar o .txt, porem quero fazer como acima:
Pular as DUAS primeiras linhas do arquivo .txt e alterar a 3ª e 4ª linha da coluna 9 a 83 só isso! Emoções
 
Até agora fiz a rotina de gravar assim, mas nao esta completa:
'##INICIO GRAVAR
Dim LINHA, NOME_SISTEMA, LOCAL_BD As String
Dim CONTA_LINHA As Double

NOME_SISTEMA = Text1
LOCAL_BD = Text2

Open App.Path & "CONFIG.TXT" For Output As #1
    'aqui falta pular as duas primeiras linhas
    Print #1, NOME_SISTEMA = Trim$(Mid$(LINHA, 9, 83))
    'aqui falta gravar o LOCAL_BD em Trim$(Mid$(LINHA, 9, 83))
Close #1
'##FIM GRAVAR
End Sub
 
 
Alguem pode me ajudar Emoções
Obrigado

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" Emoções
TÓPICO EDITADO
 
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 10/09/2008 11:51 hs            
te aconselho a usar um arquivo ini ok, veja exemplo
 
   
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 10/09/2008 12:00 hs            
Vou ver, obrigado...
Se alguem aí tiver em arquivo .TXT post por favor, daí já aprendo com os dois Emoções.
 

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" Emoções
   
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 10/09/2008 13:55 hs            
Alexandre eu fiz com INI e ficou uma magavilha....  Emoções  Obrigado velho....
Galera se alguem tiver um exemplo em .txt post aí valeu!!!!

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" Emoções
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página