вопрос по external и др

Status_Combobox1 = sendmessage(CB_GETCURSEL, 0, 0, formatiw(Object_Combobox1));
Status_Checkbox1 = SendMessage(Object_Checkbox1, BM_GETSTATE, 0, 0);
Status_Checkbox2 = SendMessage(Object_Checkbox2, BM_GETSTATE, 0, 0);
Status_Checkbox3 = SendMessage(Object_Checkbox3, BM_GETSTATE, 0, 0);
Status_Checkbox4 = SendMessage(Object_Checkbox4, BM_GETSTATE, 0, 0);
Status_Checkbox5 = SendMessage(Object_Checkbox5, BM_GETSTATE, 0, 0);
Status_Checkbox6 = SendMessage(Object_Checkbox6, BM_GETSTATE, 0, 0);
Status_Checkbox7 = SendMessage(Object_Checkbox7, BM_GETSTATE, 0, 0);
Status_Checkbox8 = SendMessage(Object_Checkbox8, BM_GETSTATE, 0, 0);
SendMessage(Object_Edit1, WM_GETTEXT, sizearray(Text_Edit1), address(#Text_Edit1[0]));

WritePrivateProfileString ("Default", "Object_Combobox1", format(Status_Combobox1), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox1", format(Status_Checkbox1), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox2", format(Status_Checkbox2), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox3", format(Status_Checkbox3), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox4", format(Status_Checkbox4), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox5", format(Status_Checkbox5), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox6", format(Status_Checkbox6), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox7", format(Status_Checkbox7), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Checkbox8", format(Status_Checkbox8), PathSaveSettings);
WritePrivateProfileString ("Default", "Object_Edit1", format(#Text_Edit1[0]), PathSaveSettings);

if(format(Status_Checkbox7) == "1")
{
}

if(format(Status_Checkbox7) == "1" || format(Status_Checkbox7) == "9")
{
}

if(Status_Checkbox7 == 1 || Status_Checkbox7 == 9)

external(INT, "wsprintf", "wsprintfA", "User32.dll" );
string s="Найти сегодняшнюю дату 25.01.20, 19.04.19, 4.11.18"; // строка
messagebox(find_today_date(s));

// найти сегодняшнюю дату в строке
function find_today_date(string s)
{
char day[3], month[3];
string date, year;
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
wsprintf(address(#day[0]), "%02d", Day);
wsprintf(address(#month[0]), "%02d", Month);
regexsearch(1, #year, format(Year), "\d{2}", RIGHTTOLEFT);
if(regexsearch(1, #date, s, "\b"+format(#day[0])+"\."+format(#month[0])+"\."+year+"\b"))return date;
return "Дата не найдена";
}

string s="Найти дату 19.04.19 в тексте";
messagebox(find_date(s));
s="Некорректная дата 39.04.19 не будет найдена";
messagebox(find_date(s));
s="Найти дату 3.11.1990";
messagebox(find_date(s));

// найти дату в строке
function find_date(string s)
{
string date;
if(regexsearch(1, #date, s, "\b([012][0-9]|3[01]|[1-9])\.(0\d|1[0-2]|[1-9])\.(\d{4}|\d{2})\b"))return date;
return "Дата не найдена";
}

как вернуть количество строк в файле, что бы заать его в цикле?
if(fopen(temp_fold+"*.txt", "r") != 0)
{
for ()
if(freadline(preiemnik)!=0)
{

}
}

string preiemnik[999];
if(fopen("C:\list_file.txt", "r"))
{
for(int i=0; i<sizearray(preiemnik)-1 && freadline(preiemnik[i]); i++){} // прочитать файл в массив

messagebox("Строк в файле: "+format(i));
messagebox("Первая строка: "+preiemnik[0]);
// preiemnik[1] вторая строка и т.д.
fclose();
}

if(fopen(temp_fold+"*.txt", "r"))
{
for(int i=0; i<sizearray(preiemnik)-1 && freadline(preiemnik[i]); i++){}

messagebox("Строк в файле: "+format(i));

for(int ii=0; ii<format(i); ii++)
{

messagebox("строчки: "+preiemnik[format(ii)]);//не работает
}

fclose();
}

external (INT, "GetPrivateProfileString", "GetPrivateProfileStringA", "kernel32.dll");

int length;
char key_ini[99999], value[999];
string path="C:\123.ini"; // путь к ini
string date="19.04.2019";

int x=GetPrivateProfileString (date, 0, 0, address (#key_ini[0]), sizearray(key_ini), path); // получить все ключи
if(x)
{
length=0;
for(int i=0; i+length<=x; i++)
{
if(GetPrivateProfileString (date, format(#key_ini[length]), 0, address (#value[0]), sizearray(value), path)) // получить значение ключа
{
messagebox(format(#key_ini[length])+" "+format(#value[0]));
}
length=length+size(#key_ini[i])+i+1;
}
}