日中関係

Function sBracketGUID(sGUID)
Dim sNoBrack, sTmp, ist, iend
If (IsNull(sGUID)) or (len(trim(sGUID)) = 0) Then
abort (L_NoUniqueGUID_ErrorMessage)
End if
ist = Instr(1, sGUID, "{")
If ist <= 0 Then
ist = 1
Else
ist = ist+1
End if
iEnd = Instr(ist, sGUID, "}")
If iEnd <= 0 Then
iEnd = len(sGUID)
Else
iEnd = iEnd - 1
End if
sNoBrack = Mid(sGUID, ist, iEnd - ist+1)
sBracketGUID = "{" & sNoBrack & "}"
End Function