Gem fra hr til hr i et array

noget i den stil..

Private Sub Form_Load()
Dim i      As Long
Dim nFree  As Integer
Dim arrHR() As String
Dim strData As String

  nFree = FreeFile
  Open "C:\din_html_file.html" For Binary Access Read As #nFree
    strData = Space$(LOF(nFree))
    Get #nFree, 1, strData
  Close #nFree

  arrHR = Split(strData, "<hr>", -1, vbTextCompare)
  For i = LBound(arrHR) To UBound(arrHR)
    ' her kommer din data så ud..
    Debug.Print arrHR(i)
    ' ---------------------------
  Next

End Sub

Det ser ud til at virke fint!
Kan du også hjælpe med at skrive det til filen udskriv.htm?

For at gemme din data igen, så kan du gøre sådan..

  nFree = FreeFile
  Open "C:\udskriv.htm" For Binary Access Write As #nFree
    Put #nFree, 1, strData
  Close #nFree

Mange tak!

selv tak