Você está offline; aguardando reconexão

ACC2000: Como caracteres específicos de faixa de uma seqüência de caracteres

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: 210227
Moderado: Requer básica de macro, codificação e interoperabilidade habilidades.

Este artigo se aplica a um banco de dados do Microsoft Access (.mdb) e para um projeto Microsoft Access (.adp).

Sumário
Este artigo mostra como criar uma função personalizada para remover caracteres inválidos ou caracteres que você não deseja de uma seqüência de caracteres. Você pode usar essa função em consultas e caixas de entrada de texto.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
Mais Informações
Para remover caracteres inválidos ou caracteres que você não deseja de uma seqüência de caracteres, execute estas etapas:
  1. Crie um módulo e digite a seguinte linha na seção Declarações caso ainda não estiver lá:
    Option Explicit					
  2. Digite o seguinte procedimento:
     ' --------------------------------------------------' Function StripString()'' Returns a string minus a set of specified chars.' --------------------------------------------------Function StripString(MyStr As Variant) As Variant   On Error GoTo StripStringError   Dim strChar As String, strHoldString As String   Dim i As Integer   ' Exit if the passed value is null.   If IsNull(MyStr) Then Exit Function   ' Exit if the passed value is not a string.   If VarType(MyStr) <> 8 Then Exit Function   ' Check each value for invalid characters.   For i = 1 To Len(MyStr)      strChar = Mid$(MyStr, i, 1)      Select Case strChar         Case ".", "#", ",", "-"            ' Do nothing         Case Else            strHoldString = strHoldString & strChar      End Select   Next i   ' Pass back corrected string.   StripString = strHoldStringStripStringEnd:   Exit FunctionStripStringError:   MsgBox Error$   Resume StripStringEndEnd Function					
  3. Para testar essa função, digite a seguinte linha na janela Verificação imediata e, em seguida, pressione ENTER:
    ? StripString("Test.#,-")						
    Observação que a função imprime a palavra "Test" na janela Verificação imediata. Caracteres inválidos (". #,-") com êxito são retirados da seqüência de teste.
Referências
Para obter mais informações sobre informações sobre a manipulação de seqüência de caracteres, clique em Ajuda do Microsoft Access no menu Ajuda , digite Len no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir os tópicos retornados.
remover removendo remove

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 210227 - Última Revisão: 10/11/2006 19:06:19 - Revisão: 3.2

Microsoft Access 2000 Standard Edition

  • kbmt kbinfo kbprogramming KB210227 KbMtpt
Comentários