..super... created a simple sub... (just to say that must get the first character of every line)
B4X:
Sub GetRNDIcon As String
Dim fa As List=File.ReadList(File.DirAssets,"FontAwesomeList.txt")
Dim getit As String = fa.Get(Rnd(1,fa.Size-2)) 'better make -2 not -1 / because of last empty/space line
Dim c As String = getit.SubString2(0,1)
Return c
End Sub