Como posso adicionar um espaço antes de cada caractere &
e -
se ainda não houver um?
Tenho pesquisado na internet para tentar ver como manter o caráter original no valor de substituição:
Private Function fPhraseSpacesLeadingAdd() As String
Dim strClsPhrase As String = "Cobb& Co is nice. Also so is M& Sheer and B- Cafe."
'Desired output: "Cobb & Co is nice. Also so is M & Sheer and B - Cafe."
Dim strReturn As String = strClsPhrase
Dim strItems = New String() {"&", "-"}
For Each strItem As String In strItems
Dim rg1 As New Regex("." + strItem)
strReturn = rg1.Replace(strReturn, "\1 " + strItem)
Next
Return strReturn
End Function
PS: depois disso, gostaria de criar funções separadas para o seguinte, mas espero poder descobri-las usando código semelhante:
Function fSpaceTrailingAdd()
'Follow : ; , & with a single space if none there
e
Function fSpaceTrailingRemove()
'Remove any spaces after $ “ ‘ ( [ {