• Viernes 3 de Mayo de 2024, 02:52

Autor Tema:  Cadena De Caracteres  (Leído 1102 veces)

MAESTROMANU

  • Miembro activo
  • **
  • Mensajes: 61
    • Ver Perfil
Cadena De Caracteres
« en: Domingo 22 de Mayo de 2005, 01:43 »
0
Hola, hace bastante tiempo vi un codigo por aqui, pero no lo encuentro. el codigo consistia en cambiar los espacios en blanco de una frase por guiones bajos. por ejemplo:

Lo que el viento se llevo

Lo_que_el_viento_se_llevo


Espero alquien me ayude, que no recuerdo como se hace.
MANUEL LOPEZ ALVAREZ
PROGRAMADOR DE APLICACIONES
ESPAÑA, SEVILLA, MORON DE LA FRONTERA

Soultaker

  • Miembro HIPER activo
  • ****
  • Mensajes: 972
  • Nacionalidad: pe
    • Ver Perfil
Re: Cadena De Caracteres
« Respuesta #1 en: Domingo 22 de Mayo de 2005, 06:27 »
0
Con este codigo yo hago lo que quieres, espero que te sirva
Código: Text
  1. Private Sub Command1_Click()
  2. Dim car, cad As String
  3. Dim i As Integer
  4. For i = 1 To Len(Text1.Text)
  5.     car = Mid(Text1.Text, i, 1)
  6.     If car = " " Then cad = "_" Else cad = car
  7.     Label1.Caption = Label1.Caption + cad
  8. Next
  9. End Sub
  10.  
  11.  

 :comp:
http]
foros,programacion, c, c++, java,
linux, videojuegos, directX, .NET,
visual basic,robotica,microprocesadores

Para los nuevos usuarios de este Foro, por favor leerse esta discusión.
Cómo Hacer Preguntas De Forma Inteligente

Ojos que no ven... pisan caquita
Camarón que se duerme... muere electrocutado


<<< Harol Moreyra Bendezú >>>

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Cadena De Caracteres
« Respuesta #2 en: Domingo 22 de Mayo de 2005, 06:56 »
0
En una sola línea
Código: Text
  1.     strText = Replace(strText, &#34; &#34;, &#34;_&#34;)
  2.  
  3.  

 :)