Cadena de String ¡¡¡

[happydent2]

Hola:
Mi duda es la siguiente: Tengo una cadena con una frase que mete el usuario por teclado, asi q en un principio no se su longitud.
Lo que quiero es que cuando en esa cadena aparezca una serie de letras, por ejemplo "edad: 17 años" que a partir de que aparezca edad me copie en otro sitio, un text box por ejemplo el numero 17 pero no la palabra "años"que av seguida.
NO se si me e explicado demasiado bien, la idea es q en una cadena a partir de una palabra en este caso "edad" copie el nuemro que le sigue pero solo eso, no los siguientes caracteres.

Gracias de antemano.

[seba123neo]

Hola,si es como me inmagino es facil,pero necesito mas datos,por ejemplo vos ahi pones un ejemplo de la cadena que puede llegar a escribir el usuario,dame otro ejemplo mas de como puede ser,para saber la variacion que puede tener la cadena,la longitud no importa ,sino lo que se escribe a ver como es o siempre es igual de formato?

saludos.

[Avellaneda]

No lo entiendo muy bien,

el ususario mete una cadena con una frase (supongo que a través de un TextBox) y cuando escriba "edad:" el número de a continuación lo copie en (otro) TextBox.

¿Según va escribiendo, o al validar la frase, p.ej. con un CommandButton?
¿En el primer TextBox, tiene que desaparecer el número que se pasó al segundo, o continúa alli?
¿Y si el usuario no escribe nunca la palabra edad: o la escribe mal p.ej. adad:, o no pone los dos puntos?

Y otra cosa: ¿Te refieres a VB6 ó VBA?

[David]

Iniciado por happydent2

Hola:
Mi duda es la siguiente: Tengo una cadena con una frase que mete el usuario por teclado, asi q en un principio no se su longitud.
Lo que quiero es que cuando en esa cadena aparezca una serie de letras, por ejemplo "edad: 17 años" que a partir de que aparezca edad me copie en otro sitio, un text box por ejemplo el numero 17 pero no la palabra "años"que av seguida.
NO se si me e explicado demasiado bien, la idea es q en una cadena a partir de una palabra en este caso "edad" copie el nuemro que le sigue pero solo eso, no los siguientes caracteres.

Gracias de antemano.

Los demás usuarios tienen razón. No estamos entendiendo tu duda. Pero si lo que quieres es extraer el número que está dentro de un String, podrías buscar con Instr el número y extraerlo, ignorando el resto del texto...

[happydent2]

Respondo a lo q me preguntais:

1- La frase la mete el ususario en un textBox y no tiene siempre el mismo formato.
2- Lo que tengo q extraer es el numero q viene despues de "edad", pero tb en la frase puede haber mas numeros, por eso no se si con la funcion Instr se puede hacer.
3- no tien q desaparecer el numero del 1º textbox.
4- Trabajo con un modulo de VBA
5- Si el usuario no escribe la palabra bien, o sin los 2 puntos pues que no ponga nada en la texbox.

Espero haber respondido a todo lo q me preguntais.

La idea principal es q no se como coger solo el numero q viene despues de "edad" sin coger mas string.
Ademas la edad no tiene pq tener siempre 2 digitos , puede tener 1 tb , o 3 y hasta 4, ya q esa edad no se refiere a años, pero bueno, eso es otro tema.

Gracias de antemano.

[Avellaneda]

Mira si te vale este código. Lo puedes poner en un CommandButton o en el evento LostFocus del Text1:

Código:

Dim a() As String, i As Integer

a = Split(Text1)
For i = 0 To UBound(a)
    If a(i) = "edad:" Then
        Text2.Text = a(i + 1)
        Exit For
    End If
Next i

[David]

Creo que el código de Avellaneda te servirá...
Si quieres, también puedes agregar una comprobación para ver si la palabra siguiente es un número... (IsNumeric).

[Laforge]

Hola

Discrepo LIGERAMENTE de la solución al problema de happydent.... pq creo que no se adapta a sus necesidades.

Por lo que he entendido, happydent pretende que A MEDIDA que el usuario va entrando los datos en el textbox, se vaya rellenando otros con los parámetros definidos (edad,....). Luego, de caras al problema, no tiene mucho sentido (funcionalmente hablando, claro) el que se deba hacer el análisis del texto una vez concluído sino que se debe hacer, MIENTRAS se crea.

De todas formas, creo que eso implica un problema añadido y es : ¿qué pasa cuando el usuario escribe su edad y por alguna razón la debe modificar?

Para este caso el análisis de la cadena se debería realizar en el evento CHANGE o el el KEYDOWN/KEYUP/KEYPRESS pero tengo mis dudas en cuanto a la efectividad del proceso, hablando, claro está, del tiempo que demora el análisis de la cadena, respecto el tiempo entre cada salto de evento. Luego, quizás, la mejor solución es la que ya habéis propuesto

[Avellaneda]

Iniciado por happydent2

Hola:
Mi duda es la siguiente: Tengo una cadena con una frase que mete el usuario por teclado, asi q en un principio no se su longitud.
Lo que quiero es que cuando en esa cadena aparezca una serie de letras, por ejemplo "edad: 17 años" que a partir de que aparezca edad me copie en otro sitio, un text box por ejemplo el numero 17 pero no la palabra "años"que av seguida.

Se supone que si la palabra siguiente a la edad no quiere que aparezca, es que ya ha terminado la frase y no lo puede controlar con el evento Change del TextBox, sino al finalizar de escribir en el mismo.

De todas formas, sería interesante que nos pusieras cómo controlar en el evento Change si se ha introducido la palabra "edad:" y lo que se escribe a continuación.

Además de lo que diga happydent2 (si es que dice algo) me gustaría escuchar tu razonamiento.

[Laforge]

... hombre Avellaneda, mi respuesta no tenía ánimo de ofensa, pero de todas formas, algo así serviría....

Código:

Option Explicit
Private PonEdad As Byte, PonTel As Byte
Private Sub Form_Load()
PonEdad = 0
PonTel = 0
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Posicion
If PonEdad = 0 Then
    Posicion = InStr(1, Text1.Text, "edad:", vbTextCompare)
    If Posicion <> 0 And Text2 = "" Then
        PonEdad = 1
    End If
ElseIf PonEdad = 1 Then
    If KeyCode = 32 And Text2.Text = "" Then Exit Sub
    If KeyCode = 32 And Text2.Text <> "" Then PonEdad = 2
    Text2.Text = Text2.Text & Chr(KeyCode)
End If
If PonTel = 0 Then
    Posicion = InStr(1, Text1.Text, "tel:", vbTextCompare)
    If Posicion <> 0 And Text3 = "" Then
        PonTel = 1
    End If
ElseIf PonTel = 1 Then
    If KeyCode = 32 And Text3.Text = "" Then Exit Sub
    If KeyCode = 32 And Text3.Text <> "" Then PonTel = 2
    Text3.Text = Text3.Text & Chr(KeyCode)
End If
End Sub

Donde Text1 es el texto donde se inserta el escrito, text2 es donde va a parar la edad y text3 es donde va a parar un posible número de teléfono.

Cabe tener en cuenta que como utilizo el chr(keycode) tiene algunas limitaciones (como a la hora de utilizar el numpad o lo signos (punto, coma,...) pero funcionar funciona.....