¿Que me quieren decir?

[tuka_85]

No entiendo lo que me quieren decir, a ver si lo entendeis, el planteamiento por lo menos...

Realizar un programa en Visual Basic 2008 que me permita introducir un texto e indicar el número de caracteres (x) que quiero seleccionar y desde dónde. Podré tener las siguientes opciones:

a. Mostrar los x caracteres iniciales de la cadena.
b. Mostrar los x caracteres finales de la cadena.
c. Mostrar x caracteres desde una posición indicada por el usuario.


Existirán también los botones de Inicialización y Salir (que pedirá confirmación al usuario).

Es importante proteger el programa frente a introducciones erróneas, es decir, pedir un número de caracteres superior al que tiene la cadena en los casos a y b o pedir un número superior de caracteres a los que existen desde la posición introducida por el usuario en el caso c.

[Darkavender]

Tarea de la escuela?

ademas creo que esta claro lo que se te pide...


deberias poner la porcion de codigo en la cual tienes problemas... y asi poder ayudarte...

[tuka_85]

si, pero es que no entiendo lo que quiere que me haga el programa...sabes?

[Darkavender]

Primero...
Debes diseñar un formulario que contenga un caja de texto para que el usuario coloque la frace a nalizar.

un Text box para que el usuario introdusca la posicion desde la que desea analizar.

tres RadioButton los cuales desplieguen los tres literales descritos.

Un boton para realizar en analisis y desplegar el resultado

y un boton para salir

De ahi.. comezaaaaaa a programar

Si tienes mas problemas avisa... saludos

[tuka_85]

Perfecto.

Gracias!!

Las funciones que me piden son RTrim, Ltrim y Trim verdad?

[Darkavender]

Sip...
Recuerda que debes analizar la cadena completamente para obtener lo que se te pide

Lee aqui

[tuka_85]

tendre que hacer un Len primero para saber la longitud de la cadena, y luego hacer las tres funciones dichas no?

[Darkavender]

Esto podria funcionarte para el primer literal...


Uso del LEN
[aplicado al primer literal]

'Obtienes el tamaño de la cadena
Dim TamanioCadena As Integer = Len(TextBox1.Text)
'Obtienes los caracteres de limite
Dim CaracteresSeleccionar As Integer = TxtCatacter.text
'Variable que almacenara la cadena
Dim Str As String
'Haciendo la seleccion de la cadena delimitando por el numero de caracteres seleccionados
Str = TxtUser.Text.Substring(1, CaracteresSeleccionar)
'mostrando el resultado
MsgBox(Str)

[tuka_85]

Código:

 'Haciendo la seleccion de la cadena delimitando por el numero de caracteres seleccionados
        Str = TxtTexto.Text.Substring(1, CaracteresSeleccionar)
        'mostrando el resultado
        MsgBox(Str)

Eso que hace?!

[Darkavender]

Lee aki... :D

[tuka_85]

vale, y para saber los del final de la cadena, que tendria que hacer lo mismo pero asi?

'Haciendo la seleccion de la cadena delimitando por el numero de caracteres seleccionados
Str = TxtTexto.Text.Substring(TamanioCadena, CaracteresSeleccionar)
'mostrando el resultado
MsgBox(Str)

o igual tengo que hacer un for para que recorra la cadena, y muestre desde el caracter que se diga hacia adelante?

[Darkavender]

Iniciado por tuka_85

vale, y para saber los del final de la cadena, que tendria que hacer lo mismo pero asi?

'Haciendo la seleccion de la cadena delimitando por el numero de caracteres seleccionados
Str = TxtTexto.Text.Substring(TamanioCadena, CaracteresSeleccionar)
'mostrando el resultado
MsgBox(Str)

o igual tengo que hacer un for para que recorra la cadena, y muestre desde el caracter que se diga hacia adelante?

Nop...

sintaxis basica del substring...

Str = TxtTexto.Text.Substring(DesdeDondeComenzar, CuantosCarateresSeleccionar)

Ahora solo obten los parametros :D

[tuka_85]

la cantidad de caracteres de Inicio cuales son?

[tuka_85]

No seria asi?

Str = TxtTexto.Text.Substring(CaracteresSeleccionar, Len(TxtTexto.Text))

[Darkavender]

Iniciado por tuka_85

la cantidad de caracteres de Inicio cuales son?

Sin animos de ofender pero "Leiste el link que te deje hacia la MSDN"


Prueba asi...

Dim TamanioCadena As Integer = Len(TxtBox.Text)
Dim CantidadCaracteres, iniciardesde As Integer
CantidadCaracteres= TxtCatacter.text
iniciardesde = TamanioCadena - CantidadCaracteres
Dim Str As String
Str = TxtBox.Text.Substring(iniciardesde, CantidadCaracteres)
MsgBox(Str)

[tuka_85]

ya pillo, si habia leido, lo que pasa que soy un poco corta.

entendido

Claro, lo que yo estaba intentando hacer era el ultimo literal, que tengo que hacer que se muestre desde una posicion indicada.

[Darkavender]

tuka... para ese creo que necesitaras otro txtBox

entonces si aplicas el tercer literal, el sistema debe sser capaz de seleccionar 3 caracteres desde la posicion 2

por ejemplo si tienes la cadena: Automovil
el resultado deberia ser: tom

Suerte.... XD

[tuka_85]

Yo creo que para la tercera opcion deberia ser asi...

le das a numero de caracteres 2

y el texto es: Me llamo marta

Deberia enseñarte "llamo marta"

[Darkavender]

c. Mostrar x caracteres desde una posición indicada por el usuario.

[tuka_85]

vale, vale...
jeje
gracias voy a ello

[tuka_85]

Perfecto!

Dim TamanioCadena As Integer = Len(TxtTexto.Text)
Dim CaracteresSeleccionar As Integer = TxtCarac.Text
Dim posicion As Integer = TxtPosicion.Text
Dim Str As String
Str = TxtTexto.Text.Substring(posicion, CaracteresSeleccionar)
MsgBox(Str)