Do While cLin <> Null
cLin = Reader.ReadLine
cLin = cLin.Replace(",",".")
Select cPrefijo
Case cFAMim:
c1 = cLin.SubString2(0,7)
c2 = cLin.SubString2(7,37)
Try
globales.DBconex.ExecNonQuery2("insert into '" & cTabla & "' values (?,?)",Array As String(c1,c2))
Catch
Log(cTabla&": "&LastException.Message)
End Try
Case cCLIim:
c1 = cLin.SubString2(0,10)
c2 = cLin.SubString2(10,40)
c3 = cLin.SubString2(40,70)
c4 = cLin.SubString2(70,100)
c5 = cLin.SubString2(100,130)
c6 = cLin.SubString2(130,144)
c7 = cLin.SubString2(144,164)
c8 = cLin.SubString2(164,184)
c9 = cLin.SubString2(184,185)
c10 = cLin.SubString2(185,186)
Try
globales.DBconex.ExecNonQuery2("insert into '" & cTabla & "' values (?,?,?,?,?,?,?,?,?,?)",Array As String(c1,c2,c3,c4,c5,c6,c7,c8,c9,c10))
Catch
Log(cTabla&": "&LastException.Message)
End Try
Case cPENim: