✔ Programação GLOBAL®: DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres

DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres

A função abaixo é totalmente específica pois permite retornar qualquer conteúdo que estiver delimitado pelos caracteres que informarmos.

Public Function ExtraiDelimitedFor (str As String,nOpen as string, nClose as string) As String

Dim openPos As Integer

Dim closePos As Integer

Dim midBit As String

Let openPos = InStr(str, nOpen)

Let closePos = InStr(str, nClose)

If (openPos + closePos) <= 2 Then
Let ExtraiTudoEntreParenteses = str
Else
Let midBit = Left(str, openPos - 1) & Right(str, Len(str) - closePos)
Let ExtraiTudoEntreParenteses = midBit
End If