;-- TIME_STAMP   2022-07-14 10:22:06


#include 'ConfigRead.au3'
#include <Array.au3>

Global $CFG = @ScriptDir & '\ASCII_Interface.txt'
Global $aRes

MsgBox(0, 'CFG Read', 'Lesen in 1D-Array' & @CRLF & 'Jede Zeile ein Eintrag')
_ConfigRead($CFG, 'Firmensatz', $aRes)
_ArrayDisplay($aRes, '1D-Array')

MsgBox(0, 'CFG Read', 'Lesen in 2D-Array' & @CRLF & '4 Spalten')
_ConfigRead($CFG, 'Kopfsatz', $aRes, 4)
_ArrayDisplay($aRes, '2D-Array')

MsgBox(0, 'CFG Read', 'Lesen in 2D-Array' & @CRLF & '4 Spalten mit Filterfunktion' & @CRLF & 'Nur nummerische Definitionen')
_ConfigRead($CFG, 'Positionssatz', $aRes, 4, _NumDef)
_ArrayDisplay($aRes, '2D-Array mit Filter: Nur nummerische Definitionen anzeigen')



Func _NumDef($_line)
    If StringRegExp($_line, ';N\d+') Then
        Return StringSplit($_line, ';', 2)
    Else
        Return ''
    EndIf
EndFunc