4. Teil: Jetzt wird's heavy

Wir Suchen!

Private Function FindDS(Byval sBegriff As String) As Boolean
   Dim F As Byte
   Dim DSNr As Long, i As Long
   Dim S As String
 
   FindDS = False
   F = FreeFile()
   On Erroro Goto FileError
   Open "Adressen.TXT" For Random As #F Len = Len(Addressen)
   On Error Goto 0
 
       'Anzahl DS Ermitteln
       If LOF(F) > 1 Then
          DSNR = (LOF(F) / Len(Addressen)
       Else
          Close #f
          Exit Function
       End If
 
       For i = 1 To DSNr
          Get #F, i, Addressen
          S = ConvertUDT(Addressen)
          If Instr(sBegriff, "*") > 0 Then
             If S Like sBegriff Then
                If FoundDS(Addressen) Then
                    FindDS = True
                    Exit Function
                End If
             End If
          ElseIf Instr(sBegriff,"?") > 0 Then
             If S Like sBegriff Then
                If FoundDS(Addressen) Then
                    FindDS = True
                    Exit Function
                End If
             End If
          Else
             If Instr(S,sBegriff)>0 then
                If FoundDS(Addressen) Then
                    FindDS = True
                    Exit Function
                End If
             End If
          End If
       Next
    Close #F
    Exit Sub
 
FileError:
    MsgBox "Die Datei konnte nicht geöffnet werden.",vbExclamation,"Dateifehler"
End Sub

Private Function FoundDS(oAdr As Adr) As Boolean
    Dim jN As Variant
    FoundDS = False
 
    jN = MsgBox("Es konnte ein Datensatz gefunden werden." & vbcrLf & _
                "Den Datensatz <" & _
                oAdr.Name & " " & oAdr.Vorname & "> laden?", _
                vbQuestion + vbyesno, "Datensatz gefunden ...")
    If jN = vbyes Then LoadDS oAdr.Satznummer
    jN = MsgBox("Beenden (JA) oder weitersuchen (NEIN)?", _
               vbQuestion + vbyesno,"Weitersuchen?")
    If jN = vbyes Then FoundDS = True
End Function