[Данные, строки] Вставка строк из текстого документа в поле ввода

#include <GuiConstants.au3>

$file = FileOpen("1.txt", 0)

If $file = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
EndIf

While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop

	
$GUI=GUICreate('test',400,400)
$Input =  GUICtrlCreateInput($line,10,10)
$Button=GuiCtrlCreateButton('Жми',250,10)
$Edit=GUICtrlCreateEdit('',10,60,300,300)

GUISetState()
WEnd

While 1
    $msg=GUIGetMsg()
    if $msg=$GUI_EVENT_CLOSE Then Exit
    if $msg=$Button Then
        $text='пользователь'&GUICtrlRead($Input)&' привет'
        GUICtrlSetData($Edit,$text)
		
    EndIf

WEnd

FileClose($file)

#include <File.au3>
#include <Array.au3>
#include <GuiConstants.au3>

Global $file = '1.txt'

If Not FileExists($file) Then Exit MsgBox(4096, "Ошибка", "Невозможно открыть файл.")

$GUI = GUICreate('test',400,400)
$Input = GUICtrlCreateInput('00000000', 10, 10)
$Button = GuiCtrlCreateButton('Жми', 250, 10)
$Edit = GUICtrlCreateEdit('', 10, 60, 300, 300)
GUISetState()

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $Button
			$linescount = _FileCountLines($file)
			For $i = 1 To $linescount
				$readline = FileReadLine($file, $i)
				GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Пользователь ' & $readline & ' привет' & @CRLF)
			Next
	EndSwitch
WEnd

#include <File.au3>
#include <GuiConstants.au3>

Global $var = 0
Global $file = '1.txt'

If Not FileExists($file) Then Exit MsgBox(4096, "Ошибка", "Невозможно открыть файл.")

$GUI = GUICreate('test',400,400)
$Input = GUICtrlCreateInput(FileReadLine($file, 1), 10, 10)
$Button = GuiCtrlCreateButton('Жми', 250, 10)
$Edit = GUICtrlCreateEdit('', 10, 60, 300, 300)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $Button
			$ReadNextLine = FileReadLine($file, $var + 1)
			If $ReadNextLine <> '' Then
				GUICtrlSetData($Input, $ReadNextLine)
                GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Пользователь ' & GUICtrlRead($Input) & ' привет' & @CRLF)
                $var = $var + 1
            EndIf
    EndSwitch
WEnd