Reply Quickly (Not to Hard) Editing a text document.

[Animelion]

How can I read a text file, alphabatize it and then remove all duplicates down to 2

so

cow
cow
cow
fun
fun
me
me
me
me
we

NOW BECOMES

cow
cow
fun
fun
me
me
we

After that how can I read the same text file and be able to tell wich items are listed twice.

If anyone can tell me, this would be major help.

[Bruce Fox]

1. Load the text file into a ListBox (Sorted = True - at build),
2. Loop thru an increment a counter if the next item is the same, if it reaches 3, delete that Item,
3. And I think thats it

[Bruce Fox]

This will load a TextFile, and place it into a Sorted ListBox:

Option Explicit
'Set the List1 Sorted property to True at Build
 
Private Sub Form_Load()
   Dim sBuff As String
   Dim i As Long
 
   On Error GoTo err_Handler
 
   Open App.Path & "\TestFile.txt" For Input As #1
       Do Until EOF(1)
          Line Input #1, sBuff
          List1.AddItem sBuff
       Loop
    Close #1
 
    Exit Sub
err_Handler:
MsgBox "Description : " & Err.Description & vbCrLf _
    & "Number : " & Err.Number
    Err.Clear
End Sub

[Bruce Fox]

And this will remove 3 or more duplicates:

Option Explicit
'Set the List1 Sorted property to True at Build
 
Private Sub Form_Load()
   Dim sBuff As String
   Dim i As Long
 
   On Error GoTo err_Handler
 
   Open App.Path & "\TestFile.txt" For Input As #1
       Do Until EOF(1)
          Line Input #1, sBuff
          List1.AddItem sBuff
       Loop
    Close #1
 
    For i = List1.ListCount - 1 To 0 Step -1 'Removes > 2 duplicates
      If List1.List(i) = List1.List(i - 1) And List1.List(i) = List1.List(i - 2) Then
         List1.RemoveItem (i)
      End If
    Next
 
    Exit Sub
 
err_Handler:
MsgBox "Description : " & Err.Description & vbCrLf _
    & "Number : " & Err.Number
    Err.Clear
End Sub

[Bruce Fox]

And, Done................

Option Explicit
'Set the List1 Sorted property to True at Build
 
Private Sub Form_Load()
   Dim sBuff As String
   Dim i As Long
 
   On Error GoTo err_Handler
 
   Open App.Path & "\TestFile.txt" For Input As #1
       Do Until EOF(1)
          Line Input #1, sBuff
          List1.AddItem sBuff
       Loop
    Close #1
 
    For i = List1.ListCount - 1 To 0 Step -1 'Removes > 2 duplicates
      If List1.List(i) = List1.List(i - 1) And List1.List(i) = List1.List(i - 2) Then
         List1.RemoveItem (i)
      End If
    Next
    
    For i = 0 To List1.ListCount - 1   'Identifies any Duplicates
      If List1.List(i) = List1.List(i + 1) Then MsgBox "Duplicate Found : " & List1.List(i)
    Next
 
    Exit Sub
 
err_Handler:
MsgBox "Description : " & Err.Description & vbCrLf _
    & "Number : " & Err.Number
    Err.Clear
End Sub

Tou could have used an Array, but why load an extra Variable, when
this does the same thing...

Bruce.

[Animelion]

Thanks a ton, but I'm still having troubles.

I'm gonna post what I have done.

What I am trying to do is make it so that when a user opens a txt file all the words listed one time will be put in lstUsers2 and all names listed twice will go into lstUsers3

After that it will take all the names in lstUsers2 and add them to lstUsers like such Column1: (word) Column2: (lvl 1)

and then

all the names in lstUsers3 and add them to lstUsers like such Column1: (word) Column2: (lvl 2)


Maybe I am over complifying things, but I think this methode would still work.

I will post the program in the next post.

[Animelion]

Here is as far as I could get.

[Bruce Fox]

Originally posted by Animelion
What I am trying to do is make it so that when a user opens a txt file all the words listed one time will be put in lstUsers2 and all names listed twice will go into lstUsers3

Maybe u could load the data into a third, hidden, listbox.
Then (after its sorted, and stripped of all 3 or more duplicates)
only load Items if they don't match the next Item in the list.

If whatever.List(?) <> whatever.List(? + 1) Then IstUsers3 Additem whatever.List(?)

Oh, and replace the On Error: code too!
(also, it should be "On Error Goto Error", without the ":", and there
should be an Exit Sub just above the Error: routine)

[Animelion]

Thanks for your help, but I have now super simplified things.

I have just used 4 seperate text files, and then compile them on command instead of trying to do it on the fly with 2 text files.

THANKS A TON.

By the end of all this I should wright a quick help tutorial for listviews and lisboxes.