' Function 62
' VBSTRINGINFILE ********( nicht geändert )************
' Local Vars Register zu DIM
FUNCTION VBSTRINGINFILE ALIAS "VBSTRINGINFILE" (BYREF sFileName AS STRING, _
                        BYREF sFindStr AS STRING, _
                        BYREF sDelim AS STRING, _
                        BYVAL nStep AS LONG) EXPORT AS STRING
     DIM f AS INTEGER
     DIM g AS STRING,a AS STRING, x AS STRING
 
     DIM n AS LONG, m AS LONG, s AS LONG, y AS LONG, z AS LONG
 
     IF sFileName = "" THEN EXIT FUNCTION
     IF DIR$(sFileName)="" THEN EXIT FUNCTION
 
     IF nStep < LEN(sFindStr) THEN nStep = LEN(sFindStr)
     f = FREEFILE
     OPEN sFileName FOR BINARY AS #f
        IF f=0 THEN EXIT FUNCTION
        IF nStep > LOF(f) THEN nStep = LEN(sFindStr)
        m = LOF(f)\nStep
        FOR n = 1 TO m
            GET$ #f,nStep,g
            a = a + g
            s = PARSECOUNT(a,sFindStr)
            IF s > 0 THEN
               FOR z = 1 TO s
                   y = INSTR(y+1,a,sFindStr)
                   IF y>0 THEN x = x + TRIM$(STR$(((n*nstep)-nStep)+y)) + sDelim
               NEXT
               a = ""
            ELSE
               a = g
            END IF
        NEXT
 
        z = LOF(f) MOD nStep
        IF z > 0 THEN
           GET$ #f,z, a
           s=PARSECOUNT(a,sFindStr)
           IF s > 0 THEN
              FOR z=1 TO s
                  y=INSTR(y+1,a,sFindStr)
                  IF y>0 THEN x = x + TRIM$(STR$(((n*nstep)-nStep)+y)) + sDelim
              NEXT
           END IF
        END IF
 
     CLOSE #f
     IF x <> "" THEN
        IF RIGHT$(x,LEN(sDelim))= sDelim THEN x = LEFT$(x,LEN(x)-LEN(sDelim))
     END IF
     FUNCTION = x
END FUNCTION