Programación General > Visual Basic 6.0 e inferiores

 Cadena De Caracteres

(1/1)

MAESTROMANU:
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.

Soultaker:
Con este codigo yo hago lo que quieres, espero que te sirva
--- Código: Text ---Private Sub Command1_Click()Dim car, cad As StringDim i As IntegerFor i = 1 To Len(Text1.Text)    car = Mid(Text1.Text, i, 1)    If car = " " Then cad = "_" Else cad = car    Label1.Caption = Label1.Caption + cadNextEnd Sub  
 :comp:

cpmario:
En una sola línea

--- Código: Text ---    strText = Replace(strText, " ", "_")  
 :)

Navegación

[0] Índice de Mensajes