Public Function ExtraiDelimitedFor(str As String,nOpen as string,nClose as string,) As StringDim openPos As IntegerDim closePos As IntegerDim midBit As StringLet openPos = InStr(str, nOpen)Let closePos = InStr(str, nClose)Let midBit = Left(str, openPos - 1) & Right(str, openPos)Let ExtraiTudoEntreParenteses = midBitEnd Function
Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.
Nenhum comentário:
Postar um comentário