[Resolvido]Substituir caminho em arquivo texto

Amigos tenho este txt com indicativa do caminho do Bd entre outras informações, como fazer ao iniciar o sistema, antes do login (pois o login depende deste caminho) em um form confirmar o caminho do Bd e com possibilidade de alterá-lo.


Conteúdo do arquivo texto:

DirFotosNovas:=C:\Documents and Settings\SURVEILLANCE\Meus documentos\Minhas imagens\Fotos Detentos\
DirFotos:=D:\Access\Projetos\SysApac\Imagens\
DirFotosTMP:=D:\Access\Projetos\SysApac\FotosTMP\
FotoPadrao:=D:\Access\Projetos\SysApac\SemFoto.jpg
FotoPadraoAdm:=D:\Access\Projetos\SysApac\FotoPadraoAdm.png
FotoInexistente:=D:\Access\Projetos\SysApac\FotoInexistente.jpg
DigitalPadrao:=D:\Access\Projetos\SysApac\SemDigital.jpg
DirBanco:=D:\Access\Projetos\SysApac\
DirBancoDados:=D:\Access\Projetos\SysApac\Base
DirBancoDadosLocal:=D:\Access\Projetos\SysApac\
DirRelatorios:=D:\Access\Projetos\SysApac\Relatórios\
UnidadeOrigem:=Mineiros
RegimeAtual:=Fechado
RegimeRDD:=RDD
RegimeFugitivo:=Fugitivo
RegimeTratamento:=Tratamento Médico
RegimeTransferido:=Transferido
RegimeAlbergue:=Albergue
RegimeLiberdade:=Liberdade
DirUser:=D:\Users\
DirUserFinal:=\Pictures\

Cumprimentos

Veja se entende a mecanica da coisa;

http://maximoaccess.forumeiros.com/t1097-passwords-senhas-em-txt-ou-dll

Entendi até entendi.. no entanto como faço para substituir apenas a parte em negrito?

DirBanco:=D:\Access\Projetos\SysApac\

Cumprimentos.

O que eu gostaria é algo assim... Em um form vou abrir a caixa de dialogo, selecionar um caminho, e este caminho selecionado substituir todos os textos em vermelho:

DirFotosNovas:=C:\SysAPAC_ImgTMP\
DirFotos:=D:\Access\Projetos\SysApac\Imagens\
DirFotosTMP:= D:\Access\Projetos\SysApac\FotosTMP\
FotoPadrao:= D:\Access\Projetos\SysApac\SemFoto.jpg
FotoPadraoAdm:= D:\Access\Projetos\SysApac\FotoPadraoAdm.png
FotoInexistente:= D:\Access\Projetos\SysApac\FotoInexistente.jpg
DigitalPadrao:= D:\Access\Projetos\SysApac\SemDigital.jpg
DirBanco:= D:\Access\Projetos\SysApac\
DirBancoDados:= D:\Access\Projetos\SysApac\Base
DirBancoDadosLocal:= D:\Access\Projetos\SysApac\
DirRelatorios:= D:\Access\Projetos\SysApac\
UnidadeOrigem:=Mineiros
RegimeAtual:=Fechado
RegimeRDD:=RDD
RegimeFugitivo:=Fugitivo
RegimeTratamento:=TratamentoMédico
RegimeTransferido:=Transferido
RegimeAlbergue:=Albergue
RegimeLiberdade:=Liberdade
DirUser:=D:\Users\
DirUserFinal:=\Pictures\



Cumprimentos.

Boas JP, este é o código utilizado para a leitura, gostaria de adaptar para gravar o diretorio digitado em uma caixa texto na variável

Código:


Public Sub Parametros_de_Inicializacao(Arquivo As String)
  Dim Linha As String, Conteudo As String

  Diretorio = SoDir(CurrentDb.Properties(0))
  Close
  Open Diretorio & Arquivo For Input As #1
  Do While Not EOF(1)
