elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Consulta: Función Split
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Consulta: Función Split  (Leído 3,032 veces)
jack06

Desconectado Desconectado

Mensajes: 133


anarkia99-Soft.


Ver Perfil
Consulta: Función Split
« en: 8 Mayo 2017, 21:39 pm »

Nuevamente molestandolos, como puedo extraer cierto numero con el Split. Normalmente voy a usar ese formato como muestro abajo

Código:
Número: 5 - 08/05/2017 - ENTREGADO

Lo que deseo obtener es solo el numero 5, siempre extraer despues de que dice Número: osea la que se encuentra en medio del : y - como haría?


En línea

(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ
Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.724


<3


Ver Perfil WWW
Re: Consulta: Función Split
« Respuesta #1 en: 8 Mayo 2017, 22:25 pm »

Algo simple y básico,  :P

Código
  1. Option Explicit
  2. Dim oExpression: oExpression = "Número: 5 - 08/05/2017 - ENTREGADO"
  3. Dim oResult
  4.  
  5. ' Primero un Split separando el caracter -, y selecciono el primer valor
  6. oResult = Split(oExpression, "-")(0)
  7.  
  8. ' Otro Split ahora separando por el caracter : y selecciono el 2do valor
  9. oResult = Trim(Split(oResult, ":")(1))
  10.  
  11. MsgBox oResult

O todo junto,
Código
  1. oResult = Trim(Split(Split(oExpression, "-")(0), ":")(1))


En línea

Te vendería mi talento por poder dormir tranquilo.
jack06

Desconectado Desconectado

Mensajes: 133


anarkia99-Soft.


Ver Perfil
Re: Consulta: Función Split
« Respuesta #2 en: 8 Mayo 2017, 22:47 pm »

Si amigo gracias, igual lo habia resuelto asi, bueno parecido a tu ejmplo

Código:
Dim Cadena As String
Dim ExtraCadena() As String

Cadena = "Número: 5 - 08/05/2017 - ENTREGADO"

ExtraCadena= Split(Cadena, " ")

MsgBox ExtraCadena(1)
En línea

(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ
Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.724


<3


Ver Perfil WWW
Re: Consulta: Función Split
« Respuesta #3 en: 8 Mayo 2017, 22:50 pm »

Si todo tuviera el mismo formato, sí, pero por ejemplo:
Código
  1. ' Número:  5 - 08/05/2017 - ENTREGADO {UN Espacio}
  2. ' Número: 5 - 08/05/2017 - ENTREGADO {UN Tab}
« Última modificación: 8 Mayo 2017, 22:54 pm por Shell Root » En línea

Te vendería mi talento por poder dormir tranquilo.
jack06

Desconectado Desconectado

Mensajes: 133


anarkia99-Soft.


Ver Perfil
Re: Consulta: Función Split
« Respuesta #4 en: 9 Mayo 2017, 00:58 am »

Si todo tuviera el mismo formato, sí, pero por ejemplo:
Código
  1. ' Número:  5 - 08/05/2017 - ENTREGADO {UN Espacio}
  2. ' Número: 5 - 08/05/2017 - ENTREGADO {UN Tab}

Si tiene el mismo Formato es por eso que lo hice de esa forma, de igual manera con tu ayuda ya tengo mas claro el tema y hay varias opciones por escoger, muchísimas gracias por tu tiempo amigo.
En línea

(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[batch] funcion split
Scripting
z_ane_666 1 2,704 Último mensaje 3 Enero 2011, 20:55 pm
por xassiz~
[C]Función SPLIT
Programación C/C++
Binary_Death 7 4,961 Último mensaje 4 Octubre 2011, 17:19 pm
por Binary_Death
[C] Funcion Split
Programación C/C++
mr.blood 6 4,054 Último mensaje 29 Marzo 2013, 10:43 am
por mr.blood
Función Split VB.NET
.NET (C#, VB.NET, ASP)
R3Z 7 6,588 Último mensaje 4 Noviembre 2015, 05:03 am
por R3Z
Función split para separar valores recibidos por un arduino
.NET (C#, VB.NET, ASP)
Rupertito 1 2,284 Último mensaje 27 Noviembre 2019, 16:58 pm
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines