Pergunta : Eu quis analisar gramaticalmente para fora o texto na probabilidade using VBA e para conservar os valores em uma propagação cobrir

Olá!, o

I tem uma mensagem e um campo do texto segundo as indicações do retrato unido. Estes são de OnTime, um produto de Axasoft. o

I quer ao

1) analisa gramaticalmente para fora este email e extrai o número do incidente using o
2) de VBA (2000 neste exemplo) Pase o emal e extrai o
3 do status (durante o desenvolvimento)) adiciona o texto do “número incidente”, o “status” a um file

I do texto supor que este exigiria VBA, mas toda a aproximação que trabalhar é muito bem.

class= do

Resposta : Eu quis analisar gramaticalmente para fora o texto na probabilidade using VBA e para conservar os valores em uma propagação cobrir

Está aqui minha solução.  Seguir estas instruções para adicionar o código à probabilidade.

1.  Começar a probabilidade
2.  Estalar ferramentas > macro > editor de Visual Basic
3.  Se não já expandido, expandir objetos da probabilidade de Microsoft Office
4.  Se não já expandido, expandir os módulos
5.  Selecionar um módulo existente (por exemplo Module1) double-clicking nele ou criar um módulo novo right-clicking os módulos e selecionando a inserção > o módulo.
6.  Copiar o código da caixa da pequena notícia do código e colá-lo na placa right-hand da janela do editor de VB da probabilidade
7.  Editar o código como necessário.  Eu incluí comentários onde que algo precisa ou pode mudar
8.  Estalar o ícone da disquete na barra de ferramentas para conservar as mudanças
9.  Fechar o editor de VB

Para usar isto

1.  Selecionar ou abrir uma mensagem
2.  Funcionar o CShene macro

Uma alternativa é alterar ligeiramente o código para funcioná-lo de uma régua.
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:

CShene secundário ()
    olkMsg não ofuscante como Outlook.MailItem, strIncidentNumber como a corda, strStatus como a corda, varLine como a variação, _
        do arrLine variação tão, objFSO quanto o objeto, objFile como o objeto
    Selecionar o caso TypeName (Application.ActiveWindow)
        Encaixotar o “explorador”
            Ajustar o olkMsg = o Application.ActiveExplorer.Selection (1)
        Encaixotar o “inspetor”
            Ajustar o olkMsg = o Application.ActiveInspector.CurrentItem
    Terminar seleto
    Para cada varLine na separação (olkMsg.Body, vbCrLf)
        arrLine = separação (varLine, “: ")
        Se UBound (arrLine) > 0 então
            Selecionar o arrLine do caso (0)
                Encaixotar do “o número incidente”
                    strIncidentNumber = arrLine (1)
                Caso “status”
                    strStatus = arrLine (1)
                    Retirar para
            Terminar seleto
        Terminar se
    Em seguida
    Ajustar o objFSO = o CreateObject (“Scripting.FileSystemobject”)
    “Na linha mudança seguinte o nome de arquivo e o trajeto.”
    objFile ajustado = objFSO.OpenTextFile (“C:\eeTesting\CShene.txt”, ForAppending, verdadeiros)
    objFile.WriteLine GetPrintable (strIncidentNumber) & “,” & GetPrintable (strStatus)
    objFile.Close
    Ajustar o objFSO = nada
    Ajustar objFile = nada
Terminar o submarino

Função GetPrintable (strValue como a corda) como a corda
    intCount não ofuscante como o inteiro, strTemp como a corda
    Para o intCount = 1 a Len (strValue)
        strTemp = meados de (strValue, intCount, 1)
        Selecionar o caso Asc (o strTemp)
            Caso 32 126
                GetPrintable = GetPrintable & strTemp
        Extremidade seleta
    Em seguida
    GetPrintable = guarnição (GetPrintable)
Função do fim
Outras soluções  
 
programming4us programming4us