Código: Seleccionar todo

Hola a todos, gracias por b y tu y yo

Código: Seleccionar todo

Private Sub Command1_Click(Index As Integer)
Text1(2) = Replace(Text1(0), "Hola", "Adios")
Text1(2) = Replace(Text1(0), "a", "A")
Text1(2) = Replace(Text1(0), "b", "B")
Text1(2) = Replace(Text1(0), "tu", "tu!!!")
Text1(2) = Replace(Text1(0), "yo", "yOOO")
End Sub

Código: Seleccionar todo

Private Sub Command1_Click()
Dim lines()  As String
Dim words()  As String
Dim findWord As String
Dim newWord  As String
Dim i        As Long
Dim j        As Long

lines = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(lines)
    words = Split(lines(i), " ")
    For j = 0 To UBound(words)
        findWord = removePuntuation(words(j))
        Select Case UCase$(findWord)
            Case "HOLA": newWord = "Adios"
            Case "A":    newWord = "A"
            Case "B":    newWord = "B"
            Case "TU":   newWord = "tu!!!"
            Case "YO":   newWord = "yOOO"
            Case Else
                newWord = ""
        End Select
        If (Len(newWord)) Then words(j) = Replace$(words(j), findWord, newWord, 1, 1)
    Next
    lines(i) = Join(words, " ")
Next

Text2.Text = Join(lines, vbCrLf)
End Sub

Function removePuntuation(word As String) As String
    removePuntuation = Replace$(word, ",", "")
    removePuntuation = Replace$(removePuntuation, ".", "")
End Function

Private Sub Form_Load()
Text1.Text = "Hi everyone, thanks for b and you and me" & vbCrLf
Text1.Text = Text1.Text & "hOlA jo yo"
Text1.Text = Text1.Text & vbCrLf & "         a aa aaa a"
Text1.Text = Text1.Text & vbCrLf & "hell tu moi"
Text1.Text = Text1.Text & vbCrLf & "hola. foo hola, amigo hola! hOla."
End Sub