EXEMPLO: Funções de conversão de Variant ARRAYCONVERT.EXE

Traduções deste artigo Traduções deste artigo
ID do artigo: 250344 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Sumário

ArrayConvert.exe é um exemplo que é usado para converter variantes de um tipo para variações de outro tipo. Por exemplo, se você estiver usando o Visual Basic Script (VBScript), essas funções de conversão ajudar você na conversão de um Variant que contém uma seqüência de octeto para um Variant que contém uma seqüência de caracteres hexadecimais.

Mais Informações

O seguinte arquivo está disponível para download no Centro de download da Microsoft:
ArrayConvert.exe
O arquivo ArrayConvert.exe contém os seguintes arquivos:

Recolher esta tabelaExpandir esta tabela
ADS.vbpbytes 747
ADS.vbwbytes 35
ArrayConvert.cls3017 bytes
ArrayConvertTest.bas1205 bytes
ArrayConvertTest.vbgbytes 67
ArrayConvertTest.vbpbytes 884
ArrayConvertTest.vbwbytes 31
ADS.dllbytes 24.576
ADs.expbytes 996
ADs.libbytes 2536
AdsConvert.vbgbytes 73


Data de lançamento: 13/abr-2000

Para obter informações adicionais sobre como baixar arquivos de suporte da Microsoft, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
119591Como obter arquivos de suporte da Microsoft a partir de serviços online
Microsoft examinou esse arquivo em busca de vírus. Microsoft utilizou o mais recente software de detecção de vírus que estava disponível na data em que o arquivo foi publicado. O arquivo é armazenado em servidores com segurança avançada que ajudam a evitar qualquer alteração não autorizada no arquivo. As cinco funções que estão neste exemplo são:
  1. CStrArray - Use essa função para converter uma matriz Variant de seqüências de caracteres para uma Variant matriz de variantes contendo seqüências de caracteres. Isso permite que VBScript atributos de seqüência de caracteres de valores múltiplos acesso retornados em conjuntos de registros ADO.

    CvOctetStr2vHexStr - Use essa função para converter uma matriz Variant de bytes para um Variant contendo uma seqüência hexadecimal codificado em ASCII. Isso permite que o VBScript para converter um Variant ADSTYPE_OCTETSTRING em uma seqüência de caracteres ASCII 0-9 A f.

    CvHexStr2vOctetStr - Use essa função para converter um Variant que contém uma seqüência hexadecimal codificado em ASCII para uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING seqüências do ASCII de caracteres 0-9 A f.

    CvOctetStr2vStr - Use essa função para converter uma matriz Variant de bytes em um Variant que contém uma seqüência de caracteres ASCII. Isso permite que o VBScript traduzir um Variant ADSTYPE_OCTETSTRING em uma seqüência de caracteres ASCII.

    CvStr2vOctetStr - Use essa função para converter uma variante contendo uma seqüência de caracteres em uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING de seqüências de caracteres ASCII.
  2. CvOctetStr2vHexStr - Use essa função para converter uma matriz Variant de bytes para um Variant contendo uma seqüência hexadecimal codificado em ASCII. Isso permite que o VBScript para converter um Variant ADSTYPE_OCTETSTRING em uma seqüência de caracteres ASCII 0-9 A f.

    CvHexStr2vOctetStr - Use essa função para converter um Variant que contém uma seqüência hexadecimal codificado em ASCII para uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING seqüências do ASCII de caracteres 0-9 A f.

    CvOctetStr2vStr - Use essa função para converter uma matriz Variant de bytes em um Variant que contém uma seqüência de caracteres ASCII. Isso permite que o VBScript traduzir um Variant ADSTYPE_OCTETSTRING em uma seqüência de caracteres ASCII.

    CvStr2vOctetStr - Use essa função para converter uma variante contendo uma seqüência de caracteres em uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING de seqüências de caracteres ASCII.
  3. CvHexStr2vOctetStr - Use essa função para converter um Variant que contém uma seqüência hexadecimal codificado em ASCII para uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING seqüências do ASCII de caracteres 0-9 A f.

    CvOctetStr2vStr - Use essa função para converter uma matriz Variant de bytes em um Variant que contém uma seqüência de caracteres ASCII. Isso permite que o VBScript traduzir um Variant ADSTYPE_OCTETSTRING em uma seqüência de caracteres ASCII.

    CvStr2vOctetStr - Use essa função para converter uma variante contendo uma seqüência de caracteres em uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING de seqüências de caracteres ASCII.
  4. CvOctetStr2vStr - Use essa função para converter uma matriz Variant de bytes em um Variant que contém uma seqüência de caracteres ASCII. Isso permite que o VBScript traduzir um Variant ADSTYPE_OCTETSTRING em uma seqüência de caracteres ASCII.

    CvStr2vOctetStr - Use essa função para converter uma variante contendo uma seqüência de caracteres em uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING de seqüências de caracteres ASCII.
  5. CvStr2vOctetStr - Use essa função para converter uma variante contendo uma seqüência de caracteres em uma matriz Variant de bytes. Isso permite que o VBScript criar variantes para ADSTYPE_OCTETSTRING de seqüências de caracteres ASCII.
Para usar o exemplo, clique duas vezes no arquivo executável auto-extraível ArrayConvert.exe. Usando o Visual Basic, abra o arquivo ArrayConvertTest.vbg. Depois de abrir o projeto você pode executar o programa de teste que demonstra como usar as funções de conversão.

Para usar as funções do VBScript, você pode registrar o o arquivo Ads.Dll fazendo Ads.dll de Regsvr32 e chamando as funções do VBScript.

A seguir está um exemplo de usar a função CStrArray um VBScript para converter e exibir os membros de listas de distribuição em uma organização do Exchange:
 
Set cnvt = CreateObject("ADs.ArrayConvert")
Set conn = CreateObject("ADODB.connection")
conn.provider = "ADSDSOObject"
conn.open ""
Set rs = conn.execute( _
    "<LDAP://Server/o=organization/ou=site/cn=recipients>;(objectClass=groupOfNames);ADsPath,member;onelevel")
       
While Not rs.EOF
    v1 = cnvt.CStrArray(rs.fields("member").Value)
    For Each v2 In v1
	msgbox v2
    Next

    rs.movenext
Wend
				

Propriedades

ID do artigo: 250344 - Última revisão: quinta-feira, 5 de agosto de 2004 - Revisão: 4.2
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 4.0 Enterprise Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palavras-chave: 
kbmt kbdownload kbfile kbhowto kbprogramming kbsample KB250344 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 250344

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com