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

Traduções deste artigo Traduções deste artigo
ID do artigo: 210227 - Exibir os produtos aos quais esse artigo se aplica.
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).

Expandir tudo | Recolher tudo

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 = strHoldString
    
    StripStringEnd:
       Exit Function
    
    StripStringError:
       MsgBox Error$
       Resume StripStringEnd
    End 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.

Propriedades

ID do artigo: 210227 - Última revisão: quarta-feira, 11 de outubro de 2006 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft Access 2000 Standard Edition
Palavras-chave: 
kbmt kbinfo kbprogramming KB210227 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: 210227

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