tudo certo, galera?

 

eu programava no pascal antes, e se tinha uma variavel string (palavra) com o conteudo "computador". Se eu quisesse mudar a 3º letra (p) para uma outra (b). Fazia isto:

 

palavra[3]:="b"       := é uma atribuiçao.

 

Como fazer isto em VB

Eu sei usar o mid para buscar a letra "p", assim: mid(palavra,3,1)

Mas nao sei como mudar?

 

Valeu

 

Public Function ReplaceString(sTarget As String, sSearchString As String, sReplaceString As String) As String

Dim sTemp As String
Dim lLength As Long

lLength = Len(sTarget)

sTemp = Replace(sTarget, sSearchString, sReplaceString, 1, lLength, vbTextCompare)

ReplaceString = sTemp

End Function

 

ReplaceString(mid(palavra,3,1),"p","b")

Private Sub Command1_Click()
  Dim strABC As String
  strABC = "computador"
  strABC = Substitui(strABC, "p", "b", 1)
  MsgBox strABC
End Sub

'troca caracter por outro, dentro da string
Public Function Substitui(vgAlvo As String, vgOQue As String, vgPeloQue As String, Como As Integer) As String
  Dim x As String, k As String, p As Integer, i As Integer       'dimensiona
  x$ = vgAlvo$                                    'salva string alvo
  If Como = UM_A_UM Then                          'se um a um,
    For i = 1 To Len(x$)                          'vamos trocar
      k$ = Mid$(x$, i, 1)                         'cada caracter de vgOQue$
      p = InStr(vgOQue$, k$)                      'pelo correspondente em vgPeloQue$
      If p > 0 Then Mid$(x$, i, 1) = Mid$(vgPeloQue$, p, 1) 'na string alvo
    Next
  Else                                            'senão,
    p = InStr(x$, vgOQue$)                        'vamos trocar
    While p > 0                                   'todos de uma vez
      x$ = Left$(x$, p - 1) + vgPeloQue$ + Mid$(x$, p + Len(vgOQue$)) 'quantas vezes necessário
      p = InStr(p + Len(vgPeloQue$), x$, vgOQue$)                     'na string alvo
    Wend
  End If
  Substitui$ = x$                                 'retorna a nova string
End Function

 

Assim também dá:

 

Num modulo:
Public Function ReplPos(ByVal Conteudo As String, ByVal Posicao As Integer, ByVal Caract As String) As String
   ReplPos = Mid(Conteudo, 1, Posicao - 1) & Caract & Mid(Conteudo, Posicao + 1)
End Function

 

No codigo do formulario
x = "texto"
x = ReplPos(x, 3, "s")