Не могу поставить циклический FileOpen из примера на свой скрипт

while true

    Switch GUIGetMsg()
       case -3
            exitloop
       case $BUTTON
            Assign("ITEM"&$CITEM+1,GUICtrlCreateListViewItem(GUICtrlRead($INPUT1),$LIST))
            Assign("ITEM"&$CITEM+2,GUICtrlCreateListViewItem(GUICtrlRead($INPUT2),$LIST))
        $TEXT=$TEXT&GUICtrlRead($INPUT1)&"|"&GUICtrlRead($INPUT2)&"|"&GUICtrlRead($INPUT3)
        $TEXT=StringReplace($TEXT,"|",@CRLF)
        MsgBox(0,'$TEXT',$TEXT)
       Save($TEXT); Переход на ф-ию записи
       ; $FILE=FileOpen($ADDR,1)
       ; FileWrite($FILE,$TEXT &  @CRLF)
       ; FileClose($FILE)
    EndSwitch

 wend
 

Func Read($FILE)
   ;$sText = FileRead($FILE)
   $FILE=FileOpen($ADDR,0)
   $NSTR=_FileCountLines($ADDR)
   $NSTR=Ceiling($NSTR/9) ; Количество строк массива
   Dim $ARR[$NSTR][2] ; Массив для ListView
   While $ROW<$NSTR
       $ARR[$ROW][$COL]=FileReadLine($FILE)
       If @error=-1 Then ExitLoop
       If $TRIGGER=0 Then
           $COL+=1
           $TRIGGER=1
       ElseIf $TRIGGER=1 Then
           $ROW+=1
           $COL=0
           $TRIGGER=2
       Else
           $TRIGGER=0
       EndIf
   WEnd
   FileClose($FILE)
   _ArrayDisplay($ARR)
   For $i=0 To UBound($ARR,1)-1
      GUICtrlCreateListViewItem($ARR[$i][0]& '|' & $ARR[$i][1],$LIST)
   Next
EndFunc


Func Save($sText)
   $FILE=FileOpen($ADDR,1)
   FileWrite($FILE,$sText &  @CRLF)
   FileClose($FILE)
EndFunc

Func Read1($FILE1)
   ;$sText = FileRead($FILE)
   $FILE1=FileOpen($ADDR1,0)
   $NSTR1=_FileCountLines($ADDR1)
   $NSTR1=Ceiling($NSTR1/21) ; Количество строк массива
   If $NSTR1<1 Then $NSTR1=1
Dim $ARR1[$NSTR1][2]
   While $ROW1<$NSTR1
       $ARR1[$ROW1][$COL1]=FileReadLine($FILE1)
       If @error=-1 Then ExitLoop
       If $TRIGGER1=0 Then
           $COL1+=1
           $TRIGGER1=1
       ElseIf $TRIGGER1=1 Then
           $ROW1+=1
           $COL1=0
           $TRIGGER1=2
       Else
           $TRIGGER1=0
       EndIf
   WEnd
   FileClose($FILE1)
   _ArrayDisplay($ARR1)
   For $i1=0 To UBound($ARR1,1)-1
      GUICtrlCreateListViewItem($ARR1[$i1][0]& '|' & $ARR1[$i1][1],$LIST1)
   Next
EndFunc

Read1($ADDR1); Переход на ф-ию чтения
Read2($ADDR2); Переход на ф-ию чтения
Read3($ADDR3); Переход на ф-ию чтения

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
		Case $GUI_EVENT_CLOSE
         Exit
	 Case $btShow;
         ShowWindow()
		case $BUTTON1
     GUISetState(@SW_Hide, $LognPassDlg) 
 Case $BUTTON_cancel1
	 GUISetState(@SW_Hide, $LognPassDlg) 
	 Case $btS	 
		 Window();
	 case $BUTTON2
	GUISetState(@SW_Hide, $LognPass) 	 
Case $BUTTON_cancel2
	GUISetState(@SW_Hide, $LognPass) 	 
	 Case $Show
		 Show();
	 case $BUTTON3
	GUISetState(@SW_Hide, $LognDlg) 	 	 
Case $BUTTON_cancel3
	GUISetState(@SW_Hide, $LognDlg) 	 	 