Outro:
    Line Input #1, Linha
    If Not IsEmpty(Linha) And Not IsNull(Linha) And Len(Trim(Linha))  0 Then
      If Left(Linha, 1)  ";" Then
        Conteudo = Trim(Item(Linha, 2, ":="))
        If EstaVazio(Conteudo) = True Then GoTo Outro
        Select Case UCase(Trim(Item(Linha, 1, ":=")))
          Case "DIRFOTOSNOVAS"
            DirFotosNovas = Conteudo
          Case "DIRFOTOS"
            DirFotos = Conteudo
          Case "DIRFOTOSTMP"
            DirFotosTMP = Conteudo
          Case "DIGITALPADRAO"
            DigitalPadrao = Conteudo
          Case "FOTOPADRAO"
            FotoPadrao = Conteudo
          Case "FOTOINEXISTENTE"
            FotoInexistente = Conteudo
          Case "DIRBANCO"
            DirBanco = Conteudo
          Case "DIRBANCODADOS"
            DirBancoDados = Conteudo
          Case "REGIMEATUAL"
            RegimeAtual = Conteudo
          Case "UNIDADEORIGEM"
            UnidadeOrigem = Conteudo
        Case "REGIMERDD"
            RegimeRDD = Conteudo
        Case "REGIMEFUGITIVO"
            RegimeFugitivo = Conteudo
        Case "REGIMETRATAMENTO"
            RegimeTratamento = Conteudo
        Case "REGIMETRANSFERIDO"
            RegimeTransferido = Conteudo
        Case "REGIMEALBERGUE"
            RegimeAlbergue = Conteudo
        Case "REGIMELIBERDADE"
            RegimeLiberdade = Conteudo
        Case "DIRUSER"
            DirUser = Conteudo
        Case "DIRUSERFINAL"
            DirUserFinal = Conteudo
        Case "FOTOPADRAOADM"
            FotoPadraoAdm = Conteudo
        Case "DIRRELATORIOS"
            DirRelatorios = Conteudo
        Case "SENHABD"
            SenhaBD = Conteudo

        End Select
      End If
    End If
  Loop
  Close
End Sub


Gostaria de fazer o contrário de:

DirFotosNovas = Conteudo

COnteudo = Me.Caixatexto... e substituir este conteudo no arquivo texto.


Cumprimentos.

Alguma novidade por aqui.?

Cumprimentos.

Se é para alterar o diretorio, não serve assim ?

Diretorio = Me.txtDiretorio.Value & "\"

Em realidade Mestre eu tenho um Arquvo txt com esses dados...

DirFotosNovas:=C:\SysAPAC_ImgTMP\
DirFotos:=D:\Access\Projetos\SysApac\Imagens\
DirFotosTMP:= D:\Access\Projetos\SysApac\FotosTMP\
FotoPadrao:= D:\Access\Projetos\SysApac\SemFoto.jpg
FotoPadraoAdm:= D:\Access\Projetos\SysApac\FotoPadraoAdm.png
FotoInexistente:= D:\Access\Projetos\SysApac\FotoInexistente.jpg
DigitalPadrao:= D:\Access\Projetos\SysApac\SemDigital.jpg
DirBanco:= D:\Access\Projetos\SysApac\
DirBancoDados:= D:\Access\Projetos\SysApac\Base
DirBancoDadosLocal:= D:\Access\Projetos\SysApac\
DirRelatorios:= D:\Access\Projetos\SysApac\
UnidadeOrigem:=Mineiros
RegimeAtual:=Fechado
RegimeRDD:=RDD
RegimeFugitivo:=Fugitivo
RegimeTratamento:=TratamentoMédico
RegimeTransferido:=Transferido
RegimeAlbergue:=Albergue
RegimeLiberdade:=Liberdade
DirUser:=D:\Users\
DirUserFinal:=\Pictures\

Ele funciona para indicar o caminho do Back-End e outras funcionalidades, assim em um be desvinculado eu não preciso aceder aos códigos para modificar o caminho do mesmo.

Estou fazendo um form para configurar uma estação de trabalho em rede, ou seja a pessoa instala o Front abre uma form, busca o local do be na rede, e este caminho é salvo no txt, substituindo apenas a parte em vermelho, assim na proxima inicialização do sistema o mesmo já buscara o be na rede.

Espero que tenha compreendido.

Abraços.

Bom dia Harry;

Eu consegui substituir o meu nome "JPaulo", pelo que escrevi na caixa de texto Me.txtDiretorio.

Teste ae...

Private Sub SeuBotao_Click()
Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String

sFileName = "C:\teste.txt"

iFileNum = FreeFile
Open sFileName For Input As iFileNum

Do Until EOF(iFileNum)
    Line Input #iFileNum, sBuf
    sTemp = sTemp & sBuf & vbCrLf
