[Problem] Item Reader - Daten aus 3 Dateien lesen & zuordnen

#include <GUIListView.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
$date = @MDAY & "." & @MON & "." & @YEAR
MainGUI()
; GUI =============================================
Func MainGUI()
Global $SF = StringFormat
Global $sPathObj = $SF('%s\defineObj.h', @ScriptDir)
Global $sPathPropMover = $SF('%s\propMover.txt', @ScriptDir)
Global $sPathPropMoverTxt = $SF('%s\propMover.txt.txt', @ScriptDir)
Global $sPathResult = $SF('%s\\Monster-Liste ' & $Date &'.txt', @ScriptDir)
Global $timer = TimerInit()

Global $aObj = StringRegExp(FileRead($sPathObj), '(?<=\r\n)#define\s+([\S\T]+)\s+(\d+)',  3) ; defineObj.h
Global $oObj = ObjCreate('Scripting.Dictionary')
For $i = 0 To UBound($aObj) -2 Step 2
    $oObj.Add($aObj[$i], $aObj[$i+1]) ; ItemDefine = ID
    ConsoleWrite($aObj[$i+1] & ' | ' & $aObj[$i] & @CRLF) ; Ausgabe: ID | OBJECTNAME
Next

Global $aPropMover = StringRegExp(FileRead($sPathPropMover), '(?<=\r\n)\d+\t+([\w_\d]+)\t+([\S]+)\s+', 3) ; propMover.txt
Global $oPropMover = ObjCreate('Scripting.Dictionary')
For $i = 0 To UBound($aPropMover) -2 Step 2
    If Not $oPropMover.Exists($aPropMover[$i+1]) Then
        $oPropMover.Add($aPropMover[$i+1], $aPropMover[$i]) ; Text-Identifier = ItemDefine
        ConsoleWrite($aPropMover[$i] & @CRLF)
    EndIf
Next

$hGUI=GUICreate("Monster-Liste", 900, 800)
Opt('GUIOnEventMode',1)
$hList = GUICtrlCreateListView("Item Code|DEFINE|Item Name|Item Text", 20, 20, 860, 650)
_GUICtrlListView_SetColumn($hList, 0, 'ID', 60, 0) ; 2. Spalte = 470 Px breit, rechts ausgerichtet
_GUICtrlListView_SetColumn($hList, 1, 'Monstername', 240, 0) ; 2. Spalte = 470 Px breit, rechts ausgerichtet
_GUICtrlListView_SetColumn($hList, 2, 'Beschreibung', 356, 0) ; 2. Spalte = 470 Px breit, rechts ausgerichtet
_GUICtrlListView_SetColumn($hList, 3, 'Define', 180, 0) ; 1. Spalte = 40 Px breit, links ausgerichtet
$Button1 = GUICtrlCreateButton ("OPTION 1", 20, 680, 200, 50)
$button2 = GUICtrlCreateButton ("OPTION 2", 230, 680, 200, 50)
$btnExport = GUICtrlCreateButton ("Export full List", 470, 680, 200, 50)
$btnExportShort = GUICtrlCreateButton ("Export small List (ID | NAME)", 680, 680, 200, 50)
GUISetOnEvent(-3, "_close")

Global $aObjTxt = StringRegExp(FileRead($sPathPropMoverTxt), '(IDS_(?:PROPMOVER|UNBIND)\w+\d+)([^\r]+)', 3) ; propMover.txt.txt
Global $sResult = ''
Global $sLVItem = '', $iID, $sIdent, $sTxt, $sDescript
Global $sResultShort = ''
Global $sLVItemShort = '', $iID, $sIdent

For $i = 0 To UBound($aObjTxt) -2 Step 2
    $sDescript = ''
    If $oPropMover.Exists($aObjTxt[$i]) Then  ; Eintrag ist Text-Identifier
        $sIdent = $oPropMover.Item($aObjTxt[$i])                       ; Item Define
        $iID = Number($oObj.Item($sIdent))                        ; ID
        $sTxt = StringStripWS($aObjTxt[$i+1], 1+2)                ; Name
        ; Folgeeintrag kein Text-Identifier -->                      Beschreibung
        If ($i < UBound($aObjTxt) -2) And (Not $oPropMover.Exists($aObjTxt[$i+2])) Then
            $sDescript = StringStripWS($aObjTxt[$i+3], 1+2)
        EndIf
        ; ID | Name | Beschreibung | ItemDefine
        $sLVItem = $SF('%s|%s|%s|%s', $iID, $sTxt, $sDescript, $sIdent) ; Volle Ausgabe
        $sLVItemShort = $SF('%s|%s', $iID, $sTxt) ; Ausgabe: ID | Name
        $sResult &= $SF('%s%s', $sLVItem, @CRLF)
        $sResultShort &= $SF('%s%s', $sLVItemShort, @CRLF)
        GUICtrlCreateListViewItem($sLVItem, $hList)
    EndIf
Next
ConsoleWrite($SF('Time used: %0.1f s', TimerDiff($timer)/1000) & @CRLF)

GUISetState()
;_Export()
;_ExportShort()

   While 1
        $nMsg = GUIGetMsg()
         Switch $nMsg
            Case $GUI_EVENT_CLOSE
                  Exit
            Case $Button1
                 MsgBox(0, 'INFO', 'Button 1')
            Case $btnExport
                _Export()
            Case $btnExportShort
                _ExportShort()
         EndSwitch
   WEnd

EndFunc

Func _close()
   ;MsgBox(0, 'INFO', 'beenden')
   Exit
EndFunc

Func _Export()
; Schreiben in Datei
MsgBox(0, 'INFO', 'EXPORT')
_FileCreate($sPathResult) ; Datei erstellen
Global $fH = FileOpen($sPathResult, 2+8)
FileWrite($fH, $sResult)
FileClose($fH)
EndFunc

Func _ExportShort()
MsgBox(0, 'INFO', 'EXPORT SHORT')
; Schreiben in Datei
_FileCreate($sPathResult) ; Datei erstellen
Global $fH = FileOpen($sPathResult, 2+8)
FileWrite($fH, $sResultShort)
FileClose($fH)
EndFunc