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.
Leer las respuestas