Álguem tem uma rotina simples para converter "Carlos D'Almeida" em "Carlos D´Almeida" ?

 

Não serve o Replace pq eu uso o VB5 :-(

 

Já procurei na net mas os exemplos que existem são muito complexos. Só quero mudar os apóstrofes.

tente isto aqui (trata aspas simples)

 

Public Function Plic(ByVal sTexto As String) As _
       String
  If InStr(sTexto, Chr(39)) Then
    Plic = Chr(39) & Replace(sTexto, _
           Chr(39), Chr(39) & Chr(39)) & _
           Chr(39)
  Else
    Plic = Chr(39) & sTexto & Chr(39)
  End If
End Function

replace("Carlos D'Almeida","'","´")

 

mais simples é só comer minhoca que não tem osso...

 

Agradeço a anteção de vocês, mas como eu disse eu uso o VB5 e nele não existe o comando REPLACE :-(

Então aproveita e migra do vb5 pro vb6,é mel na chupeta.........

Use a função abaixo em lugar de Replace:

---------------------------------------------------------------------------------

Public Function Substitui(ByVal xStrOrig As String, ByRef xStrDe As String, ByRef xStrPara As String) As String
  Dim xStrResult
  Dim xPosDe
  Dim xLenDe
  Dim xLenPara
  Dim xLenOrig

 

    xStrResult = xStrOrig

    xPosDe = InStr(1, xStrOrig, xStrDe)

    If xPosDe = 0 Then
       Substitui = xStrResult
       Exit Function
    End If

 

   xLenDe = Len(xStrDe)
   xLenPara = Len(xStrPara)
   xLenOrig = Len(xStrOrig)
   
   If xLenPara = Len(xStrOrig) Then
        xStrResult = xStrPara
   ElseIf xPosDe = 1 Then
       xStrResult = xStrPara + Right$(xStrOrig, xLenOrig - xLenDe)
   ElseIf Right(xStrOrig, xLenDe) = xStrDe Then
      xStrResult = Left$(xStrOrig, xPosDe - 1) + xStrPara
   Else
      xStrResult = Left$(xStrOrig, xPosDe - 1) + xStrPara + Mid$(xStrOrig, xPosDe + xLenDe, xLenOrig - xPosDe + 1)
   End If
  

 Substitui = xStrResult
 End Function
---------------------------------------------------------------------------------