Array de String's

Hola amigos,

Mi problema es el siguiente:

Supongamos que me llega el siguiente string:

FMM/5
1/BR864/19MAR/LGW
BRU
121-42751741LGWBRU/T5K46MCO.12/NEWSPAPERS
121-73023521LGWBRU/T1K4MCO.05/ACFT INST
LAST

Tengo el siguiente código que me introduce en un array cada una de las
líneas.

Public Function Dividir_Mensaje(ByVal Mensaje As String, ByVal ParamArray
Delimitador() As Char) As String()
Return Mensaje.Split(Delimitador)

End Function

Ahora bien, de cada una de esas líneas tengo que separar por el
delimitador
"/". Habia pensado en crearme un array que redimensionandolo guardara cada
una de las partes delimitadas por el caracter "/". El código que realice
es
el siguiente:

Dim arrLineas() As String
Dim arrAux() As String
Dim arrCampos() As String
Dim i As Integer
Dim j As Integer
objValidaMensaje = New clsValidaMensaje(strServidor, strBaseDatos,
strConexion)

arrLineas = objValidaMensaje.Dividir_Mensaje(txtMensaje.Text, Chr(13))

For i = 0 To UBound(arrlineas)

arrAux = objValidaMensaje.Dividir_Mensaje(arrLineas(i), "/")

For j = 0 To UBound(arrAux)

ReDim Preserve arrCampos(arrAux(i) + 1)

Next j

Next i

arrLineas = Nothing

arrAux = Nothing

El problema es que al realizar Redim Preserve me genera un error.

¿Es posible redimensionar un array de String? ¿Alguien tiene alguna idea
mejor de como realizarlo?

Acepto todas sus sugerencias.

Muchas gracias de antemano.

amigo, usa la funcion split que te devuelve un array de una cadena en la

tiene un delimitador predeterminado . variable=split(cadena,"/")

"Angel" escribió en el mensaje
news:
> Hola amigos,
>
> Mi problema es el siguiente:
>
> Supongamos que me llega el siguiente string:
>
> FMM/5
> 1/BR864/19MAR/LGW
> BRU
> 121-42751741LGWBRU/T5K46MCO.12/NEWSPAPERS
> 121-73023521LGWBRU/T1K4MCO.05/ACFT INST
> LAST
>
> Tengo el siguiente código que me introduce en un array cada una de las
> líneas.
>
> Public Function Dividir_Mensaje(ByVal Mensaje As String, ByVal

> Delimitador() As Char) As String()
> Return Mensaje.Split(Delimitador)
>
> End Function
>
> Ahora bien, de cada una de esas líneas tengo que separar por el
> delimitador
> "/". Habia pensado en crearme un array que redimensionandolo guardara

> una de las partes delimitadas por el caracter "/". El código que realice
> es
> el siguiente:
>
> Dim arrLineas() As String
> Dim arrAux() As String
> Dim arrCampos() As String
> Dim i As Integer
> Dim j As Integer
> objValidaMensaje = New clsValidaMensaje(strServidor, strBaseDatos,
> strConexion)
>
> arrLineas = objValidaMensaje.Dividir_Mensaje(txtMensaje.Text, Chr(13))
>
> For i = 0 To UBound(arrlineas)
>
> arrAux = objValidaMensaje.Dividir_Mensaje(arrLineas(i), "/")
>
> For j = 0 To UBound(arrAux)
>
> ReDim Preserve arrCampos(arrAux(i) + 1)
>
> Next j
>
> Next i
>
> arrLineas = Nothing
>
> arrAux = Nothing
>
> El problema es que al realizar Redim Preserve me genera un error.
>
> ¿Es posible redimensionar un array de String? ¿Alguien tiene alguna idea
> mejor de como realizarlo?
>
> Acepto todas sus sugerencias.
>
> Muchas gracias de antemano.
>
>