Fråga : Jag önskade att parse ut text i framtidsutsikt using VBA, och den räddningen värderar i ett räkneark

Hi

I har ett meddelande och en text att sätta in, som visat i fäst föreställa. Dessa är från OnTime, en produkt från Axasoft.

I önskar till

1) Parse ut denna e-post, och extraktet incidentet numrerar using
2) Pase för VBA (2000 i detta exempel) det emal, och extraktet 3 för status (Pending utveckling)) fästar texten ”incident numrerar”, ”status” till en textfile

I antar att skulle detta kräv VBA, men att närma sig any att arbeten är boten.

" klar "

Svar : Jag önskade att parse ut text i framtidsutsikt using VBA, och den räddningen värderar i ett räkneark

Är här min lösning.  Följ dessa anvisningar att tillfoga kodifiera till framtidsutsikten.

1.  Starta framtidsutsikten
2.  Klicka bearbetar > makroen > den Visual Basic redaktören
3.  Utvidga Microsoft Officeframtidsutsikten anmärker, om inte redan utvidgat
4.  Utvidga enheter, om inte redan utvidgat
5.  Välj en existerande enhet (e.g. Module1) vid double-clicking på den eller skapa en ny enhet, genom att right-clicking enheter och att välja mellanlägget > enheten.
6.  Kopiera kodifiera från kodifierasnippeten boxas och klistrar den in i det höger förser med rutor av framtidsutsikt fönster för VB-redaktör
7.  Redigera kodifiera som behövd.  Inklusive kommentarer I wherever något behöver eller kan ändra
8.  Klicka diskettsymbolen på toolbaren till räddningen ändringarna
9.  Nära VB-redaktören

Att att använda detta

1.  Välj eller öppna ett meddelande
2.  Kör den macro CShenen

Ett alternativ är att förändra kodifiera litet för att köra den från en härska.
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:

UnderCShene ()
    Dunkel olkMsg som Outlook.MailItem, strIncidentNumber som stränger, strStatus som stränger, varLine som varianten, _,
        för arrLine Variant så, objFSO som anmärker, objFile som anmärker
    Välj fallet TypeName (Application.ActiveWindow)
        Case ”utforskaren”,
            Fastställd olkMsg = Application.ActiveExplorer.Selection (1)
        Fall ”inspektör”,
            Fastställd olkMsg = Application.ActiveInspector.CurrentItem
    Avsluta valt
    För varje varLine i splittring (olkMsg.Body, vbCrLf)
        arrLine = splittring (varLine, ”: ”)
        Om UBound (arrLine) > 0 därefter
            Välj fallarrLine (0)
                Fallet ”incident numrerar”,
                    strIncidentNumber = arrLine (1)
                Fall ”status”,
                    strStatus = arrLine (1)
                    Gå ut för
            Avsluta valt
        Avsluta om
    Därefter
    Fastställd objFSO = CreateObject (”Scripting.FileSystemobject”)
    ”På det nästa fodra ändring spara - namnge och banan.”,
    Fastställdt objFile = objFSO.OpenTextFile (”C:\eeTesting\CShene.txt”, ForAppending som, är riktiga)
    objFile.WriteLine GetPrintable (strIncidentNumber) & ”,” & GetPrintable (strStatus)
    objFile.Close
    Fastställd objFSO = ingenting
    Fastställdt objFile = ingenting
Avsluta suben

Fungera GetPrintable (strValue som stränger) som stränger
    Dunkel intCount som heltalet, strTemp som stränger
    För intCount = 1 till Len (strValue)
        strTemp = mitt- (strValue, intCount, 1)
        Välj fallet Asc (strTemp)
            Fall 32 till 126
                GetPrintable = GetPrintable & strTemp
        Avsluta valt
    Därefter
    GetPrintable = klippning (GetPrintable)
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us