Read text File into listbox in reverse order

[yinkajewole]

I have some lines in a text file. the lines were written in a way such that the last line is added at the bottom. i have a listbox that i want it to read the lines in the text file in a reverse order i.e from the last line to the first line

 

[Rick Rothstein]

I have some lines in a text file. the lines were written in a way such that the last line is added at the bottom. i have a listbox that i want it to read the lines in the text file in a reverse order i.e from the last line to the first line

Assuming your ListBox is on a UserForm and that it is named ListBox1 and that you change the red highlighted text to your actual path/filename, run this subroutine from whatever event (initialize, button click, etc.) you want...

Sub ReverseTextFileShowInListBox()
  Dim X As Long, FileNum As Long, TotalFile As String, Lines As Variant
  FileNum = FreeFile
  Open "[B][COLOR="#FF0000"]C:\Temp\ReverseMe.txt[/COLOR][/B]" For Binary As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
    TotalFile = Space(LOF(FileNum))
    Get [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] , , TotalFile
  Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
  Lines = Split(TotalFile, vbCrLf)
  For X = UBound(Lines) To 0 Step -1
    ListBox1.AddItem Lines(X)
  Next
End Sub

 

[yinkajewole]

I'm not with my pc at the moment, i'll try it later.
by the way, is the possible to list them by eliminating duplicates?

 

[Rick Rothstein]

I'm not with my pc at the moment, i'll try it later.
by the way, is the possible to list them by eliminating duplicates?

That will take different code as this is basically a different question. However, you need to clarify something for us. Since you are asking for the list to be reversed, the question comes to mind which duplicate should be kept... the first one on the existing list or the last one? For example, if this is your list...

nine
eight
three
seven
six
three
three
five
four
three
two
one

would you want the reversed list to be this...

one
two
four
five
six
seven
three
eight
nine

or this...

one
two
three
four
five
six
seven
either
nine

 

[yinkajewole]

the last one on the existing list i.e
jack
john
peter
lord
john --> this should be retained
cole

 

[yinkajewole]

the list should be reversed like this...
one
two
four
five
six
seven
three
eight
nine

 

[Rick Rothstein]

the list should be reversed like this...
one
two
four
five
six
seven
three
eight
nine

Try using this code in place of the code I gave you earlier...

Sub ReverseTextFileShowInListBox()
  Dim X As Long, FileNum As Long
  Dim TotalFile As String, InListBox As String
  Dim Lines As Variant
  FileNum = FreeFile
  Open "C:\Temp\ReverseMe.txt" For Binary As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
    TotalFile = Space(LOF(FileNum))
    Get [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] , , TotalFile
  Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
  Lines = Split(TotalFile, vbCrLf)
  With CreateObject("Scripting.Dictionary")
    For X = UBound(Lines) To 0 Step -1
      If .Exists(Lines(X)) Then .Remove Lines(X)
      .Item(Lines(X)) = 1
    Next
    ListBox1.List = .Keys
  End With
End Sub

 

[DanteAmor]

Only another way

Private Sub CommandButton1_Click()
  Workbooks.OpenText Filename:="[COLOR=#ff0000]C:\trabajo\otro.txt[/COLOR]", Origin:=xlWindows, FieldInfo:=Array(1, 1)
  Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
  Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row) = "=INDIRECT(""A"" & " & Range("A" & Rows.Count).End(xlUp).Row + 1 & "-ROW())"
  ListBox1.List = Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
  ActiveWorkbook.Close False
End Sub

 

[yinkajewole]

Try using this code in place of the code I gave you earlier...

Sub ReverseTextFileShowInListBox()
  Dim X As Long, FileNum As Long
  Dim TotalFile As String, InListBox As String
  Dim Lines As Variant
  FileNum = FreeFile
  Open "C:\Temp\ReverseMe.txt" For Binary As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
    TotalFile = Space(LOF(FileNum))
    Get [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] , , TotalFile
  Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
  Lines = Split(TotalFile, vbCrLf)
  With CreateObject("Scripting.Dictionary")
    For X = UBound(Lines) To 0 Step -1
      If .Exists(Lines(X)) Then .Remove Lines(X)
      .Item(Lines(X)) = 1
    Next
    ListBox1.List = .Keys
  End With
End Sub

great it worked

 

[yinkajewole]

@Rick Rothstein I don't know if I'm asking for too much, I'm sorry, however, I believe you can help if it's possible.

I just had an idea.
using the code in this thread to write the file name and path in a text file https://www.mrexcel.com/forum/excel-questions/1096663-write-file-name-into-text-file.html
how possible is it to use your code to list the file names and path in the text file into the listbox so that it would hide the path but show only the names?