Private Declare Function ScanFile Lib "vbex32.dll" Alias _
   "VBSTRINGINFILE" _
   (sQuellFile As String, sFind As String, _
    sDelim As String, ByVal nStep As Long) As String
 
Private Const MAXSTEP As Long = 1000000
 
Private Const SCAN_ERR_BADPATH = &H0
Private Const SCAN_ERR_SUCCESS = &H1
Private Const SCAN_ERR_NOQFILEFOUND = &H2
Private Const SCAN_ERR_CORRUPTFILE = &H3
Private Const SCAN_ERR_NOTFOUND = &H4
Private Const SCAN_ERR_NOZFILE = &H5
 
Private Sub Form_Load()
   SplitInFile "C:\Test.TXT", "C:\Test1.TXT", "s="
End Sub
 
Private Function SplitInFile(sQuellFile As String, _
                             sZielFile As String, _
                             sFind As String) As Long
 
      Dim nFileLen As Long, nMax As Long, i As Long, n As Long
      Dim sScan As String
      Dim vErg As Variant
      Dim f1 As Integer, f2 As Integer
 
      ' Quelldatei prüfen und Länge ermitteln
      On Error Resume Next
      If Dir(sQuellFile) = "" Then
          If Err.Number > 0 Then
               SplitInFile = SCAN_ERR_BADPATH
               Exit Function
          End If
          SplitInFile = SCAN_ERR_NOQFILEFOUND
          Exit Function
      End If
      nFileLen = FileLen(sQuellFile)
 
      ' Stepprate für ScanFile ermitteln
      If nFileLen = 0 Then
          SplitInFile = SCAN_ERR_CORRUPTFILE
          Exit Function
      End If
      If (nFileLen \ MAXSTEP) > 0 Then
          nMax = MAXSTEP
      Else
          nMax = nFileLen
      End If
 
      ' QuelleFile scannen
      sScan = ScanFile(sQuellFile, sFind, "&*&", nMax)
      If Len(sScan) < 1 Then
          SplitInFile = SCAN_ERR_NOTFOUND
          Exit Function
      End If
 
      ' sScan-String nach Muster &*& splitten
      vErg = Split(sScan, "&*&")
      If UBound(vErg) = 0 Then
         SplitInFile = SCAN_ERR_NOTFOUND
         Exit Function
      End If
 
      ' Quell- und Zieldatei öffnen
      f1 = FreeFile
      Open sZielFile For Output As #f1
      If Err.Number > 0 Then
           SplitInFile = SCAN_ERR_NOZFILE
           Exit Function
      End If
      f2 = FreeFile
      Open sQuellFile For Binary As #f2
 
      ' Evtl. FileHeader überspringen
      If Val(vErg(0)) > 1 Then sScan = Input(Val(vErg(0)) - 1, #f2)
 
      ' Und los geht's
      For i = 0 To UBound(vErg)
          n = Val(vErg(i + 1)) - Val(vErg(i))
          sScan = Input(n, #f2)
          Print #f1, sScan
      Next
 
      ' Aufräumen
      Close #f2, #f1
      Erase vErg
      SplitInFile = SCAN_ERR_SUCCESS
End Function