Leitura no RegEdit

[Guest Ed-Claret]

olá amigos...

Como faço para fazer uma leitura no Regedit???

Corrego assim....

....

ws.RegWrite "HKEY_CURRENT_USERSOFTWARE\Text1\Nome" & Text1.text, "registro"

para abrir tento assim e da erro de automação:

Text1.text = ws.RegRead ("HKEY_CURRENT_USERSOFTWARE\Text1\Nome")

fiz assim tambem e da o mesmo erro

Text1.text = ws.RegRead ("HKEY_CURRENT_USERSOFTWARE\Text1\Nome")

Para abrir o Registro tudo bem, porém preciso abrir o nome somente

obrigado por qualquer ajuda...........

[Graymalkin]

Mas, o nome do que você cria é diferente do nome que você está tentando ler. É isso mesmo? Existe um sequência chamada somente "Nome"?

Abraços,

Graymalkin

[Guest Ed-Claret]

PRECISO LER QUE O OUTRARA FORA GRAVADO DENTRO DA CHAVE NOME.

Preciso então saber o que tem no nome, sendo o titulo e registro

[Graymalkin]

PRECISO LER QUE O OUTRARA FORA GRAVADO DENTRO DA CHAVE NOME.

Preciso então saber o que tem no nome, sendo o titulo e registro

Mas, você prestou atenção no que eu perguntei? Aqui você cria...

ws.RegWrite "HKEY_CURRENT_USERSOFTWARE\Text1\Nome" & Text1.text, "registro"

... ["Nome" + o que estiver escrito na textbox Text1], mas quando vai ler você faz:

Text1.text = ws.RegRead ("HKEY_CURRENT_USERSOFTWARE\Text1\Nome")

Não tem nada errado nisso, não?

Abraços,

Graymalkin

[Guest Ed-Claret]

Ai é que esta o problema....

Preciso ler o conteudo gravado em Nome.

Em nome foi gravado dados do Text1.Text e o seu registro, tipo assim...

ws.RegWrite "HKEY_CURRENT_USERSOFTWARE\Text1\Nome" & Text1.text, "registro"

...onde

ws.RegWrite "HKEY_CURRENT_USERSOFTWARE\Text1\Nome" & ED-Claret, "12345"

... preciso ler o Nome "ED-Claret" e colocar ele num text e o registro em outro text.

Entendeu????

Abraços e obrigado pela atenção

[Graymalkin]

Eu entendi, só que você não pode se referenciar a uma chave (ou valor de sequência) sem o nome *exato*. Por isso o ideal seria criar dois valores de sequência dentro da chave "Nome", ao invés de concatenar o nome a string "Nome". Veja um exemplo:

Gravando:

editora = "ED-Claret"
registro = "12345"

ws.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Text1\Nome\Editora", editora
ws.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Text1\Nome\Registro", registro

Lendo:

editora = ws.RegRead("HKEY_CURRENT_USER\SOFTWARE\Text1\Nome\Editora")
registro = ws.RegRead("HKEY_CURRENT_USER\SOFTWARE\Text1\Nome\Registro")

Debug.Print editora, registro

Sacou? ;)

Graymalkin