Sub CreateTable
Log("Create Table")
strQuery="DROP TABLE IF EXISTS Palabras"
SQL1.ExecNonQuery(strQuery)
strQuery="CREATE TABLE IF NOT EXISTS Palabras (pId INTEGER, pFrec TEXT, pAlf TEXT)"
SQL1.ExecNonQuery(strQuery)
strQuery="INSERT INTO Palabras VALUES (?,?,?)"
'We are not initializing the list because it just holds the list that returns from File.ReadList
ListaPalabras = File.ReadList(File.DirAssets, "lista1.txt")
Dim indPals As Int
For indPals= 0 To ListaPalabras.Size - 1
Dim iId As String = Regex.Split("\|", ListaPalabras.Get(indPals))(0)
Dim iPF As String = Regex.Split("\|", ListaPalabras.Get(indPals))(1)
Dim iPA As String = Regex.Split("\|", ListaPalabras.Get(indPals))(2)
Dim b() As Byte = iPF.GetBytes("UTF-8")
SQL1.ExecNonQuery2(strQuery, Array As Object(iId, BytesToString(b, 0, b.Length, "UTF-8") , iPA))
'SQL1.ExecNonQuery2(strQuery, Array As Object(iId, iPF, iPA))
Next
End Sub