PARTIR ARRAY

[galileogali]

Tengo un ARRAY por ejemplo Bidimensional:
Mimatriz ( 1 to 70536) .
Quiero dividirlo en dos; MiMatrizSh1(1 to 65536, 1 to 1) y MiMatrizSh2(65537 to 70536, 1 to 1)

¿¿Existe alguna Forma de hacer esta division sin necesidad de Loopear en un FOR NEXT, SIN PERDER LOS DATOS, desde ya???

(Tambien seria válida una división como esta:MiMatrizSh1(1 to 65536, 1 to 1) y MiMatrizSh2(1 to 5536, 1 to 1)

He probado con REDIM PRESERVE, pero no lo logro.

 

[Greg Truby]

Hola Gali,

Por fin tuve tiempo para ver eso. ¡Muey bien! Una cosa, uno no puede pasar una matriz asi ByVal solamente ByRef. Entonces realmente los cambios a x() van a impactar Arrx entonces cambié eso a una rutina en vez de una función y puse "ByRef" asi uno no piensa que Arrx queda sin estar tocado.

Sub EliminaItem(ByRef x() As String, n As Long)

    '// not putting in a blank because it is conceivable that the 
    '// inbound array contains empty elements. We are trying to delete
    '// a specific element, not a specific element + all empty elements.    
    Const c_strUnlikelyString = "~!@#$%^%$#@!~"
    
    Dim strR As String, strToReplace As String, strNew As String

    If UBound(x) = 0 Then Exit Sub
    If n < LBound(x) Or n > UBound(x) Then Exit Sub
    
    Select Case n
        Case LBound(x)      ' first element, so no leading pipe
            strToReplace = c_strUnlikelyString & "|"
            strNew = vbNullString
        Case UBound(x)      ' last element, so no trailing pipe
            strToReplace = "|" & c_strUnlikelyString
            strNew = vbNullString
        Case Else           ' leading & trailing pipes
            strToReplace = "|" & c_strUnlikelyString & "|"
            strNew = "|"
    End Select
    
    x(n) = c_strUnlikelyString
    strR = Join(x, "|") 'rearmo la cadena
    strR = Replace(strR, strToReplace, strNew) 'elimino el espacio vacío
    x = Split(strR, "|") 'rearmo el ARRAY con la cadena disminuida

End Sub

 

[Greg Truby]

¡Uy! Se me olvidó decir que dado la forma nueva, cambié la llamada a tal:

    'Arrx = EliminaItem(Arrx, n)
    EliminaItem Arrx, n - 1

 

[galileogali]

Greg:
Gracias por haber puesto tu atencion en esto.
Yo recien arribo de mis vacaciones. En cuanto pueda revisare tu aporte
y generare mis comentarios.

Thanks