Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Agosto 07, 2008, 05:26:42
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Extraer texto entre asteriscos(*) 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Extraer texto entre asteriscos(*)  (Leído 291 veces)
k-pro-a
Recien Llegado
*
Desconectado Desconectado

Mensajes: 17



Ver Perfil Email
« en: Mayo 24, 2007, 07:10:39 »
En línea
Empty
Habitual
*****
Desconectado Desconectado

Mensajes: 214



Ver Perfil
« Respuesta #1 en: Mayo 25, 2007, 02:02:24 »
Private Sub Command1_Click()
    Dim aa, pos As Long
    pos = 0
    aa = 0
    Do While aa <> 2
        pos = pos + 1
        If Mid(Text1.Text, pos, 1) = "*" Then
            aa = aa + 1
            ElseIf aa = 1 Then
                Text2.Text = Text2.Text + Mid(Text1.Text, pos, 1)
        End If
    Loop
End Sub

No es la unica forma. Es lo que se me ocurre ahora.

Salu2.
En línea
sNipeR-
Visitante
« Respuesta #2 en: Mayo 25, 2007, 06:24:42 »
Cita de: Ac/Dc_88 | Int 21h en Mayo 25, 2007, 02:02:24
Private Sub Command1_Click()
    Dim aa, pos As Long
    pos = 0
    aa = 0
    Do While aa <> 2
        pos = pos + 1
        If Mid(Text1.Text, pos, 1) = "*" Then
            aa = aa + 1
            ElseIf aa = 1 Then
                Text2.Text = Text2.Text + Mid(Text1.Text, pos, 1)
        End If
    Loop
End Sub

No es la unica forma. Es lo que se me ocurre ahora.

Salu2.

Eso es bueno para praticar unos mid's y loops pero y k tal esto?

Dim sTmp() as string
stmp = split(text1.text,"*")
text2.text = stmp(1)

Mas simple no?

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

Mensajes: 214



Ver Perfil
« Respuesta #3 en: Mayo 25, 2007, 02:11:24 »
Cita de: $N!PER en Mayo 25, 2007, 06:24:42
Cita de: Ac/Dc_88 | Int 21h en Mayo 25, 2007, 02:02:24
Private Sub Command1_Click()
    Dim aa, pos As Long
    pos = 0
    aa = 0
    Do While aa <> 2
        pos = pos + 1
        If Mid(Text1.Text, pos, 1) = "*" Then
            aa = aa + 1
            ElseIf aa = 1 Then
                Text2.Text = Text2.Text + Mid(Text1.Text, pos, 1)
        End If
    Loop
End Sub

No es la unica forma. Es lo que se me ocurre ahora.

Salu2.

Eso es bueno para praticar unos mid's y loops pero y k tal esto?

Dim sTmp() as string
stmp = split(text1.text,"*")
text2.text = stmp(1)

Mas simple no?

Salu2

Jaja, si no?. Pasa que lo puse a las 3 am y fue lo unico que se me ocurrio.
En línea
k-pro-a
Recien Llegado
*
Desconectado Desconectado

Mensajes: 17



Ver Perfil Email
« Respuesta #4 en: Mayo 25, 2007, 07:31:39 »
Gracias esto soluciona mi problema, disculpen mi ignorancia, estoy iniciandome en vb6 y se muy poco, mis conocimientos son basicos
En línea
placa4
Habitual
*****
Desconectado Desconectado

Mensajes: 157



Ver Perfil
« Respuesta #5 en: Junio 17, 2007, 03:02:58 »
En línea
El futuro está en versión Beta.

La aleatoriedad no existe, sólo una complejidad tan extrema que el ser humano es aún incapaz de comprenderla.

PD: EN VACACIONES, OFF LINE TODO AGOSTO
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Extraer texto entre asteriscos(*) « anterior próximo »
Ir a:  


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