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!
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
Obrigado