Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 18, 2008, 02:25:37
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Cadenas de texto 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Cadenas de texto  (Leído 303 veces)
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« en: Octubre 29, 2006, 07:50:16 »
Yo tengo una cadena de texto, su resultado real seria un como este:
Ex:
---------------------------
wola,
SOy n0o0o0b!
I tu?
-------------------------

Con Trim(cadena) puedo kitar los espacios entre palabaras xo no me kita los intros, como puedo conseguir k los intros desaparazcan?

Es decir que sea un texto lineal i sin espacios.

H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #1 en: Octubre 29, 2006, 08:19:48 »
Para hacerlo un texto lineal haces un simple Replace asi:

Private Sub Command1_Click()
Text2.Text = Replace(Text1, vbCrLf, "")
'El Text1 es el texto donde esta tu cadena, lo puedes cambiar, por ejemplo se abres un texto y sakas tu cadena, cambias el text1 por la variable k has associado al texto sakado.
End Sub

Para kitarle los espacios es el Trim como ya sabes  Wink
Espero k te sirva.
Salu2
« Última modificación: Octubre 29, 2006, 08:20:47 por $N!PER » En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #2 en: Octubre 31, 2006, 11:06:41 »
si k va asias xo aora tengo otro problema yevo tiempo dandole vueltas.
tengo una cadena numerica (kn epsacios).
Ej: 8.256 568.000 5.698.000

Como puedo cojer estos numeros por separado, es decir, al primero darle que es "a" el segunod "b" i el tercero "c".

Proba kn esto:
where = InStr(info_tirm, x) ' Busca la cadena en el texto.
I para seleccioanrlo.

a = Mid(info_tirm, where + 7, " ")


pero no me permite insertarle como final lo de blanco.

Logicamente si le quito los espacios se va a la merdia pues no es lo mismo 1 10 k 110.

H4NG3R
thx
« Última modificación: Octubre 31, 2006, 11:15:26 por H4NG3R » En línea
sNipeR-
Visitante
« Respuesta #3 en: Octubre 31, 2006, 03:40:28 »
Hmm tu pergunta esta un poco confusa pero creo k es esto k buscas, sino dime y lo intentare entiender mejor.

x = Split(Text1, " ")
a = x(0)
b = x(1)
c = x(2)

Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #4 en: Noviembre 01, 2006, 08:14:17 »
si garcias es lo k keria. Xo ya pa acabar el tema.

Código:
h = Len(p)
For i = 0 To h
x = Split(p, " ")
a = x(i)
If a <> "" Then
Form2.Text2.Text = Form2.Text2.Text + a
End If
Next i

Porque me da este error: "EL subindice esta fuera del intervalo". Siempre ene l momento en que i = 77 (xo h llega hasta 356).

Asias
En línea
sNipeR-
Visitante
« Respuesta #5 en: Noviembre 01, 2006, 08:48:37 »
Intenta esto  Wink

x = Split(p, " ")
For i = 0 To UBound(x)
a = x(i)
Form2.Text2.Text = Form2.Text2.Text & a
Next i

Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #6 en: Noviembre 01, 2006, 10:06:26 »
aora entiendo, el fallo es k yo conte caracteres i no lo otro no?

Es decir el UBound kuenta las "palabras" k ay. . .

Asias, sniper
En línea
sNipeR-
Visitante
« Respuesta #7 en: Noviembre 02, 2006, 11:25:51 »
Cita de: H4NG3R en Noviembre 01, 2006, 10:06:26
aora entiendo, el fallo es k yo conte caracteres i no lo otro no?

Es decir el UBound kuenta las "palabras" k ay. . .

Asias, sniper

El UBound sirve para sakar una ultima parte de una string k estea definida por ejemplo con un split. (No es el uniko caso)
Por ejemplo se haces un split a las barras de una string x keda asi:

x = "uno/dos/tres/"
delim = Split(x, "/")

En este caso el UBound es el "tres".

Por eso en tu codigo, donde esta el For se deve poner For i = 0 to UBound(x)

Espero k entiendas.

Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #8 en: Noviembre 02, 2006, 12:50:42 »
a la perfeccion gracias por la aclaracion!
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Cadenas de texto « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC