niki =   
(
Nick1
Nick2
Nick
)
FileAppend,%niki%,%A_TEMP%\nick229.txt
random,var,1,3
FileReadLine,nick,%A_TEMP%\nick229.txt,%var%
FileDelete,%A_TEMP%\nick229.txt
MsgBox % Nick

random,var,1,3

niki =   
(
Petr
Gena
Ivan
)
niki1 =
(
Ivanov
Capone
Visconti
)
FileAppend,%niki%,%A_TEMP%\nick229.txt
FileAppend,%niki1%,%A_TEMP%\nick228.txt
random,var,1,3
random,var1,1,3
FileReadLine,nick,%A_TEMP%\nick229.txt,%var%
FileReadLine,nick1,%A_TEMP%\nick229.txt,%var1%
FileDelete,%A_TEMP%\nick229.txt
FileDelete,%A_TEMP%\nick228.txt
MsgBox % Nick "_" Nick1

GenNick(Nick1,Nick2){
FileRemoveDir,%A_Temp%\WorkDir228,1
sleep,100
FileCreateDir,%A_Temp%\WorkDir228
FileAppend,%Nick1%,%A_Temp%\WorkDir228\Nick1.Ini
FileAppend,%Nick2%,%A_Temp%\WorkDir228\Nick2.Ini
Loop,read,%A_Temp%\WorkDir228\Nick1.Ini
    N1 := A_Index
Loop,read,%A_Temp%\WorkDir228\Nick2.Ini
    N2 := A_Index
random,Nicks1,1,%N1%
random,Nicks2,1,%N2%
FileReadLine,Nicks,%A_Temp%\WorkDir228\Nick1.Ini,%Nicks1%
FileReadLine,NicksF,%A_Temp%\WorkDir228\Nick2.Ini,%Nicks2%
FileRemoveDir,%A_Temp%\WorkDir228,1
return Nicks "_" NicksF
}

FileRead,Var,Песня.txt
StringReplace, Var, Var, `n, `n, UseErrorLevel
StrCount := ErrorLevel + 1