Case $Button_add1
	$NAME1=GUICtrlRead($INPUT1)
    $File1=FileOpen(@ScriptDir&"\"&$NAME1&".TXT",1)
    $NAME1=GUICtrlRead($INPUT1)
	FileWriteLine($File1,$NAME1)
	$NAME2=GUICtrlRead($INPUT2)
	FileWriteLine($File1,$NAME2)
    $NAME3=GUICtrlRead($INPUT3)
    FileWriteLine($File1,$NAME3)
            Assign("ITEM"&$CITEM1+1,GUICtrlCreateListViewItem(GUICtrlRead($INPUT1),$LIST1))
            Assign("ITEM"&$CITEM2+2,GUICtrlCreateListViewItem(GUICtrlRead($INPUT2),$LIST1))
        $TEXT1=$TEXT1&GUICtrlRead($INPUT1)&"|"&GUICtrlRead($INPUT2)&"|"&GUICtrlRead($INPUT3)
        $TEXT1=StringReplace($TEXT1,"|",@CRLF)
        MsgBox(0,'$TEXT',$TEXT1)
       Save1($TEXT1); Переход на ф-ию записи
       ; $FILE=FileOpen($ADDR,1)
       ; FileWrite($FILE,$TEXT &  @CRLF)
       ; FileClose($FILE)
Case $Button_add2
	$NAME4=GUICtrlRead($INPUT4)
    $File2=FileOpen(@ScriptDir&"\"&$NAME4&".TXT",1)
    $NAME4=GUICtrlRead($INPUT4)
	FileWriteLine($FILE2,$NAME4)
	$NAME5=GUICtrlRead($INPUT6)
	FileWriteLine($FILE2,$NAME5)
    $NAME6=GUICtrlRead($INPUT6)
    FileWriteLine($FILE2,$NAME6)
            Assign("ITEM"&$CITEM3+1,GUICtrlCreateListViewItem(GUICtrlRead($INPUT4),$LIST2))
            Assign("ITEM"&$CITEM4+2,GUICtrlCreateListViewItem(GUICtrlRead($INPUT5),$LIST2))
        $TEXT2=$TEXT2&GUICtrlRead($INPUT4)&"|"&GUICtrlRead($INPUT5)&"|"&GUICtrlRead($INPUT6)
        $TEXT2=StringReplace($TEXT2,"|",@CRLF)
        MsgBox(0,'$TEXT',$TEXT2)
       Save1($TEXT2); Переход на ф-ию записи
       ; $FILE=FileOpen($ADDR,1)
       ; FileWrite($FILE,$TEXT &  @CRLF)
       ; FileClose($FILE)
Case $Button_add3
	$NAME7=GUICtrlRead($INPUT7)
    $File3=FileOpen(@ScriptDir&"\"&$NAME7&".TXT",1)
    $NAME7=GUICtrlRead($INPUT8)
	FileWriteLine($File3,$NAME7)
	$NAME8=GUICtrlRead($INPUT9)
	FileWriteLine($File3,$NAME8)
    $NAME9=GUICtrlRead($INPUT3)
    FileWriteLine($File3,$NAME9)
            Assign("ITEM"&$CITEM5+1,GUICtrlCreateListViewItem(GUICtrlRead($INPUT7),$LIST3))
            Assign("ITEM"&$CITEM6+2,GUICtrlCreateListViewItem(GUICtrlRead($INPUT8),$LIST3))
        $TEXT3=$TEXT1&GUICtrlRead($INPUT7)&"|"&GUICtrlRead($INPUT8)&"|"&GUICtrlRead($INPUT9)
        $TEXT3=StringReplace($TEXT3,"|",@CRLF)
        MsgBox(0,'$TEXT',$TEXT3)
       Save1($TEXT3); Переход на ф-ию записи
       ; $FILE=FileOpen($ADDR,1)
       ; FileWrite($FILE,$TEXT &  @CRLF)
       ; FileClose($FILE)	   
	EndSwitch
WEnd

$ADDR1=@ScriptDir&"\1.txt"
$ADDR1=@ScriptDir&"\2.txt"
$ADDR1=@ScriptDir&"\3.txt"

$ADDR1=@ScriptDir&"\1.txt"

Case $BUTTON1,$BUTTON2,$BUTTON3,$BUTTON_cancel1,$BUTTON_cancel2,$BUTTON_cancel3
         GUISetState(@SW_Hide, $LognPassDlg)

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

$ADDR=@ScriptDir&"\text1.txt"

$ADDR=@ScriptDir&"\text2.txt"

$ADDR=@ScriptDir&"\text3.txt"
$FILE=FileOpen($ADDR,0) ; Режим чтения
$TEXT=FileRead($FILE)
FileClose($FILE)
$TEXT=StringReplace($TEXT,@CRLF,"|")
 

$BminerFrm = GUICreate("My GUI", 610, 350 , 180, 100)  ; will create a dialog box that when displayed is centered
$btShow1 = GUICtrlCreateButton ("Настройки1 ", 490, 30, 120, 20)
$btShow2 = GUICtrlCreateButton ("Настройки2 ", 490, 55, 120, 20)
$btShow3 = GUICtrlCreateButton ("Настройки3 ", 490, 80, 120, 20)
GUISetState ()       ; will display an empty dialog box
$LognPassDlg =  GUICreate ( "Введите ваши данные1", 502, 392, 192, 124,'', '', $BminerFrm ) ; Установив принадлежность к $BminerFrm
$input1 = GUICtrlCreateInput("", 300, 5, 150, 20)
$input2 = GUICtrlCreateInput("", 300, 30, 150, 20)
$input 3 = GUICtrlCreateInput("", 300, 55, 150, 20)
$save1 = GUICtrlCreateButton("сохранить", 350, 90, 60, 30)
$List1 = GUICtrlCreateListView("----------------------------------------------------------------------", 1, 1, 250, 350, $LVS_NOCOLUMNHEADER + $LVS_SHOWSELALWAYS)
$item1=GUICtrlCreateListViewItem($TEXT1, $List1)
GUISetState(@SW_SHOW, $BminerFrm )     
$LognDlg =  GUICreate ( "Введите ваши данные2", 502, 392, 192, 124,'', '', $BminerFrm ) ; Установив принадлежность к $BminerFrm
$input4 = GUICtrlCreateInput("", 300, 5, 150, 20)
$input5 = GUICtrlCreateInput("", 300, 30, 150, 20)
$input6 = GUICtrlCreateInput("", 300, 55, 150, 20)
$save2 = GUICtrlCreateButton("сохранить", 350, 90, 60, 30)
$List2 = GUICtrlCreateListView("----------------------------------------------------------------------", 1, 1, 250, 350, $LVS_NOCOLUMNHEADER + $LVS_SHOWSELALWAYS)
$item2=GUICtrlCreateListViewItem($Text2, $List2)
GUISetState(@SW_SHOW, $BminerFrm )     
$PassDlg =  GUICreate ( "Введите ваши данные3", 502, 392, 192, 124,'', '', $BminerFrm ) ; Установив принадлежность к $BminerFrm
$input7 = GUICtrlCreateInput("", 300, 5, 150, 20)
$input8 = GUICtrlCreateInput("", 300, 30, 150, 20)
$input9 = GUICtrlCreateInput("", 300, 55, 150, 20)
$save3 = GUICtrlCreateButton("сохранить", 350, 90, 60, 30)
$List3 = GUICtrlCreateListView("----------------------------------------------------------------------", 1, 1, 250, 350, $LVS_NOCOLUMNHEADER + $LVS_SHOWSELALWAYS)
$item3=GUICtrlCreateListViewItem($TEXT3, $List3)
GUISetState(@SW_SHOW, $BminerFrm )     
Func  ShowWindow1()
   GUISetState(@SW_SHOW, $LognPassDlg)
EndFunc
Func  ShowWindow2()
   GUISetState(@SW_SHOW, $LognDlg)
EndFunc
Func  ShowWindow3()
   GUISetState(@SW_SHOW, $PassDlg)
EndFunc
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
	Case $btShow1
         ShowWindow1()  
	Case $btShow2
         ShowWindow2()
    Case $btShow3
         ShowWindow3()  		 
   EndSwitch
WEnd