Flette 2 txt filer sammen,

gør det lige lidt mere forståeligt:

Er der en måde, så man kan få sat filerne sammen i en given orden, også selvom programnavnet (Det der står efter [APP]) ikke står i samme rækkefølge?

Fand ud af det: Skriver det bare via 2 lister til en ny liste :D
---Form1----
Dim Fil1
Dim Fil2
Dim OutFile

Function LoadFiler()
Dim linjeFil1 As String
Dim linjeFil2 As String

Open Fil1 For Input As #1
    Do Until linjeFil1 = "[ENDFILE]"
    Input #1, linjeFil1
   
      If linjeFil1 <> "[APP BEGIN]" And linjeFil1 <> "[APP END]" And linjeFil1 <> "[ENDFILE]" Then
          If linjeFil1 = "" Then
        programtal = programtal + 1
        Else
        lstFil1.AddItem (linjeFil1)
        End If
      End If
    Loop
  lstFil1.Refresh
Close #1


Open Fil2 For Input As #1
    Do Until linjeFil2 = "[ENDFILE]"
    Input #1, linjeFil2
   
      If linjeFil2 <> "[APP BEGIN]" And linjeFil2 <> "[APP END]" And linjeFil2 <> "[ENDFILE]" Then
          If linjeFil2 = "" Then
        Else
        lstFil2.AddItem (linjeFil2)
        End If
      End If
    Loop
      lstFil2.Refresh
Close #1
End Function
Function List()
Dim i
Do While lstFil2.ListCount >= 3 And lstFil1.ListCount >= 2
If lstFil1.List(0) = lstFil1.List(i) Then
lstFil2.RemoveItem (i) 'programnavn fra lstfil2



lstTemp.AddItem (lstFil1.List(0))
lstFil1.RemoveItem (0)  'programnavn fra lstfil1
lstFil1.Refresh

lstTemp.AddItem (lstFil1.List(0))
lstFil1.RemoveItem (0)  'version fra lstfil1
lstFil1.Refresh

lstTemp.AddItem (lstFil2.List(i)) 'version fra lstfil2
lstFil2.RemoveItem (i)
lstTemp.AddItem (lstFil2.List(i)) 'Kommentar fra lstfil2
lstFil2.RemoveItem (i)

Else
i = i + 1
End If
Loop




End Function

Private Sub Command1_Click()
Call LoadFiler
End Sub

Private Sub Command2_Click()
Call List
End Sub

Private Sub Form_Load()
Fil1 = App.Path & "\fil1.txt"
Fil2 = App.Path & "\fil2.txt"
End Sub
---Form1----