[Данные, строки] Запоминание введенных данных

[Duff1993]

Добрый вечер!

У меня есть такая функция:

Func EnterName()

    $Name1 = FileReadLine('NAME.ini')
    Sleep(200)
    Send($Name1, 1)
	Send("{TAB}")
	     Sleep(200)
$Name2 = FileReadLine('SURNAME.ini')
    Sleep(200)
    Send($Name2, 1)
	Send("{TAB}")
	     Sleep(200)
Endfunc

Как сделать, что бы после второго(и дальнейших) выполнений скрипта, вводились данные 2,3,4 порядка(т.е. поочередно) ?
Данные не должны перемешиваться, т.е. 3 строка в файле Name.ini должна соответствовать 3 строке в файле Surname.ini.


Файл Name.ini и Surname.ini такого вида:

Иванов
Петров
Сидоров
Пушкин

В справках копался, но так и не разобрался :(
Заранее спасибо!

 

[Ksaan]

Как один из вариантов

Func EnterName()
   $File1 = FileOpen(@ScriptDir & "\Name.ini")
   $File2 = FileOpen(@ScriptDir & "\Surname.ini")
   $hRead = FileRead($File1)
   $Numb = StringSplit($hRead, @CRLF, 1)
   
	  For $i = 1 To $Numb[0]
		 
	  $Name1 = FileReadLine($File1, $i)
;~ 	  MsgBox(0,"",$Numb[$i])
	  Sleep(200)
	  Send($Name1, 1)
	  Send("{TAB}")
	  Sleep(200)
	  $Name2 = FileReadLine($File2, $i)
	  Sleep(200)
	  Send($Name2, 1)
	  Send("{TAB}")
	  Sleep(200)
	  
	  Next
   
   FileClose($File1)
   FileClose($File2)
EndFunc ; =====> EnterName

 

[joiner]

$name = FileReadToArray('name.ini')
If @error <> 0 Then Exit
$surname = FileReadToArray('surname.ini')
If @error <> 0 Then Exit
For $i = 0 To UBound($name) - 1
	Send($name[$i], 1)
	Send("{TAB}")
	Sleep(200)
	Send($surname[$i], 1)
	Send("{TAB}")
	Sleep(200)
Next

 

[InnI]

Duff1993

Global $Line

Func EnterName()
  $Line += 1
  $Name1 = FileReadLine('NAME.ini', $Line)
  Sleep(200)
  Send($Name1, 1)
  Send("{TAB}")
  Sleep(200)
  $Name2 = FileReadLine('SURNAME.ini', $Line)
  Sleep(200)
  Send($Name2, 1)
  Send("{TAB}")
  Sleep(200)
Endfunc

 

[Duff1993]

Огромнейшее человеческое спасибо! :beer: