Module Module1
Sub Main()
Dim allLines() As String = File.ReadAllLines("d:\negative_keywords.txt")
For Each line As String In allLines
Dim arr() As String = line.Split(New Char() {" "c})
For Each word As String In arr
Console.WriteLine(word)
Next
Next
End Sub
End Module
' run:
'
' case
' study
' close
' panel
' free
' download
' success
' story
' ...