[megaloman]

Код:

@Echo Off
 	Set "FileIp=Z:\Box_In\ip.txt"

	FOR /F "usebackq skip=2 tokens=1,2,3 delims=[];" %%i In (`2^>nul find /N ";" "%FileIp%"`) DO (
		Set /A Num@=%%i+10000
		Set "Num=     %%i"
		Call Set "@@Num%%Num@%%=%%Num:~-3%% %%k %%j
		Call Set "@@Adress%%Num@%%=%%k"
	)

	:Begin
		Set /A User=0
		cls
		FOR /F "usebackq tokens=2 delims==" %%i In (`2^>nul Set "@@Num"`) DO Echo %%i
		Set /P User=---------------- Выбирайте по порядковому номеру. 0-завершить работу ^>
		If "%User%"=="0" Exit /B
		Set /A i=10000+%User%
		1>nul 2>&1 Call Set "@@Num%%i%%"||(Echo !!! Неверный номер "%User%" !!! &Pause &GoTo :Begin)
		Call Set "IP_address_n=%%@@Adress%i%%%"

Echo %IP_address_n%

Pause
Exit /B