border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 30-09-2010, 23:07:24
Buena Participación en el Foro
 
Registrado: feb 2010
Ubicación: Valencia Venezuela
Posts: 47
Créditos: 1.821
HIR00 Aun no valorado
Lightbulb Duda extraccion de Numeros de una Cadena (Solucionado)

Estimados compañeros hace poco tuve un pequeño problema que resolver resulta que debo pasar unos parametros a un SP, pero el mismo debe estar en un formato especifico, que seria algo como esto:

Cita:
(76 77 78 201)
Que serian los niveles de empleados. Mi duda surge ya que tengo una funcion que me devuelve los niveles en una consulta pero me viene en esta manera:

Cita:
AND ((NIVEL = 76) OR (NIVEL = 77) OR (NIVEL = 78) OR (NIVEL = 201))
Consegui una funcion que permite extraer solo los numeros de una Cadena, la cual es la siguiente:

Código:
Public Function Numeros() As Long

Dim i As Integer
Dim Nivel As String
Nivel = Niveles(3) 'Recuerdo que niveles su valor de entrada es: AND   ((NIVEL = 76)  OR (NIVEL = 77)  
OR (NIVEL = 78)  OR (NIVEL = 201)) 
For i = 1 To Len(Nivel)
If mId$(Nivel, i, 1) Like "#" Then _
Numeros = Numeros & mId$(Nivel, i, 1)
Next i

End Function
Luego de aplicar esa funcion a esa cadena obtengo este resultado:

Código:
767778201


Entonces mi duda surge existe una manera que pueda extraer los numeros y me retorne:


Código:
76 77 78 201


He pensado con split pero estoy algo confundido con su uso por lo que quisiera que me orientaran de que manera podria obtener el resultado antes mencionado.

De antemano muchas gracias.

Última edición por HIR00 fecha: 01-10-2010 a las 13:16:37.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 01-10-2010, 05:31:13
Gran Participación en el Foro
 
Registrado: nov 2009
Ubicación: Palma de Mallorca
Posts: 331
Créditos: 13.635
erbuson Aun no valorado
Predeterminado Re: Duda extraccion de Numeros de una Cadena

Hola, si los datos vienen siempre igual, podrías conseguirlo por ejemplo con esta funcion, ya sabes que soluciones hay muchas, si no probablemente la idea te sirva para adaptarla a tus necesidades.

Código:
 
Private Function Numeros(Cadena As String) As String
Dim n As Integer, Caracter As String
For n = 1 To Len(Trim$(Cadena)) - 2
Caracter = Mid$(Cadena, n, 1)
If InStr("0123456789)", Caracter) > 0 Then
If Caracter = ")" Then Caracter = " "
Numeros = Numeros & Caracter
End If
Next
End Function
 
Creo que la idea es fácil de comprender.
 
Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 01-10-2010, 13:16:06
Buena Participación en el Foro
 
Registrado: feb 2010
Ubicación: Valencia Venezuela
Posts: 47
Créditos: 1.821
HIR00 Aun no valorado
Predeterminado Re: Duda extraccion de Numeros de una Cadena

Compañero me sirvio a la perfeccion hice una prueba con otro escenario que se me pudiera plantear e igual me funciono. Gracias por la ayuda.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 07:58:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design