• Viernes 8 de Noviembre de 2024, 04:35

Autor Tema:  Cadena  (Leído 1781 veces)

edith_23

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Cadena
« en: Miércoles 21 de Mayo de 2008, 21:43 »
0
Hola, alguien podría decirme como hago para de una cadena de x caracteres extraer números que se vallan generando de a dos? mas específicamente: estoy haciendo un programa en el que debo calcular una probabilidad usando el método congruencial de números al azar lo que hice hasta ahora es en una caja de texto genero una seria de numeros cada uno de estos números que se generan los incluyo en otra caja de texto en forma de cadena con un str. ejemplo pulso una vez el botón y en la primer caja me aparece un numero, supongamos un 5 vuelvo a pulsar me aparece un 43, luego 72, un 35  y así hasta cumplir con un ciclo, en la segunda caja esto me iría quedando de la siguiente manera: 5437235...lo que quiero hacer ahora es tomar los números de esa segunda caja (que contiene  la cadena) de a dos o sea en una tercer caja de texto o en un (label )que me aparezca cuando pulso un boton el numero 54, si vuelvo a clickear me aparezca el 37, luego el 23 y así sucesivamente. Se entiende?? Alguien podra ayudarme?

ArKaNtOs

  • Miembro de PLATA
  • *****
  • Mensajes: 1253
  • Nacionalidad: mx
    • Ver Perfil
Re: Cadena
« Respuesta #1 en: Jueves 22 de Mayo de 2008, 01:44 »
0
hola amigo investiga sobre las funciones left, right y mid, te sirven para extraer datos de cadenas, realiza este ejemplo y ve que te devuelve

msgbox Left('Esto es una prueba', 5)
msgbox right('Esto es una prueba', 5)
msgbox mid('Esto es una prueba', 1, 2)
msgbox mid('Esto es una prueba', 3, 2)

fdxx

  • Nuevo Miembro
  • *
  • Mensajes: 17
    • Ver Perfil
Re: Cadena
« Respuesta #2 en: Jueves 22 de Mayo de 2008, 02:05 »
0
Sinceramente no entendi muy bien que queres hacer, creo que era ordenar los numeros de un textbox, en grupos de 2.

dim i as integer
dim largo as integer

largo = len(txtNumeros)
for i = 1 to largo Step 2
    lstLista.additem mid(txtnumeros,i,2)
next i

Lo que hace esto es agarrar unos numeros de 1 textbox ( ej:12345678) y listarlos de a 2 en una lista, quedaria: 12, 34,56,78


Saludos