coger parte de un string

Hola,
Puedes usar 'substring' ...
Dim cole As String
Dim coles As String = "010203 - codigos de colegios"
If Len(coles) > 5 Then cole = coles.Substring(1, 6)

Saludos,

[MVP] Visual Developer - Visual Basic


"Sonia" escribió:

hola

hacia esto para coger los 6 primeros caracteres:
Dim cole As String

cole = Mid$(Coles.SelectedItem, 1, 6)

puedo hacer lo mismo para coger los 6 ultimos si no se los caracteres q
tiene el string?

Hola Pep, ;-)

creo que tu código no es del todo correcto. Te cuento;

Creo que lo correcto sería esto:

Dim cole As String
Dim coles As String = "010203 - codigos de colegios"
If Len(coles) > 5 Then cole = coles.Substring(0, 6)

En lugar de la línea

If Len(coles) > 5 Then cole = coles.Substring(1, 6)

Aún y así, ésto no resolvería la duda de Sonia.

Para resolver su duda, creo que se podría utilizar un código como por
ejemplo: (hay más posibilidades)

Dim strCadena As String = "Esto es un ejemplo"
MessageBox.Show(IIf(strCadena.Length > 6,
strCadena.Substring(strCadena.Length - 6), strCadena))


Un saludo. :-)

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Pep" wrote:

Hola,
Puedes usar 'substring' ...
Dim cole As String
Dim coles As String = "010203 - codigos de colegios"
If Len(coles) > 5 Then cole = coles.Substring(1, 6)

Saludos,

[MVP] Visual Developer - Visual Basic


"Sonia" escribió:

>
> hola
>
> hacia esto para coger los 6 primeros caracteres:
> Dim cole As String
>
> cole = Mid$(Coles.SelectedItem, 1, 6)
>
> puedo hacer lo mismo para coger los 6 ultimos si no se los caracteres q
> tiene el string?
>
>
>
>

Upps!
Chico no perdonais ni una! Llevas razon, estaba dandole el equivalente con
'substring' a Sonia y se me fue terminar de leer la pregunta ...
... puedo hacer lo mismo para coger los 6 ultimos?

Gracias por corregirlo.
Pep,
[MVP] Visual Developer - Visual Basic


"Jorge Serrano [MVP VB]" escribió:

Hola Pep, ;-)

creo que tu código no es del todo correcto. Te cuento;

Creo que lo correcto sería esto:

Dim cole As String
Dim coles As String = "010203 - codigos de colegios"
If Len(coles) > 5 Then cole = coles.Substring(0, 6)

En lugar de la línea

If Len(coles) > 5 Then cole = coles.Substring(1, 6)

Aún y así, ésto no resolvería la duda de Sonia.

Para resolver su duda, creo que se podría utilizar un código como por
ejemplo: (hay más posibilidades)

Dim strCadena As String = "Esto es un ejemplo"
MessageBox.Show(IIf(strCadena.Length > 6,
strCadena.Substring(strCadena.Length - 6), strCadena))


Un saludo. :-)

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Pep" wrote:

> Hola,
> Puedes usar 'substring' ...
> Dim cole As String
> Dim coles As String = "010203 - codigos de colegios"
> If Len(coles) > 5 Then cole = coles.Substring(1, 6)
>
> Saludos,
>
> [MVP] Visual Developer - Visual Basic
>
>
> "Sonia" escribió:
>
> >
> > hola
> >
> > hacia esto para coger los 6 primeros caracteres:
> > Dim cole As String
> >
> > cole = Mid$(Coles.SelectedItem, 1, 6)
> >
> > puedo hacer lo mismo para coger los 6 ultimos si no se los caracteres q
> > tiene el string?
> >
> >
> >
> >

perdon que me meta jorge pero el codigo no deberia quedar asi?

Dim cole As String
Dim coles As String = "010203 - codigos de colegios"
If Len(coles) > 5 Then cole = coles.Substring(0, 5)

ya que cole = coles.Substring(0, 6) devolveria 7 caracteres y marcaria un
error el compilador si solamente tuviera 6

la otra opcion seria utilizar el LEFT RIGHT Y MID$
Ya que estos no generan errores si los string no concuerdan en tamaños
se me hace mas factible menos codigo y mas estable.

Dim sWork as string = "010203 - codigos de colegios"

sWork = Microsoft.VisualBasic.Left(sWork, 6)
sWork = Microsoft.VisualBasic.Right(sWork, 6)

sWork = Microsoft.VisualBasic.Mid(sWork, 1, 6)


Raz


"Pep" escribió en el mensaje
news:

Upps!
Chico no perdonais ni una! Llevas razon, estaba dandole el equivalente con
'substring' a Sonia y se me fue terminar de leer la pregunta ...
... puedo hacer lo mismo para coger los 6 ultimos?

Gracias por corregirlo.
Pep,
[MVP] Visual Developer - Visual Basic


"Jorge Serrano [MVP VB]" escribió:

Hola Pep, ;-)

creo que tu código no es del todo correcto. Te cuento;

Creo que lo correcto sería esto:

Dim cole As String
Dim coles As String = "010203 - codigos de colegios"
If Len(coles) > 5 Then cole = coles.Substring(0, 6)

En lugar de la línea

If Len(coles) > 5 Then cole = coles.Substring(1, 6)

Aún y así, ésto no resolvería la duda de Sonia.

Para resolver su duda, creo que se podría utilizar un código como por
ejemplo: (hay más posibilidades)

Dim strCadena As String = "Esto es un ejemplo"
MessageBox.Show(IIf(strCadena.Length > 6,
strCadena.Substring(strCadena.Length - 6), strCadena))


Un saludo. :-)

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Pep" wrote:

> Hola,
> Puedes usar 'substring' ...
> Dim cole As String
> Dim coles As String = "010203 - codigos de colegios"
> If Len(coles) > 5 Then cole = coles.Substring(1, 6)
>
> Saludos,
>
> [MVP] Visual Developer - Visual Basic
>
>
> "Sonia" escribió:
>
> >
> > hola
> >
> > hacia esto para coger los 6 primeros caracteres:
> > Dim cole As String
> >
> > cole = Mid$(Coles.SelectedItem, 1, 6)
> >
> > puedo hacer lo mismo para coger los 6 ultimos si no se los caracteres
> > q
> > tiene el string?
> >
> >
> >
> >