Ура подписчик !!!
У меня появился подписчик и огромное тебе кто бы ты ни был спасибо 😊
Не знаю уж чем тебе нравятся мои посты , но подозреваю что кошарой)))
Так что лови )
Пытается закрыться изнутри в шкафу)))
Как в известном видео «идите на х@й я вас не звал»
Киньте запросы ;)
На что сделать пост)
Подписчикам (Без рейтинга)
Добрый день, уважаемые подписчики, которые подписались на серию рассказов "Тайные папки". Если кому-то интересно, оставьте в комментариях свои имена и какую-нибудь историю из Вашей жизни (короткую). При написании следующей части "Тайных папок", я включу Ваши истории в рассказ.
Добрый день, уважаемые подписчики, которые подписались на серию рассказов "По дороге в прошлое". Я не забыл и про Вас. На данный момент я пишу заключительную часть рассказа. Но, возникли некоторые сложности. Во первых: я упустил много мелочей на протяжении всего рассказа, из-за чего возникли многие вопросы от Вас, хочу всё это учесть в последнем рассказе. Во вторых: на данный момент у меня есть три концовки рассказа, и я не знаю какую выбрать.
Не переживайте, рассказ будет закончен.
Начинаем рубрику "Вопросы от подписчиков"
У меня сейчас 30 подписчиков и я понятия не имею кто и на что подписался. В горячем три совершенно разных поста. По стилю, сути и смыслу. Но я дорожу своими подписчиками и всегда готов корректировать свои посты по их первому требованию.
Напомню о чём идёт речь. Я делаю курсовые, контрольные и прочую чешую за деньги. В своём первом посте я рассказал о жести, которая сейчас происходит в АП. А потом запилил несколько постов про внутреннюю кухню курсовых.
По просьбам подписчиков я заново открываю эту рубрику.
Тема данного поста - тесты ИНЭО ТПУ.
Сначала теория.
Студенты сдают тесты.
На каждом тесте есть варианты ответа. Правильные и неправильные. А значит мы можем...
Мы можем начать программировать
Вы не ослышались. Все 356 тестов оцифрованы.
Каждая папка – отдельный предмет.
А так выглядят программы, которые всё это дело оцифровали:
Давайте зайдём в какой-нибудь каталог. Например, в «Электрические машины».
Запустим программу и введём вопрос.
На создание одного теста у ВУЗа уходит примерно 7к рублей.
Но программе пофигу – любой тест она воссоздаёт пока я сплю.
«Чувак явно брешет», - подумаете вы. «Это какой-то фотошоп»
И тогда я покажу фрагмент кода (пруф):
Listbox2.Items.Clear;
DeleteFile('D:\тест по экзаменам\Обработка\'+Edit4.Text+'.htm');
DeleteDir('D:\тест по экзаменам\Обработка\'+Edit4.Text+'_files');
if FindFirst(ExtractFilePath(ParamStr(0))+'*.htm', faAnyFile, sr)=0 then //ищем файлы htm в каталоге
repeat
Listbox2.Items.Add(sr.Name); //выводим список в ListBox
until FindNext(sr)<>0;
FindClose(sr);
//количество тестов
Edit2.text := IntToStr(Listbox2.count-1);
for j:=StrToInt(Edit3.Text) to StrToInt(Edit2.Text) do
begin
Memo1.Lines.LoadFromFile(Listbox2.Items[j]);
Memo1.Text:=Utf8ToAnsi(memo1.Text);
s := Memo1.Text;
//s1 := Memo1.Text;{ФИО}
//название дисциплины
Label4.Caption := Copy(s, pos('<div class="disc">Дисциплина: «<b>', s) + 34, pos('</b>»</div>', s) - pos('<div class="disc">Дисциплина: «<b>', s) -34);
{ФИО}
//Label8.Caption := Copy(s1, pos('background-color:#559C2D;color:white">', s1) + 41, pos('</b><br><b>Статус:', s1) - pos('background-color:#559C2D;color:white">', s1) -41);
find:='<div style="padding: 8px 8px 8px 8px; display: inline-block;">';
//For i:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND)+100000;
Memo1.ClearSelection;
end;
memo1.SelStart:=0;
find:=Edit1.Text;
//For i:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND)+100000;
end;
Memo2.Text:=Memo1.SelText;
//произвожу замену ссылок внутри файла
z1:=StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase]);
z2:=StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase]);
z2:=Label4.Caption+' '+z2;
Memo2.Lines.Text :={Label8.Caption+'<br><br>'+}StringReplace(Memo2.Lines.Text,z1,z2,[rfReplaceAll, rfIgnoreCase]);
//Listbox2.Items[j] - имя исходного файла
//Label4.Caption - название дисциплины
//Сохраняю файл
Memo2.Lines.SaveToFile(Label4.Caption+' '+Listbox2.Items[j]+'l');
//CreateDir(Label4.Caption+' '+StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files');
//StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files' - это исходная папка
//Label4.Caption+' '+StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files' - это конечная папка
//Переименование директории с картинками
RenameFile(StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files',Label4.Caption+' '+StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files');
DeleteFile(Listbox2.Items[j]);
//MoveFile(Pchar('D:\тест по экзаменам\Обработка\'+Label4.Caption+' '+Listbox2.Items[j]+'l'),Pchar('D:\тест по экзаменам\ЯЯОбработано\'+Label4.Caption+' '+Listbox2.Items[j]+'l'));
//MoveFile(Pchar('D:\тест по экзаменам\Обработка\'+Label4.Caption+' '+StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files'),Pchar('D:\тест по экзаменам\ЯЯОбработано\'+Label4.Caption+' '+StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files'));
MoveFile(Pchar('D:\тест по экзаменам\Обработка\'+Label4.Caption+' '+Listbox2.Items[j]+'l'),Pchar('D:\ИДО ТПУ тесты\'+Label4.Caption+'\'+Label4.Caption+' '+Listbox2.Items[j]+'l'));
MoveFile(Pchar('D:\тест по экзаменам\Обработка\'+Label4.Caption+' '+StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files'),Pchar('D:\ИДО ТПУ тесты\'+Label4.Caption+'\'+Label4.Caption+' '+StringReplace(Listbox2.Items[j],'.htm','',[rfReplaceAll, rfIgnoreCase])+'_files'));
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Find,s :string;
i,j:integer;
sr: TSearchRec;
begin
if FindFirst(ExtractFilePath(ParamStr(0))+'*.html', faAnyFile, sr)=0 then //ищем файлы htm в каталоге
repeat
Listbox2.Items.Add(sr.Name); //выводим список в ListBox
until FindNext(sr)<>0;
FindClose(sr);
Edit2.text := IntToStr(Listbox2.count-1);
for j:=StrToInt(Edit3.Text) to StrToInt(Edit2.Text) do
begin
Memo1.Lines.LoadFromFile(Listbox2.Items[j]);
//Memo1.Text:=Utf8ToAnsi(memo1.Text);
Memo3.Text:=Memo3.Text+Memo1.Text;
Чем мне нравится мой код, так это тем, что он настолько ебучий, что в нём без поллитры не разберёшься.
Функции и процедуры? Не слышал! Только говнокод!
ЗЫ. Уважаемый @Begemot911, вы довольны качеством этого поста или мне стоит осветить мою программу по обходу АП?
Ну здравствуй, родной!
Это все фигня - говорили они!
Это только в теории заговора - убеждали они!!
Этого просто не может быть - отмахивались они!!!
Но нет! Это случилось! У меня появился мой первый подписчик! Мой личный крeмлебот!
Не верил я в их существование, а тег «политика» обходил стороной, но как-то вспомнил дискус на эту тему с моим братом и пошёл искать доказательства его теории. Я решил, как водится, ловить на живца и в первом попавшемся полит посте
https://pikabu.ru/story/posledovatelnost_6885499
оставил пару провокационных комментов
которые, конечно, ушли в минус, как и сам пост
и спустя 20 минут после второго коммента я захожу в профиль и
БАЦ!
Вот он, родной! Глядя на мой разношёрстный контент легко сделать вывод, что только идиот мог на меня подписаться, я же не пилю посты про автосервис (с возвращением, @alekseev77) или что-то годное, так хрень, которая меня почему-то заинтересовала.
В общем, теория подтвердилась, брат был прав.
А кремлеботика я обязуюсь растить как родного, обижать не буду, вкусняшки не только по праздникам.
Мой дорогой подпищик
Спасибо что хоть один на меня подписан, хоть у меня рейтинг -24, но ты всё равно греешь мне душу. :3