Loop
Close iFileNum
'JPaulo é o texto a substituir, dentro do ficheiro .txt
'Me.txtDiretorio é uma caixa de texto no formulario
sTemp = Replace(sTemp, "JPaulo", Me.txtDiretorio)

iFileNum = FreeFile
Open sFileName For Output As iFileNum
Print #iFileNum, sTemp
Close iFileNum
End Sub

Bom Dia JP, irei testar...

A proposito estou dando coninuidade ao Sistema do Bombeiro que me indicaste... Teremos que fazer do zero pois é diferente... Apenas estou um pouco mais lento nas respostas pois ainda tenho tido que ficar deitado muito tempo por causa da cirurgia... Mas estou dando atenção la, mesmo que mais vagarosamente até que me recupere.

Abraços e obrigado por tudo.

Valew...

E ae, funfou ?

Boas JP... Irei testar logo mais.... Estou terminando uma função aqui para Conversão de Dias em Ano,Mes, Dia.... E ja testo

Abraços.

Grande Mestre.... Como sempre... Na perfeição

Logo mais posto o Código completo.

Obriogado e tenha um ótimo Domingo.

Bem, em uma tabela após susbstituir a parte do texto, gravo o texto utilizado na substituição em um campo, assim em nova alteração se tem novamente o caminho a ser substituido:

'---------------------------------------------------------------------------------------
' Procedure     : btSalvar_Click
' Authors       : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
'                 João Paulo (Rotina para susbstituição no arquivo texto
' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
' Date          : 10/2/2013
' Comentários   : Salva o caminho no arquivo SysApac.Par
'---------------------------------------------------------------------------------------
Private Sub btSalvar_Click()
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On Error GoTo TrataErro
Dim NomeProcedimento As String
    NomeProcedimento = "btSalvar_Click"
    'Adiciona o nome do procedimento à função
    PegaProcedimento (NomeProcedimento)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PlaySound fLocalBd & "\div\sons\click.wav", 1, 1

If Len(Dir(Me!Path_0) & "") = 0 Then
    MsgBox "Arquivo inexistente no caminho indicado.  Use o botão procurar...", vbInformation, "Aviso"
    Me!btProcurar.SetFocus
    Exit Sub
End If

If InStr(Me!Path_0, DLookup("NomeBe", "tblCaminhoBe")) = 0 Then
    MsgBox "O back-end selecionado não faz parte do projeto..." & vbCrLf & vbCrLf & "Selecione o back-end " & DLookup("NomeBe", "tblCaminhoBe") _
    , vbInformation, "Aviso"
    Me!btProcurar.SetFocus
    Exit Sub
End If

If Not Me!Path_0 = CaminhoAtual Then
    'MsgBox "O programa será fechado" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
    'Reabra o programa e aguarde pela conclusão da nova configuração.", vbInformation, "Aviso"
     'DoCmd.Close acForm, "frmCaminhoBeRede"
Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String, CaminhoSysApac_par As String

    sFileName = CurrentProject.path & "\SysApac.Par"
    iFileNum = FreeFile
    'Grava na variável o último caminnho válido no arquivo SysApac.Par
    CaminhoSysApac_par = DLookup("CaminhoSysApac_par", "tblCaminhoBe")
    Open sFileName For Input As iFileNum

    Do Until EOF(iFileNum)
        Line Input #iFileNum, sBuf
            sTemp = sTemp & sBuf & vbCrLf
        Loop
        Close iFileNum
    sTemp = Replace(sTemp, CaminhoSysApac_par, Me.lbCaminho.Caption)

    iFileNum = FreeFile
    Open sFileName For Output As iFileNum
    Print #iFileNum, sTemp
    Close iFileNum
    'Atualizo a tabela para que seja gravado no campo o novo caminho gravado no arquivo SysApac.par, assim podendo
    'ser novamente alterado caso se deseje
    CurrentDb.Execute "UPDATE CaminhoSysApac_par set CaminhoSysApac_par =  '" & Me.lbCaminho.Caption & "'"
Else
    'MsgBox "Saindo sem alterações...", vbInformation, "Aviso"
    'DoCmd.Close acForm, "frmCaminhoBeRede"
End If
Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
Exit Sub
TrataErro:
    Select Case err.Number
  Case 0
      'Não é um erro
  Case Else
      DoCmd.Hourglass False
      DoCmd.Echo True
      'Chama a função global de tratamento de erros
        GlobalErrHandler (Me.Name)
  End Select
End Sub


Cumprimentos.