2文字列と親文字列の間の文字列を取得する

Question

2つの区切り文字の間から文字列を抽出する必要があります。具体的には、添付ファイル名に電子メールアドレスを添付して処理する必要があります送信者に返送されます。 （これは、Outlook 2013のVBA内にある）

ファイル名の形式は次のとおりです。 ADDR johnDOTdoeATfooDOTcom XADDR A646A10.FOO

私の区切り文字が

ADDRとXADDRです私がする必要があるのは、文字列を分割し、XADDRの後の区切り文字とファイル名の間の電子メール文字列を返すことです。

メールアドレスとファイル名の両方が異なる場合がありますが、ファイル拡張子は固定されていません。

固定されているのは、常にADDRが最初の4文字になり、.XXXが最後の3文字になります。

Answer 1

は、あなたがしたい部分を抽出するために、2番目の区切り文字（この場合は「XADDR」）が始まる見つけることInStr機能を使用して、Mid機能することができます

Sub InstrDemo() 
    Dim s, delim1, delim2 As String 
    s = "ADDRjohnDOTdoeATfooDOTcomXADDRA646A10.FOO" 
    delim1 = "ADDR" 
    delim2 = "XADDR" 

    Dim pos As Integer 
    pos = InStr(s, delim2) 

    Dim part1, part2 As String 
    part1 = Mid(s, Len(delim1) + 1, pos - Len(delim1) - 1) 
    part2 = Mid(s, pos + Len(delim2)) 

    MsgBox (part1 & vbCrLf & part2) 

End Sub 

出力：を

は、（それが一度に簡単だったので、私は、Excel 2013を使用していました。）

それは"magic numbers"の使用を避けるため、そのような文字列としてで区切り文字を入れた方が良いでしょう。

---

それとも、Split機能を使用できます。

Sub SplitDemo() 
    Dim s, delim1, delim2 As String 
    s = "ADDRjohnDOTdoeATfooDOTcomXADDRA646A10.FOO" 
    delim1 = "ADDR" 
    delim2 = "XADDR" 

    s = Mid(s, Len(delim1) + 1) 
    Dim parts() As String 
    parts = Split(s, delim2) 

    ' optional: check that the correct number of parts were found... 
    If UBound(parts) <> 1 Then 
     MsgBox ("Wrong number of parts.") 
    End If 

    MsgBox (parts(0) & vbCrLf & parts(1)) 

End Sub 

従来の方法と同じ出力を提供します。

Answer 2

あなたは正規表現を使用する場合は行うことは非常に簡単です、あなたが言及あなたはこのような「ADDR（。*）XADDR」など、ユーザの正規表現をすることができますHow to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops

としてこのリンクを使用することができ、これはあなたを与えるだろうメールアドレス