Pergunta : Email address do extrato de um campo de memorando do acesso.

Olá! os peritos,

How podem mim extraem o email address de qryEmail.Body (campo de memorando) e adicionam-no a tblEmail.Bounce na mesma base de dados 2007 do acesso?

Thank você!
class= do

Resposta : Email address do extrato de um campo de memorando do acesso.

É o email address o ÚNICO artigo nesse campo de memorando? I " m que apostam o não são, assim que você teria que ter algum método para encontrar esse email address no campo de memorando, e AFAIK lá não é nenhuma ação macro do builtin que fará que - você precisará de usar as expressões regulares, que podem avaliar uma corda de texto/lima e lhe retornar uma corda combinada, baseadas “na expressão” o fonte.

O código unido abaixo fará este. Apenas a cópia/pasta aqueles artigos em um módulo padrão novo (nome que basTextFunctions do módulo, ou em qualquer outra coisa semelhante), e usa então a função de FindEmailInString para retornar o primeiro email address localizou na corda. Para fazer que, supor o ter um formulário em que o campo de memorando está atual, você poderia incluir uma tecla para mostrar o valor:

Sub MyButton_Click ()
  Msgbox FindEmailInString (Me.YourMemoField)
Submarino da extremidade

Anotar o código para essa expressão regular veio da página excelente de John Nurick aqui: http://www.j.nurick.dial.pipex.com/Code/index.htm

Para ler mais sobre expressões regulares, ver nosso próprio o artigo de Patrick Matthew no registro ex: http://www.experts-exchange.com/articles/Programming/Languages/Visual_Basic/Using-Regular-Expressions-in-Visual-Basic-for-Applications-and-Visual-Basic-6.html?sfQueryTermInfo=1+30+express+regular





1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
Função pública FindEmailInString (StringToSearch como a corda) como a corda

sExp não ofuscante como a corda

sExp = “\ b [A-Z0-9. _%+-] +@ [A-Z0-9. -] + \. [A-Z] {2.4} \ b”
rgxExtract de FindEmailInString (StringToSearch, sExp)

Função do fim
rgxExtract público da função (alvo opcional de ByVal como a variação, _
    Teste padrão opcional como a corda = o "", _
    Artigo opcional de ByVal como por muito tempo = 0, _
    Diferenciando maiúsculas e minúsculas opcional como bôoleano = falso, _
    FailOnError opcional como bôoleano = retifica, _
    Opcional persistir como bôoleano = falso) o _
  Como a variação
   
  'Função de harmonização da expressão regular apropriada para o uso
  'em VB/A geralmente e em perguntas do acesso.
  'Por John Nurick. 14 de janeiro de 06 atualizado.
   
  'Toma uma corda de busca (alvo) e uma expressão regular
  '(Teste padrão), e um argumento opcional do artigo.
  '- Se o artigo é omitido e um substring do alvo combina o teste padrão,
  '  retornos que substring.
  '- Se o teste padrão inclui o agrupamento de parênteses, um substring do alvo
  '  combina o teste padrão, e o artigo é um inteiro, retorna o submatch
  '  especific por Artigo (o primeiro submatch é o artigo 0). Se não há
  '  bastante submatches, zero dos retornos. Valores negativos do começo do artigo
  '  contando com o último submatch.
  '- Se nenhum fósforo, retornos anula.
  '- Os retornos anulam no erro a menos que FailOnError for verdadeiro.
  '  Combina sempre de encontro ao alvo inteiro (isto é global e
  '  Multiline ser verdadeiro).
  
  'Fósforos diferenciando maiúsculas e minúsculas não obstante o caso.
 
  'Persistem os controles se o objeto compilado de RegExp
  'permanece na memória pronta para a chamada seguinte ao
  'função ou se está dispor imediatamente. Isto
  'significa que a função pode ser usada nas perguntas sem ter
  'para criar, compilar, usar e destruir um objeto novo de RegExp para
  'cada fileira que está sendo processada. Mas igualmente significa que o objeto
  'as sobras na memória após a pergunta funcionaram. Para destruir
  'objetar e liberar a memória, chamam esta função uma
  'última vez sem argumentos.
  '
  'Chamando a função com argumentos diferentes (por exemplo um novo
  'O teste padrão) recompiles o objeto de RegExp, assim
  'a função pode ser usada em perguntas diferentes. De qualquer modo lá
  'podem ser os problemas se duas linhas estão chamando a função em
  'o mesmo tempo.
 
  rgxPROC_NAME de Const = “rgxExtract”
  Minério de estática como o objeto 'VBScript_RegExp_55.RegExp
    'Meios de estática da declaração nós não temos que criar
    'e compilar o objeto de RegExp cada única hora
    'a função é chamada.
  oMatches não ofuscantes como o objeto 'VBScript_RegExp_55.MatchCollection
   
  No erro ErrHandler empreendedores
  valor do retorno do defeito do rgxExtract = do zero '
    'N.B.: se FailOnError é falso, retorna o zero no erro
 
  Se IsMissing (alvo) então
    'Este é o sinal dispr do minério
    Ajustar o minério = nada
    Retirar a função 'com valor de defeito
  Terminar se
   
  'Criar o objeto de RegExp caso necessário
  Se o minério não é nada então
    Ajustar o minério = o CreateObject (“VBScript.Regexp”)
  Terminar se
 
  Com minério
    'Verific se os argumentos atuais (à excepção do alvo)
    'ser diferente daqueles armazenados no minério, e actualizá-los
    '(desse modo recompiling o regex) somente caso necessário.
    Se diferenciando maiúsculas e minúsculas = .IgnoreCase então
      .IgnoreCase = não .IgnoreCase
    Terminar se
    . Global = retificar
    . Multiline = retificar
