Mensajes

[Karcrack]

Bueno como habeis visto, he posteado la funcion de desabreviar  
Tambien he quitado algunos ":" para que la funcion sea mas legible (siguiendo vuestro consejo )
Voy a ver tu funcion Karcrack, aunque debo de admitir que hay cosas que no entiendo, las buscare y si tengo dudas pregunto...

Salu2 y Gracias!

[Karcrack]

@Karcrack
Te odio!!!
Queria hacerlo yo antes...
No obstante no voy a mirar tu code, y publicare mi alternativa, despues mirare el tuyo...

JAJAJAJA

Salu2!

Gracias!
Si, lo de las series multiples era una de las cosas a implementar, buena idea lo de "des-abreviar"... (Lo metere tambien, buena idea)
En cuanto lo de las lineas es pura costumbre, auque tienes razon que es mas "entendible" como me has puesto...
En unos dias posteo la nueva

Salu2 y Gracias a ambos!

[BlackZer0X]

Hola chicos, esta es mi ultima funcion que sirve para simplificar arrays numéricos.
En realidad es un reto que me puso mi maestro BlackZer0X!

Añadir mi clase cCollectionEx.cls

Código (vb) [Seleccionar] Expandir


'=========================================================
' º Function : Abbreviate_Numeric_Array
' º Author   : Mr. Frog ©
' º Mail     : vbpsyke1@mixmail.com
' º Recommended Websites :
'       http://blog.visual-coders.com.ar/
'       http://InfrAngeluX.Sytes.Net/
'=========================================================
Option Explicit
Option Base 0

Rem Añadir mi clase cCollectionEx.cls

Public Function Abbreviate_Numeric_Array(ByRef vNumberList() As Variant) As cCollectionEx
If (Not vNumberList) = -1 Then Exit Function
Dim cExTemp                                         As New cCollectionEx
Dim lActualNumber                                   As Variant
Dim lToTalNumbers                                   As Long
Dim Q                                               As Long
Dim W                                               As Long
   lToTalNumbers = UBound(vNumberList())
   If lToTalNumbers > 2 Then
       Do While Q <= lToTalNumbers
           lActualNumber = vNumberList(Q)
           W = 0
           If (Q < lToTalNumbers) Then
               Do While (vNumberList(Q) + 1 = vNumberList(Q + 1)) Or _
                        (vNumberList(Q) = vNumberList(Q + 1))
                   Q = Q + 1
                   W = W + 1
               Loop
           End If
           With cExTemp
               If W > 1 Then
                   .Add lActualNumber & "~" & vNumberList(Q)
               Else
                   .Add lActualNumber
               End If
           End With
           If Not (W = 1) Then Q = Q + 1
       Loop
       Set Abbreviate_Numeric_Array = cExTemp
   End If
End Function

Ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Dim Q                                   As Long
Dim dArray()                            As Variant
Dim sResult                             As String

   dArray() = Array(1, 2, 3, 4, 4, 5, 6, 7, 7, 7, 65, 345, 4545, 4546, 4547, 9999999, 9999999999#)
   
   With Abbreviate_Numeric_Array(dArray)
       For Q = 1 To .Count
           sResult = sResult & .Item(Q) & "|"
       Next Q
   End With
   
   Debug.Print sResult
End Sub

Obtengo esto:

1~7|65|345|4545~4547|9999999|9999999999|

Ahora mi funcion para desabreviar...

Código (vb) [Seleccionar] Expandir


'=========================================================
' º Function : DeAbbreviate_Numeric_Array
' º Author   : Mr. Frog ©
' º Mail     : vbpsyke1@mixmail.com
' º Recommended Websites :
'       http://blog.visual-coders.com.ar/
'       http://InfrAngeluX.Sytes.Net/
'=========================================================
Option Explicit
Option Base 0

Public Function DeAbbreviate_Numeric_Array(ByRef sNumbersItems() As String) As cCollectionEx
If (Not sNumbersItems) = -1 Then Exit Function
Dim cExTemp                                         As New cCollectionEx
Dim sActualItem                                     As String
Dim sNumbers()                                      As String
Dim lToTalItems                                     As Long
Dim Q                                               As Long
Dim W                                               As Long
   lToTalItems = UBound(sNumbersItems())
   If lToTalItems > 2 Then
       For Q = 0 To lToTalItems
           sActualItem = sNumbersItems(Q)
           If sActualItem Like "*~*" Then
               sNumbers() = Split(sActualItem, "~")
               For W = CDbl(sNumbers(0)) To CDbl(sNumbers(1))
                   cExTemp.Add W
               Next W
           Else
               cExTemp.Add sActualItem
           End If
       Next Q
       Set DeAbbreviate_Numeric_Array = cExTemp
   End If
End Function

Un ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Dim sArray()                    As String
Dim Q                           As Long

   sArray() = Split("1|2|8|9|34|56~58|9999~10002|", "|")
   With DeAbbreviate_Numeric_Array(sArray())
       For Q = 1 To .Count
           Debug.Print .Item(Q)
       Next Q
   End With
End Sub

Me da esto:

1
2
8
9
34
56
57
58
9999
10000
10001
10002

DoEvents!

Cierto, esta es mi cancion favorita de Tomatito
[youtube=425,350]http://www.youtube.com/watch?v=h_yBG1ov5_8[/youtube]

Alguien conoce a Ron Thal?
Es una maquina!
[youtube=425,350]http://www.youtube.com/watch?v=SUx6yRXoo-E[/youtube]

[Jennifer Batten]

Jennifer Batten
Allan Holdsworth
Brett Garsed

Hey!
Brett Garsed tocaba con T.J. Helmerich en quid pro quo!!!
Mis heroes!

No te lo tomes a mal pero yo que tu dejaria estos manuales.
Te dicen como hacer todo "paso a paso" (que encima estan casi todos fatal)...
Yo creo que esta no es la forma idonea de aprender, pero eso es decision tuya...

Salu2!

Me hizo gracia de lo mala que me parecio!
de ahi que crera el post...

Salu2!

NO se podría condenar a los violadores, no.

¿Pero a los que nos gusta practicar sexo por diversión y placer? 

No te sigo...
A que viene eso?

Error mío, estaba pensado en otra cosa corregido

Ah!
Esk no citaste lo que dijo Constance y no entendi el contexto...
La mujer de la pelicula no puede controlarlo...

Salu2!