Hola soy nuevo en esto de la programacion, utilizo visual studio 2005 y mi problema es el siguiente.
Me podrias dar el codigo para poder girar individualmente cada palabra de un texto.
Yo he creado 2 funciones, una para ver cuando es un Separador(un espacio) y otra para que me gire la palabra.
Despues llamo a las dos en la funcion principal...os pongo el codigo aqui haver si veis que faya.
Esta es la funcion separado: Private Function esseparador(ByVal c As String) As Boolean
Const Separadores As String = " ,.;){}[]'¡!?¿-_" & vbCrLf
If InStr(Separadores, c, CompareMethod.Binary) = 0 Then
esseparador = False
Else
esseparador = True
End If
End Function
Esta es la funcion para girar la palabra Private Function giracad(ByVal palabra As String) As String
giracad = ""
Dim n As Integer
For n = 1 To Len(palabra)
giracad = Mid$(palabra, n, 1) + giracad
Next n
End FunctionY esta la funcion Principal donde uso las dos anteriores: Private Function girapala(ByVal cad As String) As String
Dim n As Integer
girapala = ""
Dim s As String = ""
Dim palabra As String
Dim c As String
For n = 1 To Len(cad)
c = Mid$(cad, n, 1)
If esseparador(c) Then
palabra = palabra + c
Else
giracad(palabra)
s = s + palabra
s = s + c
palabra = ""
End If
Next n
giracad(palabra)
s = s + palabra
girapala = s
End FunctionEste es el evento clickPrivate Sub cmdGira_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGira.Click
txtDestino.Text = girapala(txtOrigen.Text)
End SubPerdonad por el tocho haber si me podéis decir que es lo que falla!!gracias