'    Se Multiline <> . Multiline então
'      . Multiline = Multiline
'    Terminar se
    Se teste padrão <> . Teste padrão então
      . Teste padrão = teste padrão
    Terminar se
 
  'Finalmente, executar o fósforo
    Se IsNull (alvo) então
      rgxExtract = zero
    Mais
      Ajustar oMatches = oRE.Execute (o alvo)
      Se oMatches.Count > 0 então
        Se oMatches (0) .SubMatches.Count = 0 então
          'Nenhum () grupo no teste padrão: retornar o fósforo
          Se artigo < 0="" Then="">= oMatches.Count
              'O artigo positivo excedeu o número de fósforos
              rgxExtract = zero
              Se FailOnError então
                Err.Raise 9
              Terminar se
            Encaixotar mais
              rgxExtract = oMatches (artigo)
          Extremidade seleta
         
        Mais  'há uns ou vários () grupos capturados no teste padrão
              'retornar esse especific por Artigo
          Com oMatches (0) .SubMatches
            Se artigo < 0="" Then="">=. Contagem
                'O artigo positivo excedeu o número de submatches
                rgxExtract = zero
                Se FailOnError então
                  Err.Raise 9
                Terminar se
              Encaixotar mais 'o número de artigo válido
                rgxExtract =. Artigo (artigo)
            Extremidade seleta
          Extremidade com
        Terminar se
      Mais
        rgxExtract = zero
      Terminar se
    Terminar se
  Terminar com
 
  'Ordenar e saída normal
  Se não persiste o minério então ajustado = nada
  Retirar a função
 
ErrHandler:
  Se FailOnError então
    Com errar
      Selecionar o caso. Número
        'Substituir “a mensagem do erro objeto-definido” do defeito
        Caso 9: . Descrição = “subscrição fora da escala (o _ pedido do número de artigo”
          & “era maior do que o número de fósforos encontrados, ou do que o número” de _
          & “(...) agrupamento/que captura parênteses no teste padrão).”
        Caso 13: . Descrição = “tipo má combinação, provavelmente porque” _
          & “o argumento do "" do alvo do "" não podia ser convertido a uma corda”
        Caso 5017: . Descrição = de “erro sintaxe na expressão regular”
        Caso 5018: . Descrição = “quantifier inesperado na expressão regular”
        Caso 5019: . Descrição = “esperado “]” na expressão regular "
        Caso 5020: . Descrição = “esperado ")” na expressão regular "
      Caso mais
        Se o minério não é nada então 'não é criado o objeto de Regexp
          . A descrição = “não podia criar o objeto de VBScript.RegExp. ” & Err.Description
        Mais 'erro inesperado
          . Descrição = rgxPROC_NAME & “: ” &. Descrição
        Terminar se
      Terminar seleto
      Ajustar o minério = nada
      . Levantar Err.Number, rgxPROC_NAME, _
          rgxPROC_NAME & “(): ” &. Descrição
    Extremidade com
  Mais 'falha silenciosamente
    Err.Clear
    Ajustar o minério = nada
  Terminar se
Terminar a função
Outras soluções  
 
programming4us programming4us