Restaurar variavel from arquivo MEM

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Eduardo Pinho
Colaborador
Colaborador
Mensagens: 72
Registrado em: 13 Jun 2014 19:30
Localização: Niteroi

Restaurar variavel from arquivo MEM

Mensagem por Eduardo Pinho »

Pessoal,
Alguem sabe se existe alguma forma de restaurar uma variavel especifica de dentro de um arquivo de variaveis (.MEM) ?
O comando RESTORE FROM restaura todas e ferra com todas as variaveis do momento, pois esse arquivo .mem tem muitas variaveis e só quero pegar uma.
Agradeço as dicas.
Avatar do usuário
mustafa
Usuário Nível 1
Usuário Nível 1
Mensagens: 4
Registrado em: 02 Jun 2018 09:24
Localização: Alicante/España

Restaurar variavel from arquivo MEM

Mensagem por mustafa »

Hola amigo Eduardo Pinho
No se si puede servir ?
Primero salvo las variables
Crear File MEM
*-----------------------------------------------------------------------------*
iiNom := "Percasy"
iiCon := "Cliente"
baNom := "Percasy.mem"
SAVE ALL LIKE ii* TO &baNom
*-----------------------------------------------------------------------------*
y luego solo utilizo una que es en el sample iiNom
Restore File MEM
*-----------------------------------------------------------------------------*
RESTORE FROM Percasy.mem ADDITIVE
cDBName := ALLTRIM(iiNom) +'.db3'
*-----------------------------------------------------------------------------*

Saludos
Mustafa
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Restaurar variavel from arquivo MEM

Mensagem por JoséQuintas »

Código: Selecionar todos

FUNCTION RestoreMyVar()

   PRIVATE MyVar

   RESTORE FROM XXX ADDITIVE
   RETURN MyVar
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder