Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: satan69 en 29 Noviembre 2006, 19:15 pm



Título: ayuda con una string
Publicado por: satan69 en 29 Noviembre 2006, 19:15 pm
es que quiero pasar una string pero quitandole el espacio y poniendole +

ejemplo
 el juego esta salvaje
 el+juego+esta+salvaje

como lo puedo hacer  en VB


Título: Re: ayuda con una string
Publicado por: CeLaYa en 29 Noviembre 2006, 19:56 pm
 :huh: mmmm esto es lo que se me ocurre

do
    i = inStr(1,cadena," ",vbTextCompare)
    if i > 0 then cadena = mid(cadena,1, i-1) & "+" & mid(cadena, i+1, len(cadena))
loop until i = 0




Título: Re: ayuda con una string
Publicado por: satan69 en 29 Noviembre 2006, 20:14 pm
:huh: mmmm esto es lo que se me ocurre

do
    i = inStr(1,cadena," ",vbTextCompare)
    if i > 0 then cadena = mid(cadena,1, i-1) & "+" & mid(cadena, i+1, len(cadena))
loop until i = 0



dejame probar...


Título: Re: ayuda con una string
Publicado por: ~~ en 3 Diciembre 2006, 17:27 pm
Mira es asi:

Código:
Private Sub Form_Load()
Dim cadena As String

cadena = "El juego esta salvaje"
partes = Split(cadena, " ")

For n = 0 To UBound(partes)
Dim nueva As String

If n = UBound(partes) Then
    nueva = nueva & partes(n)
    MsgBox nueva
End If

nueva = nueva & partes(n) & "+"
Next n

End Sub

1S4ludo


Título: Re: ayuda con una string
Publicado por: Hans el Topo en 3 Diciembre 2006, 18:04 pm
Que manera de complicar las cosas tenéis xD

La cosa quedaría asi

Código:
nuevastring=Replace("el juego esta salvaje", " ", "+")

MSDN

Citar
Replace (Función)
     

Descripción

Devuelve una cadena en la que se reemplazó una subcadena especificada con otra subcadena un número especificado de veces.

Sintaxis

Replace(expresión, encontrar, reemplazarCon [, inicio[, contar[, comparar]]])

La sintaxis de la función Replace consta de las siguientes partes:

Parte Descripción
expresión Requerido. Unaexpresión de cadena que contiene la subcadena que reemplazar.
encontrar Requerido. La subcadena que se busca.
reemplazarCon Requerido. La subcadena de sustitución.
inicio Opcional. La posición dentro de la expresión donde se empezará a buscar la subcadena. Si se omite, se supone que es 1.
contar Opcional. El número de sustituciones de subcadenas que se realizarán. Si se omite, el valor predeterminado es –1, que significa que se hagan todas las sustituciones posibles.
comparar Opcional. El valor númerico que indica la clase de comparación que se realizará cuando se evalúen las subcadenas. Vea la sección Valores para consultar los valores posibles.



Título: Re: ayuda con una string
Publicado por: ~~ en 3 Diciembre 2006, 18:08 pm
 :o :o :o :o :o :rolleyes: :rolleyes: :o :o :o ;D ;D ;D


Esa no me la sabia yo xDD muxas gracias

1S4ludo


Título: Re: ayuda con una string
Publicado por: satan69 en 6 Diciembre 2006, 05:43 am
aaaaaaaaaaaaaaaa gracias
a los dos


Título: Re: ayuda con una string
Publicado por: satan69 en 6 Diciembre 2006, 05:56 am
oe ahora les tengo una pregunta de  aqui tengo este code

Código:
Dim pasar As String
Dim nueva As String
pasar = text1.Text
nueva = Replace("pasar", " ", "+")
Text4.Text = nueva

yo lo que quiero pasar de un text1 a un text 4 por ejemplor
pero el problema que solo pasa lo que puse en
Código:
"pasar", " ", "+"

para ver quien me puede ayudar


Título: Re: ayuda con una string
Publicado por: ~~ en 6 Diciembre 2006, 10:16 am
El problema son las comillas q has puesto en
Código:
Replace("pasar", " ", "+")
Pasar no tiene q ir entre comillas por q tu t kieres referir a la variable.

Si kieres hacerlo en menos codigo seria asi:

Código:
Text4.Text = Replace(Text1.Text, " ", "+")

1S4ludo


Título: Re: ayuda con una string
Publicado por: satan69 en 6 Diciembre 2006, 15:15 pm
El problema son las comillas q has puesto en
Código:
Replace("pasar", " ", "+")
Pasar no tiene q ir entre comillas por q tu t kieres referir a la variable.

Si kieres hacerlo en menos codigo seria asi:

Código:
Text4.Text = Replace(Text1.Text, " ", "+")

1S4ludo

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa dale pues... gracias