Public Function StringAuslesen()
 
Dim db As DAO.Database
Dim rs3 As Recordset
Dim rs4 As Recordset
Dim rs5 As Recordset
Dim ersterwert As Long
Dim zweiterwert As Long
Dim html As String
Dim target As String
Dim rs9 As Recordset
 
' Sortiertes Öffnen der Ergebnis-Datensätze
Set rs3 = CurrentDb.OpenRecordset("select * from U_kat_Suchbegriffe order by" & _
  "IdNummer ASC")
Set rs5 = CurrentDb.OpenRecordset("select Kategorie_ID from U_kat_Suchbegriffe")
 
 
' Testweise Ausgabe in eine Datei
Open Globals.ClientPfad & "Endergebnis.txt" For Output As #1
 
html = ToolBox.readfile(Globals.HtmlVorlagenPfad & "CLS_Vorlage3.HTM")
 
zweiterwert = rs3!IdNummer
rs3.MoveNext
 
While Not rs3.EOF
 
ersterwert = zweiterwert
zweiterwert = rs3!IdNummer
 
 
' Jetzt aus Recordset3 alles suchen was zwischen den beiden Werten liegt.
 
    Set rs4 = CurrentDb.OpenRecordset("SELECT * FROM TextReadIn WHERE " & _
                                        "IdNummer >= " & ersterwert & " AND" & _
                                        "IdNummer < " & zweiterwert)  
 
        While Not rs4.EOF
 
             Print #1, rs4!TextRead       ' diese Ausgabe in die Datei klappt!
 
             If InStr(rs5!Kategorie_ID, "2") Then
             html = replace(html, "Jahrgang", rs4!TextRead)         ' in 
             ' TextRead stehen die DS-Nummern. Z.B. soll von DS 3- DS10 
             ' geschrieben werden
             target = Globals.ClientPfad & "Ergebnis.htm"           ' hier 
             ' suche ich nur allgemein den Speicherort der Ergebnisdatei
             ToolBox.writeFile target, html                                  ' 
             ' Zum Schreiben der Datei
             rs4.MoveNext
             End If
 
             If InStr(rs5!Kategorie_ID, "5") Then
             html = replace(html, "Ausbildung", rs4!TextRead)
             target = Globals.ClientPfad & "CLSErgebnis.htm"
             ToolBox.writeFile target, html
             rs4.MoveNext
             End If
        Wend
    rs3.MoveNext
Wend
 
Close #1
rs3.Close
rs4.Close
rs5.Close
Set db = Nothing
Set rs3 = Nothing
Set rs4 = Nothing
Set rs5 = Nothing