Clipper On Line • Ver Tópico - Bug em hb_GetEnv/GetEnv

Bug em hb_GetEnv/GetEnv

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

Moderador: Moderadores

 

Bug em hb_GetEnv/GetEnv

Mensagempor dbsh » 15 Mar 2014 15:22

hb_GetEnv('programfiles'))
e
GetEnv('programfiles'))
no windows 64 bits
retorna sempre "C:\Program Files (x86)"

isto acontece sempre que duas variáveis de ambiente são iguais ate a parte que você necessita
EX:
ProgramFiles
ProgramFiles(x86)

gambiarra para fazer funcionar

FUNCTION GetEnvProgramFiles()
LOCAL sRet

sRet := hb_GetEnv('programfiles')

IF Right(Upper(sRet), 5) = '(X86)'
    sRet := Trim(Left(sRet, Len(sRet) - 5))
ENDIF

RETURN sRet
010011110010000001110011011101010110001101100101011100110111001101101111001000001110100100100000011000110110111101101110011100110111010001110010011101011110110101100100011011110010000001100001001000000110111001101111011010010111010001100101
01001101011000010111001001100011011011110111001100100000010000010110111001110100011011110110111001101001011011110010000001000100011001010010000001000010011011110110111001101001
0101010001100101011011000011101000100000001010000011001000110111001010010011100100101101001110010011100000110100001100110010110100110101001100100011100100110000
Avatar de usuário

dbsh
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 115
Data de registro: 14 Jul 2004 14:19
Cidade/Estado: ES
Curtiu: 2 vezes
Mens.Curtidas: 15 vezes



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro