🚀 go-pugleaf

Witam!

Pracuje nad parserem danych z formatu MT940 (sformalizowany format importu 
wyciągów bankowych) do accessa. Z mojej analizy wynika, że można go zrobić w 
VBA z wykorzystaniem właściwości tzw. submatches. Wykorzystać planuje 
funkcję:

Function GetItem(ByVal STR As String, Wzorzec As String, iNum As Long)

    Dim objRegExp As Object
    Set objRegExp = CreateObject("vbscript.regexp")
    On Error GoTo GetItem_Error
    With objRegExp
        .Global = True
        .Pattern = Wzorzec

GetItem = .Execute(STR)(iNum).SubMatches(0)

    End With

GetItem_Exit:
        On Error GoTo 0
        Set objRegExp = Nothing
        Exit Function

GetItem_Error:
        GetItem = CVErr(xlErrNA)
        Resume GetItem_Exit

End Function


W testowym pliku tekstowym mam ponad 400 linii danych, obejmujących 28 
rekordów tablicy z wyciągiem bankowym.

Dziwny problem powstał przy testowaniu w VBE 2007 działania tej funkcji: w 
kodzie testowym wywołuje tą funkcję (oczywiście w pętli) z 500 razy i 
wyłuskuje mi wszystkie potrzebne stringi i nagle przy 27 rekordzie danych 
wywala run time error 13, a w debugerze błąd 2042 - (brak danych ???).
Błąd ten występuje w momencie analizy (kolejnego 26-stego stringu) 26 
cyfrowego numeru konta bankowego i koniec.

Mam pytanie zatem dla znawców tematu czym może być spowodowany ten błąd ?
Czy są w VBA jakieś ograniczenia wielokrotności wywoływania funkcji własnych 
? Czy każde wywołanie zajmuje "odrębne" miejsce w pamięci podręcznej i 
trzeba ją cyklicznie czyścić ?

Z góry dziękuje za wszelkie sugestie i rozwiązania.

Prot 


---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe Avast.
https://www.avast.com/antivirus