TextInputStream.ReadLine
From Xojo Documentation
Method
TextInputStream.ReadLine([Encoding as TextEncoding]) As String
Supported for all project types and targets.
Supported for all project types and targets.
Returns the next line of text (as a string) from the TextInputstream. Any valid end-of-line indicator is used to identify a line.
Notes
The optional Encoding parameter enables you to specify the encoding of the text. If you pass Nil, the default encoding is used. This is usually UTF-8, unless it was set to another encoding via an assignment statement. If you want to set the encoding to Nil, use the Encoding property instead.
Example
This example reads the rows and columns of data from a tab-delimited text file into a ListBox:
Var f As FolderItem
Var textInput As TextInputStream
Var rowFromFile, oneCell As String
f = FolderItem.ShowOpenFileDialog("text/plain") // defined as a FileType
If f <> Nil Then
textInput = TextInputStream.Open(f)
textInput.Encoding = Encodings.UTF8
Do
rowFromFile = textInput.ReadLine
If ListBox1.ColumnCount < rowFromFile.CountFields(Chr(9)) Then
ListBox1.ColumnCount = rowFromFile.CountFields(Chr(9))
End If
ListBox1.AddRow(NthField(rowFromFile, Chr(9), 1))
For i As Integer =1 To rowFromFile.CountFields(Chr(9))
oneCell = rowFromFile.NthField(Chr(9), i)
ListBox1.CellValueAt(ListBox1.SelectedRowIndex - 1, i - 1) = oneCell
Next
Loop Until textInput.EndOfFile
textInput.Close
End If
Var textInput As TextInputStream
Var rowFromFile, oneCell As String
f = FolderItem.ShowOpenFileDialog("text/plain") // defined as a FileType
If f <> Nil Then
textInput = TextInputStream.Open(f)
textInput.Encoding = Encodings.UTF8
Do
rowFromFile = textInput.ReadLine
If ListBox1.ColumnCount < rowFromFile.CountFields(Chr(9)) Then
ListBox1.ColumnCount = rowFromFile.CountFields(Chr(9))
End If
ListBox1.AddRow(NthField(rowFromFile, Chr(9), 1))
For i As Integer =1 To rowFromFile.CountFields(Chr(9))
oneCell = rowFromFile.NthField(Chr(9), i)
ListBox1.CellValueAt(ListBox1.SelectedRowIndex - 1, i - 1) = oneCell
Next
Loop Until textInput.EndOfFile
textInput.Close
End If