Dim L_coord1,L_coord2,L_coord3,L_coord4,L_coord5 As String
'CON ESTO SACAMOS LOS 5 VALORES QUE TENGO EN EL TXT Y LOS MUESTRO EN LOS MSGBOX. EMPIEZA LIST(0) POR QUE ESE ES EL CAMPO 1.
Dim List1 As List
List1 = File.ReadList(File.DirDefaultExternal, "coordenadas.txt")
'EMPIEZO CON IF A LEER EL LIST , SACAR LAS LINEAS Y SEPARARLAS SIN EL _
If List1.get(0) = "" Then ' 1 linea del TXT
Else
L_coord1 = List1.Get(0) ' metemos el primer dato de la lista en l_coord
Dim l_Datos1() As String = Regex.Split("_",L_coord1) ' aqui sacamos todas las palabras separadas por _
' y las metemos en variables dentro de () , si so
End If
'------------------------ 2 linea del TXT
If List1.get(1) = "" Then
Else
L_coord2 = List1.Get(1) '
Dim l_Datos2() As String = Regex.Split("_",L_coord2)
End If
'------------------------ 3 linea del TXT
If List1.get(2) = "" Then
Else
L_coord3 = List1.Get(2)
Dim L_Datos3() As String = Regex.Split("_",L_coord3)
End If
'------------------------------------ 4 LINEA DEL TXT
If List1.get(3) = "" Then ' 4 linea del TXT
Else
L_coord4 = List1.Get(3)
Dim L_Datos4() As String = Regex.Split("_",L_coord4)
End If
'------------------------------------ 5 LINEA DEL TXT
If List1.get(4) = "" Then ' 5 linea del TXT
Else
L_coord5 = List1.Get(4)
Dim L_Datos5() As String = Regex.Split("_",L_coord5)
End If