首先把txt文件拖到设计器文件列表中
如图:

然后添加如下代码:

Sub Globals
Dim list1 As List '''''''''''''''定义一个list,把txt文件每一行存到list中
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")

list1=File.ReadList(File.DirAssets,"qa.txt")
For i=0 To list1.Size-1
Log(list1.Get(i))
Next
End Sub

注意:1.这种方式只能读取不能写入(文件为只读),如果想要写入就只能从SD卡中读取!
2.这种方式读取,TXT文件必须另存为“UTF-8”编码格式!否则读取到的中文为乱码!