�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ抵ｿｽ�ｿｽ�ｿｽ�ｿｽ逡ｶ�ｿｽ�ｿｽ�ｿｽ�ｿｽP�ｿｽﾆ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽQ�ｿｽﾅはゑｿｽ�ｿｽﾜれた�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽｲゑｿｽ�ｿｽo�ｿｽ�ｿｽ�ｿｽﾖ撰ｿｽ
�ｿｽ@�ｿｽ@pfStrExtract()
�ｿｽ�ｿｽ�ｿｽ髟ｶ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽO�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾙゑｿｽ�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾙゑｿｽ�ｿｽ�ｿｽ�ｿｽA
�ｿｽﾓゑｿｽ�ｿｽﾂの包ｿｽ�ｿｽ�ｿｽ�ｿｽﾅはゑｿｽ�ｿｽﾜれた�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽm�ｿｽ閧ｽ�ｿｽ�ｿｽ�ｿｽﾆゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB
InStr�ｿｽ�ｿｽMid�ｿｽﾅ関撰ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�し�ｿｽﾄゑｿｽ�ｿｽﾌでゑｿｽ�ｿｽ�ｿｽ�ｿｽA
�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜとめてゑｿｽ�ｿｽﾜゑｿｽ�ｿｽﾆゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆで搾ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌゑｿｽ�ｿｽ�ｿｽ�ｿｽﾌ関撰ｿｽ�ｿｽﾅゑｿｽ�ｿｽB
�ｿｽ@
�ｿｽ痰ｦ�ｿｽﾎ、�ｿｽw�ｿｽ�ｿｽ�ｿｽ{�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽZ�ｿｽg�ｿｽ謦ｷ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽx�ｿｽﾆゑｿｽ�ｿｽ�ｿｽ�ｿｽZ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽA
�ｿｽ�ｿｽﾌ厄ｿｽ�ｿｽO�ｿｽｲゑｿｽ�ｿｽo�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆゑｿｽ�ｿｽ�ｿｽ�ｿｽﾅまゑｿｽ�ｿｽB
�ｿｽ@? pfStrExtract("�ｿｽ�ｿｽ�ｿｽ{�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽZ�ｿｽg�ｿｽ謦ｷ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ","�ｿｽ�ｿｽ�ｿｽs","�ｿｽ�ｿｽ")
�ｿｽ�ｿｽ�ｿｽ@�ｿｽ�ｿｽ�ｿｽZ�ｿｽg�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽP�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽO�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆ、�ｿｽ�ｿｽ�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ搾ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽ逡ｶ�ｿｽ�ｿｽ�ｿｽ�ｿｽQ�ｿｽﾌ趣ｿｽO�ｿｽﾜでゑｿｽ�ｿｽﾔゑｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽQ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽO�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆ、�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽP�ｿｽﾌ趣ｿｽ�ｿｽ�ｿｽ�ｿｽ迪ｳ�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ右�ｿｽ[�ｿｽﾜでゑｿｽ�ｿｽﾔゑｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽﾌよう�ｿｽﾉゑｿｽ�ｿｽ�ｿｽﾎ、�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽg�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽﾌゑｿｽ�ｿｽ�ｿｽh�ｿｽ�ｿｽ�ｿｽC�ｿｽu�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾔゑｿｽﾜゑｿｽ�ｿｽB
�ｿｽ@? pfStrExtract(pfStrExtract(CurrentDb.name,"",":")
�ｿｽ�ｿｽ C
pfStrExtract( pStrX , [ pStr1 ] , [ pStr2 ] , [ pComp ] )�ｿｽ@Input
pStrX�ｿｽF(�ｿｽK�ｿｽ{)�ｿｽﾎ象となる文�ｿｽ�ｿｽ�ｿｽ�ｿｽ
pStr1�ｿｽF(�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ)�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ髟ｶ�ｿｽ�ｿｽ�ｿｽ�ｿｽP
�ｿｽ@�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽﾍ抵ｿｽ�ｿｽ�ｿｽ�ｿｽO�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅゑｿｽ
pStr2�ｿｽF(�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ)�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ髟ｶ�ｿｽ�ｿｽ�ｿｽ�ｿｽQ
�ｿｽ@�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽﾍ抵ｿｽ�ｿｽ�ｿｽ�ｿｽO�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅゑｿｽ
pComp�ｿｽF(�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ)�ｿｽ]�ｿｽ�ｿｽ�ｿｽﾉ使�ｿｽp�ｿｽ�ｿｽ�ｿｽ髟ｶ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽr�ｿｽ�ｿｽ�ｿｽ[�ｿｽh�ｿｽ�ｿｽ�ｿｽw�ｿｽ�ｿｽ
�ｿｽ@�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽvbBinaryCompare�ｿｽﾅゑｿｽ
�ｿｽ@vbBinaryCompare�ｿｽF0�ｿｽF�ｿｽo�ｿｽC�ｿｽi�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ[�ｿｽh�ｿｽﾅ費ｿｽr
�ｿｽ@vbTextCompare�ｿｽF1�ｿｽF�ｿｽe�ｿｽL�ｿｽX�ｿｽg�ｿｽ�ｿｽ�ｿｽ[�ｿｽh�ｿｽﾅ費ｿｽr
�ｿｽ@vbDatabaseCompare�ｿｽF2�ｿｽF�ｿｽf�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽﾌ設抵ｿｽﾅ費ｿｽr
�ｿｽ@Output
�ｿｽﾈゑｿｽ
�ｿｽ@Return
�ｿｽ�ｿｽ�ｿｽo�ｿｽ�ｿｽ�ｿｽ黷ｽ�ｿｽ�ｿｽ�ｿｽﾊの包ｿｽ�ｿｽ�ｿｽ�ｿｽｪ返ゑｿｽﾜゑｿｽ
-------------- �ｿｽT�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽR�ｿｽ[�ｿｽh --------------
Public Function pfStrExtract _
(pStrX, Optional pStr1 As String = "", _
Optional pStr2 As String = "" , _
Optional pComp As Long = vbBinaryCompare) As String
Dim tmpPos As Long
Dim tmpStr As String
tmpPos = InStr(1, pStrX, pStr1, pComp)
If tmpPos = 0 Then
Exit Function
End If
tmpStr = Mid(pStrX, tmpPos + Len(pStr1))
If pStr2 = "" Then
pfStrExtract = tmpStr
Else
tmpPos = InStr(1, tmpStr, pStr2, pComp)
If tmpPos = 0 Then
pfStrExtract = ""
Else
pfStrExtract = Mid(tmpStr, 1, tmpPos - 1)
End If
End If
End Function
�ｿｽﾄ用�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌで、�ｿｽﾐとつ用�ｿｽﾓゑｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽﾎ、�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ作が�ｿｽy�ｿｽﾉコ�ｿｽ[�ｿｽf�ｿｽB�ｿｽ�ｿｽ�ｿｽO�ｿｽﾅゑｿｽ�ｿｽ�ｿｽ謔､�ｿｽﾉなゑｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽﾌネ�ｿｽ^�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ|�ｿｽ`�ｿｽb�ｿｽﾆな��ｿｽ
