SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MAESTROMANU en Domingo 22 de Mayo de 2005, 01:43

Título: Cadena De Caracteres
Publicado por: MAESTROMANU en Domingo 22 de Mayo de 2005, 01:43
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.
Título: Re: Cadena De Caracteres
Publicado por: Soultaker en Domingo 22 de Mayo de 2005, 06:27
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:
Título: Re: Cadena De Caracteres
Publicado por: cpmario en Domingo 22 de Mayo de 2005, 06:56
En una sola línea
Código: Text
  1.     strText = Replace(strText, " ", "_")
  2.  
  3.  

 :)