Версия 2.02 Добавлены файловые операции (чтение запись в текстовый файл)

freadlineall(#stroka[0], 2000000);

string slovar[500];
int k;

if (fopen ("C:\russian.txt", "r")!=0)
{
k=freadlineall(#slovar[0], 100);
fclose();
}
messagebox (k);

for (int n=0; n<k; n++)
{
messagebox (slovar[n]);
}

//Инициализируем смешанные типы переменных
string a[8];
char b=' ';
double e=2.02;

a[0]="Демонстрация";
a[1]="записи";
a[2]="и";
a[3]="чтения";
a[4]="в";
a[5]="файл.";
a[6]="Кибор";
a[7]="версия";

//========================================================

//открываем файл для записи "w". Если файл существует он будет перезаписан.
//Для добавления в конец надо открывать с "a"
if (fopen ("c:\5.txt", "w")!=0)
{//если открылся
fwrite(a[0]);fwrite(b);//записываем в файл
fwrite(a[1]);fwrite(b);
fwrite(a[2]);fwrite(b);
fwrite(a[3]);fwrite(b);
fwrite(a[4]);fwrite(b);
fwrite(a[5]);

fwrite(ENDL);//записываем в файл перевод строки

fwrite(a[6]);fwrite(b);
fwrite(a[7]);fwrite(b);
fwrite(e);

fclose();//закрываем файл
}

//========================================================

string preiemnik_a[8];
double preiemnik_e;

//Чтение смешанными типами
if (fopen ("c:\5.txt", "r")!=0)//открываем файл для чтения "r"
{//если открылся
fread(preiemnik_a[0]);//чтение одного слова
fread(preiemnik_a[1]);
fread(preiemnik_a[2]);
fread(preiemnik_a[3]);
fread(preiemnik_a[4]);
fread(preiemnik_a[5]);
fread(preiemnik_a[6]);
fread(preiemnik_a[7]);

fread(preiemnik_e);//чтение числа double

//Вывод формотированной строки
messagebox(preiemnik_a[0]+" "+preiemnik_a[1]+" "+
preiemnik_a[2]+" "+preiemnik_a[3]+" "+
preiemnik_a[4]+" "+preiemnik_a[5]+" "+preiemnik_a[6]+" "+preiemnik_a[7]+" "+format(preiemnik_e));

fclose();//закрываем файл
}

//========================================================

string preiemnik;

//Чтение по целой строке
if (fopen ("c:\5.txt", "r")!=0)//открываем файл для чтения "r"
{//если открылся
l:if (freadline(preiemnik)!=0)//Читаем по целой строке пока не конец файла
{
messagebox(preiemnik);
goto l;
}
fclose();//закрываем файл
}

//========================================================

//Чтение по слову (пробелы пропускаются)
if (fopen ("c:\5.txt", "r")!=0)//открываем файл для чтения "r"
{//если открылся
l1:if (fread(preiemnik)!=0)
{
messagebox(preiemnik);
goto l1;
}
fclose();//закрываем файл
}

//========================================================

char pr_с;

//Чтение по символу
if (fopen ("c:\5.txt", "r")!=0)//открываем файл для чтения "r"
{//если открылся
l2:if (fread(pr_с)!=0)
{
messagebox(pr_с);
goto l2;
}
fclose();//закрываем файл
}

char preiemnik_a[999999];
int g=0;
if (fopen ("D:\calc.exe", "rb")!=0)
{
g=freadb(#preiemnik_a[0], 999999);
fclose();
}
messagebox (g);
int nn=0;
if (fopen ("D:\calc1.exe", "wb")!=0)
{
/*
r: if (nn<g)//Запись побайтово//Займет время..
{
fwriteb(preiemnik_a[nn]);
nn++;
goto r;
}
*/
fwriteb(#preiemnik_a[0], g);//Запись по указателю на масив char

fclose();
}

char preiemnik[999999];
int g=0;
if (fopen ("C:\Русс текст в юникоде.txt", "rb")!=0)
{
g=freadb(#preiemnik[0], 999999);
fclose();
}

string T="";
int i;
for (int n=2; n<g-1; n=n+2)
{
if (preiemnik[n]==0) goto er;
i=codhexi(#preiemnik[n], 2)-848;
if (i==-835){T=T+formatic(13)+formatic(10); n=n+2;}
else T=T+formatic(i);

}
er:;
messagebox (T);

//Чтение по целой строке
if (fopen ("C:\22.txt", "r")!=0)//открываем файл для чтения "r"
{//если открылся
string preiemnik;
tt:if (freadline(preiemnik)!=0)//Читаем по целой строке пока не конец файла
{
writeclipboard(preiemnik);
messagebox ("В буфере обмена текст: "+preiemnik);
//Тут вставляем текст куда надо ctrl+v
goto tt;
}
fclose();//закрываем файл
}

function writelog()
{
resettextout(1);
textout(1, 10, 80, text[0], 1);
textout(2, 10, 100, text[1], 1);
textout(3, 10, 120, text[2], 1);
textout(4, 10, 140, text[3], 1);
textout(5, 10, 160, text[4], 1);
textout(6, 10, 180, text[5], 1);
textout(7, 10, 200, text[6], 1);
textout(8, 10, 220, text[7], 1);
textout(9, 10, 240, text[8], 1);
textout(10, 10, 260, text[9], 1);
text[9] = text[8];
text[8] = text[7];
text[7] = text[6];
text[6] = text[5];
text[5] = text[4];
text[4] = text[3];
text[3] = text[2];
text[2] = text[1];
text[1] = text[0];
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
if(fopen ("D:\Avtoregbot lite version\log.txt", "w")!=0)
{
fwrite(ENDL);
fwrite(Hour);
fwrite(":");
fwrite(Minute);
fwrite(":");
fwrite(Second);
fwrite(" - ");
fwrite(text[0]);
fwrite(ENDL);
fclose();
}
}