c# & etc

воскресенье, 19 сентября 2021 г.

объединение двух тестовых фалов в Lazarus (Delphi) "по-старому"...

Просто возмутило осложнение вариантов объединения двух текстовых файлов в Lazarus (Delphi) во множестве вариантов поэтому поступили так:

var
tfOut,tfIn:textfile;
file_s1,file_s2:string;
...

AssignFile(tfOut, file_s1);
AssignFile(tfIn, file_s2);
reset(tfIn);
 try
append(tfOut);
while not eof(tfIn) do begin
readln(tfIn,body_file);
writeln(tfOut,body_file);
end;
   CloseFile(tfIn);
   CloseFile(tfOut);
 except
   on E: EInOutError do
    writeln('File error. Elaboration: ', E.Message);
 end;

===================================================

если говорить вообще об тестовом способе через консоль -

If ShellExecute(0,nil, PChar('cmd'),PChar('/c copy text1.txt+text2.txt /b text1.txt'),nil,1)=0 then;

0/1 открывать окно консоли или нет,

/С /K - закрывать/не закрывать окно консоли после выполнения

но при обработке тысяч файлов этот метод не справляется по скорости обработки, у меня происходит отказ доступа после какого-то времени

вторник, 2 февраля 2021 г.

изменяем в домене дефолтные прежде настройки паролей пользователей

===user.csv=============

SamAccountName

vova

misha

bobik

===============un_pass_neverexp.ps1=======

import-csv user.csv | ForEach-Object { Set-ADUser -Identity $_.SamAccountName -PasswordNeverExpires:$FALSE -CannotChangePassword:$FALSE}

позволяет убрать галочку о том что пароль никогда не состарится + разрешаем менять пароль самому пользователю

================== узнать у кого когда заканчиваются пароли

Get-ADUser -filter * -properties PasswordLastSet, UserPrincipalName, PasswordNeverExpires| ft Name, PasswordLastSet, PasswordNeverExpires | Export-csv -path c:\report\password.csv -Encoding UTF8

пятница, 9 ноября 2018 г.

сжатие sysdba

SET ISC_USER=SYSDBA
SET ISC_PASSWORD=masterke

copy /Y base1.gdb base1_original.gdb
gbak -b base1.gdb base1_pack.gdb
gbak -r 1b52_pack.gdb base1+.gdb

очень вероятно что нужно

gbak -b -g base1.gdb base1_pack.gdb

и возможно что

gfix.exe -sweep

.....

понедельник, 2 июля 2018 г.

Простая настройка Link Aggregation для smart swith

1. Один коммутатор, настраиваем порты в пассивный режим
2.
http://wako.su/art-nastroyka-LACP-na-mashrutizatore-hp-cherez-web-console

вторник, 19 июня 2018 г.

получение email из файла thuderbird

Это часть проекта, в котором нужно получить адреса почтовых ящиков компьютера,
с регулярными для этой задачи у меня не сложилось, поэтому тупой но работающий код
===
{ string path = @"E:\thunderbird\6yjr55bj.default\prefs.js";
string[] readText = File.ReadAllLines(path);
string outs = "";
string ss;
foreach (string s in readText)
{ if (s.IndexOf("useremail") > -1)
{ ss = s;
ss = ss.Replace("user_pref(\"mail.identity.id", "");
ss=ss.Replace(".useremail\", ", "");
ss = ss.Replace("\");", "");
ss = ss.Substring(ss.IndexOf("\"")+1);
outs += ss + Environment.NewLine;
}}
MessageBox.Show(outs); }
===

воскресенье, 4 февраля 2018 г.

запуск единственного экземпляра программы C#

  static void Main()
        {
            if (System.Diagnostics.Process.GetProcessesByName(Application.ProductName).Length > 1)
            {
                MessageBox.Show("Applicat ion has already running");
                return;
            }
            else
            {
                Application.EnableVisualStyles();
                Application.SetCompatibleTextRenderingDefault(false);
                Application.Run(new Form1());
            }

понедельник, 25 декабря 2017 г.

ComboBox поиск в списке по первым буквам в C#

comboBox1.DataSourse=_dt;
comboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend;
comboBox1.AutoCompleteSource = AutoCompleteSource.ListItems;

воскресенье, 19 сентября 2021 г.