Моя работа - понимать ;)

Диссертация: написать Искусственный Интеллект ;)

Создание формального языка для описания учебников и компилятора (транслятора, генератора) из него в интерактивные задачники.
Понятно, что есть два полюса решения:
- можно писать "низкоуровневом" языке типа Delphi, Visual C++ и т.д. Преимущество - машина сразу исполняет полученную программу.
- писать на естественном (человеческом) языке. Компьютер не поймёт, но поймёт человек-программист и сможет реализовать.
Да, понятно, что машина не умеет сама "придумывать" дизайн. НО, с другой стороны, в основе каждого дизайна лежат какие-то общие идеи. Задача - выявить эти идеи в максимально обобщённом виде, выработать язык и реализовать генератор.
"Язык" - в данном случае - весьма условное понятие, т.к. можно редактировать программу в визуальном редакторе, это всё укладывается в общую концепцию.

Comments

Книга интересная: Михаил Веллер. Всеобщая теория всего

Читаю в метро, по-дороге. Мысли во многом похожи на мои собственные. Когда читаю постоянно ловлю себя на мысли - и я так мог бы написать, если бы решился написать книгу, наконец...

Comments

myOutlook

Утилита для корректировки адресной книги Outlook. Удаляет дубли из телефонной книги. Исправляет ФИО. Выводит на консоль свои действия. Программа соединяется с открытым Outlook'ом.

using System;
using System.Collections;
using Microsoft.Office.Interop.Outlook;
using csUnit;

namespace myOutlook
{
  public class Program
  {
    static bool контактИзменен;
    static ContactItem текущийКонтакт;
    static Hashtable СтарыеЗначенияПолей;
    
    private static void Main(string[] args)
    {
      Application Outlook = new Application();
      NameSpace nameSpace = Outlook.GetNamespace("MAPI");
      Items КонтактыВOutlook = nameSpace.GetDefaultFolder(OlDefaultFolders.olFolderContacts).Items;

      Hashtable КонтактПоПолномуИмени = new Hashtable();
      Hashtable КонтактПоНомеруТелефона = new Hashtable();

      foreach (ContactItem контакт in КонтактыВOutlook)
      {
        if (контакт.Class != OlObjectClass.olContact) continue;

        текущийКонтакт = контакт;
        контактИзменен = false;
        СтарыеЗначенияПолей = new Hashtable();
        
        контакт.PropertyChange += new ItemEvents_10_PropertyChangeEventHandler(ИзмененоПоле);

        foreach (ItemProperty Поле in контакт.ItemProperties)
        {
          if (Поле.Name.Contains("phone") || (Поле.Name.Contains("fax")) ||
            Поле.Name.Contains("FileAs") || (Поле.Name.Contains("FullName")))
          {
            СтарыеЗначенияПолей[Поле.Name] = Поле.Value;
          }
          if (Поле.Name.Contains("phone") || (Поле.Name.Contains("fax")))
          {
            if (Поле.Value.ToString() != "")
            {
              string Старый = (string)Поле.Value;
              string Новый = Телефон(Старый);
              if (Старый != Новый)
              {
                Console.WriteLine("Assert.Equals( \"{0}\", Program.Телефон(\"{1}\") );",
                                  Старый, Новый);
                Поле.Value = Новый;
              }
              if (КонтактПоНомеруТелефона.Contains(Новый))
              {
                Console.WriteLine("Дубль телефона: " + Новый +
                  " " + контакт.FullName + " " + ((ContactItem)КонтактПоНомеруТелефона[Новый]).FullName);
              }
              else
              {
                КонтактПоНомеруТелефона.Add(Новый, контакт);
              }
            }
          }
        }
        
        if (КонтактПоПолномуИмени.Contains(контакт.FullName))
        {
          Console.WriteLine("Удаляю дубль: " + контакт.FullName);
          контакт.Delete();
          continue;
        }
        else
        {
          КонтактПоПолномуИмени.Add(контакт.FullName, контакт);
        } 

        if (контакт.FileAs != контакт.FullName)
        {
          контакт.FileAs = контакт.FullName;
        }
        if (контакт.FullName != ФИО(контакт.FullName))
        {
          контакт.FullName = ФИО(контакт.FullName);
        }

        if (контактИзменен) 
          контакт.Save();
      }
    }

    private static void ИзмененоПоле(string Name)
    {
      Console.WriteLine("["+текущийКонтакт.FileAs+"]."+Name+" = "+
                        СтарыеЗначенияПолей[Name]+" => "+
                        текущийКонтакт.ItemProperties[Name].Value);
      контактИзменен = true;   
    }

    /// <summary>
    /// Конвертирование ФИО в правильное написание
    /// </summary>
    /// <param name="фио">ФИО как оно есть</param>
    /// <returns>ФИО как должно быть</returns>
    public static string ФИО(string фио)
    {
      switch (фио)
      {
        case "Михаил Павловский":
          return "Миша Павловский";
        case "Марченко Влад":
          return "Влад Марченко";
        // ...и так далее..
        default:
          return фио;
      }
    }

    /// <summary>
    /// Конвертирование номера телефона в нужный формат
    /// </summary>
    /// <param name="номер">Номер телефона как есть сейчас</param>
    /// <returns>Номер телефона как он должен быть</returns>
    public static string Телефон(string номер)
    {
      // Обработка служебных номеров
      if ((номер.StartsWith("0")) || номер.Length < 7)
        return номер;
      // Обработка изменения кодов
      номер = номер.Replace("+7 (011", "+7 (401"); // Kaliningrad
      номер = номер.Replace("+7 (0", "+7 (4");
      // Добаляем плюс в начало, если его нету
      if (!номер.StartsWith("+"))
        номер = "+" + номер;
      if (номер.StartsWith("+8") && номер.Length == 12)
      {
        номер = "+7" + номер.Substring(2);
      }
      // Добавляем к Питерским номерам 812
      if (номер.Length == 8)
      {
        номер = номер.Insert(1, "7812");
      }
      // Российские номера начинаются с +7 
      if (номер.StartsWith("+") && номер.Length == 12)
      {
        номер = номер.Insert(5, ") ");
        номер = номер.Insert(2, " (");
      }
      return номер;
    }
  }

  [TestFixture()]
  class Tests
  {
    [Test]
    public void КонвертацияНомеров()
    {
      Assert.Equals(Program.Телефон("0"), "0");
      Assert.Equals(Program.Телефон("+78122674695"), "+7 (812) 2674695");
      Assert.Equals(Program.Телефон("88122674695"), "+7 (812) 2674695");
      Assert.Equals(Program.Телефон("78122674695"), "+7 (812) 2674695");
      Assert.Equals(Program.Телефон("5113195"), "+7 (812) 5113195");
      Assert.Equals(Program.Телефон("77017621290"), "+7 (701) 7621290");
      Assert.Equals(Program.Телефон("16464362545"), "+1 (646) 4362545");
    }
  }
}

Comments

Ресурсы по 1С (язык, запросы, конфигурация, тесты) в интернете

http://1c.ru/ - сайт 1С
http://1c.ru/rus/support/release/ - текущие релизы 1С (версии последних релизов)
http://1c.ru/rus/support/release/categ.jsp?GroupID=88 - Типовые конфигурации фирмы "1С" для России
http://1c.ru/rus/support/release/categ.jsp?GroupID=116 - Совместные типовые конфигурации
http://v8.1c.ru/metod/architecture/ - Архитектура 1С предприятия
http://www.mista.ru/tutor_1c/sys_func.htm - Встроенные функции
Построение запросов
Функции для построения запросов в 1С
http://1c.realnet.ru/ + http://abelov.com/forum/ - форум по 1С
http://www.wmline.ru/book/1c.html - советы по 1С
http://www.soft-expert.ru/stat/stat-progr/stat-progr1 - Технология обновления нетиповых конфигураций "1С"

Comments

Delphi ColorConsole цветная консоль в Delphi

unit ColorConsole;

interface

uses Windows, SysUtils;

// Вывод лога на консоль Windows с использованием цветов
procedure WriteConsole( S:String; Error:Boolean = false );

implementation

procedure WriteConsole( S:String; Error:Boolean = false );
var
  Buffer : String;
  i : Integer;
  cnt : Integer;
  TextColor : Word;
begin
  if Error then
    TextColor := FOREGROUND_RED Or FOREGROUND_INTENSITY
  else
    TextColor := FOREGROUND_RED Or FOREGROUND_GREEN Or FOREGROUND_BLUE;
  // Конвертируем из Windows-кодировки в DOS
  SetLength(Buffer,Length(S)); // Создаем буфер для конвертации
  AnsiToOem(PChar(S),PChar(Buffer));
  // Выводим дату и время
  SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), FOREGROUND_GREEN + FOREGROUND_INTENSITY );
  Write( DateTimeToStr( Now ) + ' ');
  // Устанавливаем цвет текста
  SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), TextColor );
  Cnt := 0;
  for i:=0 to Length(Buffer) do begin
    if Buffer[i] = '"' then begin
      inc(Cnt);
      // Начало подстроки выделенной кавычками
      if odd(Cnt) then begin
        SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE),
          FOREGROUND_BLUE Or FOREGROUND_GREEN Or FOREGROUND_INTENSITY );
      end;
    end;
    Write( Buffer[i] );
    // Окончание подстроки выделенной кавычками
    if Buffer[i] = '"' then begin
      if not odd(Cnt) then
        SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), TextColor );
    end;
  end;
  Writeln;
end;

end.

Comments

Работа с сетевыми дисками (подключение/отключение) из Delphi

unit NetworkU;
 
interface
 
// Узнать к какому сетевому пути подключен сетевой диск
function NetGetConnection( NetDrive:Char ):String;
// Удалить подключение к сетевому диску
// Аналогично: net use <NetDrive>: /del
function NetCancelConnection( NetDrive:Char ):String;
// Добавить подключение к сетевому диску
function NetAddConnection( NetDrive:Char; NetPath:String ):String;
 
implementation
 
uses Types, Windows;
 
function NetGetConnection( NetDrive:Char ):String;
var
  lpLocalName : PChar;
  lpRemoteName : PChar;
  Err : DWORD;
  MAX_SIZE : DWORD;
begin
  MAX_SIZE := 3000; // Размер буфера для сетевого пути - если не будет хватать - можно увеличить
  GetMem( lpRemoteName, MAX_SIZE );
  lpLocalName := PChar(String(NetDrive+':'));
  Err := WNetGetConnection( lpLocalName, lpRemoteName, MAX_SIZE );
  case Err of
    NO_ERROR: Result := lpRemoteName;
    ERROR_BAD_DEVICE: Result := 'Значение "'+lpLocalName+'" неверно!';
    ERROR_NOT_CONNECTED: Result := 'Устройство указанное в "'+lpLocalName+'" не переназначенное устройство.';
    ERROR_MORE_DATA: Result := 'Буфер слишком маленький.';
    ERROR_CONNECTION_UNAVAIL: Result := 'Устройство на данный момент не соединено, но это захваченная связь.';
    ERROR_EXTENDED_ERROR: Result := 'Произошла сетевая специфическая ошибка. Для того чтобы получить информацию об ошибке, вызовите функцию WNetGetLastError.';
    ERROR_NO_NET_OR_BAD_PATH: Result := 'Операция не выполнена потому что сетевой компонент не запущен или имя сетевого ресурса не может быть использовано.';
    ERROR_NO_NETWORK: Result := 'Сеть отсутствует.';
  end;
end;
 
function NetCancelConnection( NetDrive:Char ):String;
var
  lpLocalName : PChar;
  Err : DWORD;
begin
  lpLocalName := PChar(String(NetDrive+':'));
  Err := WNetCancelConnection( lpLocalName, true );
  case Err of
    NO_ERROR: Result := NetDrive+' успешно отключён!';
    ERROR_BAD_PROFILE: Result := 'Профиль пользователя неправильного формата.';
    ERROR_CANNOT_OPEN_PROFILE: Result := 'Система не может открыть профиль пользователя.';
    ERROR_DEVICE_IN_USE: Result := 'Устройство используется активным процессом и не может быть разъединено.';
    ERROR_EXTENDED_ERROR: Result := 'Произошла сетевая специфическая ошибка. Для того чтобы получить информацию об ошибке, вызовите функцию WNetGetLastError.';
    ERROR_NOT_CONNECTED: Result := 'Имя определенное параметром lpName - не переназначенное устройство или система к настоящему времени не подключена к устройству.';
    ERROR_OPEN_FILES: Result := 'Если есть открытые файлы и параметр fForce равен False.';
  end;
end;
 
function NetAddConnection( NetDrive:Char; NetPath:String ):String;
var
  Err : DWORD;
begin
  { подключаем сетевой pесуpс, используя структуру TNetResource }
  Err := WNetAddConnection(
    PChar(NetPath),
    '', // lpPassword, -- если нужен пароль для подключения - можно его сюда передать
    PChar(String(NetDrive+':')) //lpLocalName
    );
  case Err of
    NO_ERROR: Result := NetDrive+' успешно подключён!';
    ERROR_ACCESS_DENIED: Result := 'Нет доступа к сетевому ресурсу.';
    ERROR_ALREADY_ASSIGNED: Result := 'Устройство указанное в параметре lpLocalName уже переопределено.';
    ERROR_BAD_DEV_TYPE: Result := 'Тип устройства и тип ресурса не сочетается.';
    ERROR_BAD_DEVICE: Result := 'Значение определенное в параметре lpLocalName неверно.';
    ERROR_BAD_NET_NAME: Result := 'Значение определенное в параметре lpRemoteName неверно.';
    ERROR_BAD_PROFILE: Result := 'Профиль пользователя неправильного формата.';
    ERROR_CANNOT_OPEN_PROFILE: Result := 'Система не может открыть профиль пользователя.';
    ERROR_DEVICE_ALREADY_REMEMBERED: Result := 'Привязка для устройства указанного в параметре lpLocalName - уже в профиле пользователя.';
    ERROR_EXTENDED_ERROR: Result := 'Произошла сетевая специфическая ошибка. Для того чтобы получить информацию об ошибке, вызовите функцию WNetGetLastError.';
    ERROR_INVALID_PASSWORD: Result := 'Пароль недействителен.';
    ERROR_NO_NET_OR_BAD_PATH: Result := 'Операция не выполнена потому что сетевой компонент не запущен или имя сетевого ресурса не может быть использовано.';
    ERROR_NO_NETWORK: Result := 'Сеть отсутствует.';
  else
    Result := 'Неизвестная ошибка!';
  end;
end;
 
end.

Comments

FileUtils для Delphi

{ ToDo (нужно ещё сделать): }
{  - Реализовать маски - а вот это совсем не так просто :) }
// Модуль содержит множество полезных подпрограмм для работы с файловой системой
// и реестром
Unit Cmd;

interface

  // Скопировать файл
  procedure Copy( SrcFile, DstFile : String );
  // Скопировать с перезаписью
  procedure CopyOverwrite( SrcFile, DstFile : String );
  // Переименовать файл
  procedure Ren( OldName, NewName : String );
  // Удалить файл
  procedure Del( FileName : String );
  // Удалить каталог и всё вложенное
  procedure DelTree( DirName : String );
  // Создать каталог если он не существует
  procedure CreateDirSafe( DirName : string );
  // Удалить файл если он существует
  procedure DeleteIfExists_File( FileName:String );
  // Удалить каталог если он существует
  procedure DeleteIfExists_Dir( DirName:String );
  // Создание ярлыка на рабочем столе
  procedure CreateLink(
    FileOrDirName : String; // Имя файла на который будет указывать ярлык
    LinkDir  : String; // Имя каталога, где создать ярлык
    LinkName : String; // Имя ярлыка
    Arguments : String = '' // Аргументы запуска программы
   );
  // XCopyFile - надёжное копирование файла (обновление)
  procedure XCopyFile( SrcFileName,DstFileName:String );
  procedure XCopyDir( SourceDir, DestinationDir : String );
  procedure XCopyFileSafe( SrcFile,DestinationDir:String );
  // - Работа с реестром --
  function GetRegValue( KeyFullPath, KeyName: string ):string;
  procedure SetRegValue( KeyFullPath, KeyName, NewValue: string );

implementation

uses Windows,SysUtils,ShlObj,ActiveX,ComObj,XLog,
  Registry {работа с реестром};

const
  Error = '[Ошибка] ';

var Command : String;

procedure Copy( SrcFile, DstFile : String );
begin
  Command := Format('Copy(''%s'' -> ''%s'') ', [SrcFile, DstFile] );
  if not FileExists(SrcFile) then begin
    Log( Error + Command + ' файл "' + SrcFile + '" не найден!');
    exit;
  end;
  if FileExists(DstFile) then begin
    Log( Error + Command + ' файл "' + DstFile + '" уже существует!');
    exit;
  end;
  if( CopyFile( PAnsiChar(SrcFile), PAnsiChar(DstFile), True ) ) then
    Log( Command )
  else
    Log( Error + Command );
end;

procedure CopyOverwrite( SrcFile, DstFile : String );
begin
  Command := Format('CopyOverwrite(''%s'' -> ''%s'') ', [SrcFile, DstFile] );
  if not FileExists(SrcFile) then begin
    Log( Error + Command + ' файл "' + SrcFile + '" не найден!');
    exit;
  end;
  if( CopyFile( PAnsiChar(SrcFile), PAnsiChar(DstFile), False ) ) then
    Log( Command )
  else
    Log( Error + Command );
end;

procedure Ren( OldName, NewName : String );
var
  f:file;
begin
  Command := Format('Ren(''%s'' -> ''%s'') ', [OldName, NewName] );
  if not FileExists(OldName) then begin
    Log( Error + Command + ' файл "' + OldName + '" не найден!');
    exit;
  end;
  if FileExists(NewName) then begin
    Log( Error + Command + ' файл "' + NewName + '" уже существует!');
    exit;
  end;
  try
    AssignFile(f, OldName);
    Rename(f, NewName);
    Log( Command );
  except
    Log( Error + Command );
  end;
end;

procedure Del( FileName : String );
begin
  Command := Format('Del(''%s'') ', [FileName] );
  if not FileExists(FileName) then begin
    Log( Error + Command + ' файл "' + FileName + '" не найден!');
    exit;
  end;
  if DeleteFile( FileName ) then
    Log( Command )
  else
    Log( Error + Command );
end;

procedure DelTree( DirName:String );
var sr : TSearchRec;
begin
  Log('Удаляю каталог "'+DirName+'"');
  DirName := IncludeTrailingPathDelimiter(DirName);
  if FindFirst(DirName+'*.*', faAnyFile, sr) = 0 then begin
    repeat
      if ((sr.Attr and faDirectory) <> 0) then begin // Каталог
        if ((sr.Name<>'..') and (sr.Name<>'.')) then
          DelTree(DirName+sr.Name);
      end else begin // Файл
        Log('Удаляю файл "'+DirName+sr.Name+'"');
        DeleteFile( DirName+sr.Name );
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  RemoveDir(DirName);
end;

procedure CreateDirSafe( DirName : string );
begin
  if not DirectoryExists(DirName) then begin
    MkDir( DirName );
  end;
  assert( DirectoryExists(DirName) );
end;

procedure DeleteIfExists_File( FileName:String );
begin
  if not FileExists(FileName) then begin
    Log('DeleteIfExists: "'+FileName+'" - файла нету!');
    exit;
  end;
  Log('DeleteIfExists: "'+FileName+'" - удаляем!');
  try
    FileSetAttr(FileName, 0); // Удаляем все аттрибуты
    DeleteFile(FileName);
  except
    Log('Ошибка: не могу удалить файл: "'+FileName+'"', true);
  end;
end;

procedure DeleteIfExists_Dir( DirName:String );
begin
  if not DirectoryExists(DirName) then begin
    Log('DeleteIfExists: "'+DirName+'" - каталога нету!');
    exit;
  end;
  Log('DeleteIfExists: "'+DirName+'" - удаляем!');
  try
    DelTree(DirName);
  except
    on E:Exception do Log('Ошибка: не могу удалить каталог: "'+DirName+'" - '+E.Message, true);
  end;
end;

// Перевод из стандартной строки Delphi в Unicode-строку для WinAPI
function Str2Wide( lpStr : String ):PWideChar;
var dwStrlen : Cardinal;
begin
  dwStrLen := lstrlen(PChar(lpStr));
  GetMem(Result,(dwStrLen+1)*2);
  StringToWideChar(lpStr,Result,dwStrLen+1);
end;

// Создание ярлыка на рабочем столе
procedure CreateLink(
  FileOrDirName : String; // Имя файла на который будет указывать ярлык
  LinkDir  : String; // Имя каталога, где создать ярлык
  LinkName : String; // Имя ярлыка
  Arguments : String = '' // Аргументы запуска программы
 );
var
  MyObject: IUnknown;
  MyIcon: IShellLink;
  MyPFile: IPersistFile;
  LinkFileName: String;
  TempLinkFileName: String;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MyIcon := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  with MyIcon do begin
    SetPath( PChar(FileOrDirName) ); // Путь к запускаемому файлу
    SetArguments( PChar(Arguments) ); // Аргументы запуска программы
    SetWorkingDirectory( PChar(ExtractFilePath(FileOrDirName)) ); // Рабочий каталог
  end;
  LinkFileName := LinkDir + '\' + LinkName + '.lnk';
  // Даже если ярлык есть - лучше его пересоздать - вдруг он ссылается не туда
  if FileExists(LinkFileName) then begin
//    Log('Ярлык "'+LinkFileName+'" уже есть! Пропускаю создание!');
//    exit;
    DeleteFile( LinkFileName );
  end;
  // Следующая строка почему-то не работает под WindowsXP English + MUI (русификация)
  // Такое ощущение, что иконка создаётся в неправильной кодировке.
  //  MyPFile.Save( Str2Wide(LinkFileName), False); !!!
  // В результате пользуюсь пока таким "извратом" ("грязный хак"):
  // 1. Создаём временную иконку
  TempLinkFileName := LinkDir + '\!TempLink!.lnk';
  MyPFile.Save( Str2Wide(TempLinkFileName), False);
  // 2. Переименовываем её правильно
  RenameFile( TempLinkFileName, LinkFileName  );
  if FileExists(TempLinkFileName) then
    DeleteFile(TempLinkFileName);
  Log('Создан ярлык "'+LinkFileName+'"');
end;

function GetFileTimeStamp( FileName: string ): TDateTime;
var
  FileTime, LocalFileTime : TFileTime;
  SystemTime              : TSystemTime;
  hFile                   : THandle;
begin
  hFile := FileOpen(FileName, fmShareDenyNone);
  try
    GetFileTime(hFile, nil, nil, @FileTime); // - дата изменения
    FileTimeToLocalFileTime(FileTime, LocalFileTime);
    if FileTimeToSystemTime(LocalFileTime, SystemTime) then
      Result := SystemTimeToDateTime(SystemTime);
  finally
    FileClose(hFile);
  end;
end;

// Копирование/обновление файла
// параметры - имя файла откуда копируем, имя файла куда копируем
procedure XCopyFile( SrcFileName,DstFileName:String );
var Op : String;
begin
  assert( FileExists(SrcFileName), 'Файл: "'+SrcFileName+'" отсутствует!' );
  if FileExists(DstFileName) then begin
    if GetFileTimeStamp(SrcFileName) <= GetFileTimeStamp(DstFileName) then
      exit;
    Op := 'Заменяю файл: ';
  end else begin
    Op := 'Копирую файл: ';
  end;
  Log( Op+' "'+SrcFileName+'" => "'+DstFileName+'"' );

  CopyFile( PAnsiChar(SrcFileName), PAnsiChar(DstFileName), false );
  FileSetAttr(DstFileName,FileGetAttr(SrcFileName));

  assert( FileExists(DstFileName) );
end;

procedure XCopyFileToDir( SrcFileName,DstDir:String );
var DstFileName : String;
begin
  if not DirectoryExists(DstDir) then begin
    Log('Ошибка: Каталог: "'+DstDir+'" отсутствует!',true);
    exit;
  end;
  DstFileName := IncludeTrailingPathDelimiter(DstDir) + ExtractFileName(SrcFileName);
  XCopyFile(SrcFileName, DstFileName);
end;

procedure XCopyDir( SourceDir, DestinationDir : String );
var
  Search : TSearchRec;
  Rec    : word;
begin
  assert( DirectoryExists(SourceDir), 'Каталог: "'+SourceDir+'" отсутствует!' );
  assert( DirectoryExists(DestinationDir), 'Каталог: "'+DestinationDir+'" отсутствует!' );

  SourceDir := IncludeTrailingPathDelimiter(SourceDir);
  DestinationDir := IncludeTrailingPathDelimiter(DestinationDir);
  // Поиск
  Rec := FindFirst(SourceDir + '*.*', faAnyFile, Search);
  while Rec = 0 do begin
    if Search.Name[1] <> '.' then begin
      if (Search.Attr and faDirectory) = faDirectory then begin  // Создание каталога
        Windows.CreateDirectory(PChar(DestinationDir + Search.Name), nil);
        FileSetAttr(DestinationDir + Search.Name, FileGetAttr(SourceDir + Search.Name));
        assert( DirectoryExists(DestinationDir + Search.Name) );
        XCopyDir(SourceDir + Search.Name, DestinationDir + Search.Name);
      end else begin // Создание файла
        XCopyFile( SourceDir + Search.Name, DestinationDir + Search.Name );
      end;
    end;
    Rec := FindNext(Search);
  end;
  FindClose(Search);
end;

procedure XCopyFileSafe( SrcFile,DestinationDir:String );
begin
  if not FileExists(SrcFile) then begin
    Log('Файл: "'+SrcFile+'" отсутствует!');
    exit;
  end;
  XCopyFileToDir( SrcFile,DestinationDir );
end;

// - Работа с реестром -
// используются стандартные модули Registry, Windows

function GetRegistryValue( RootKey:HKEY; KeyPath,KeyName:string ):string;
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create(KEY_READ);
  try
    Registry.RootKey := RootKey;
    // False - мы не хотим создавать путь в реестре, если он отсутствует
    Registry.OpenKey(KeyPath, False);
    Result := Registry.ReadString(KeyName);
  finally
    Registry.Free;
  end;
end;

procedure SetRegistryValue( RootKey:HKEY; KeyPath,KeyName,NewValue:string );
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := RootKey;
    if Registry.OpenKey(KeyPath, True) then begin
      Registry.WriteString(KeyName,NewValue);
      Registry.CloseKey;
    end;
  finally
    Registry.Free;
  end;
end;

function GetRootKey( KeyFullPath: string ):HKEY;
var RootName : string;
begin
  // Получаем текстовое имя корня
  RootName := System.Copy(KeyFullPath,1,Pos('\',KeyFullPath)-1);
  Result := 0;
  if RootName = 'HKEY_CLASSES_ROOT' then Result := HKEY_CLASSES_ROOT;
  if RootName = 'HKEY_CURRENT_USER' then Result := HKEY_CURRENT_USER;
  if RootName = 'HKEY_LOCAL_MACHINE' then Result := HKEY_LOCAL_MACHINE;
  if RootName = 'HKEY_USERS' then Result := HKEY_USERS;
  if RootName = 'HKEY_PERFORMANCE_DATA' then Result := HKEY_PERFORMANCE_DATA;
  if RootName = 'HKEY_CURRENT_CONFIG' then Result := HKEY_CURRENT_CONFIG;
  if RootName = 'HKEY_DYN_DATA' then Result := HKEY_DYN_DATA;
  assert( Result <> 0, 'Недопустимый корневой раздел реестра: "'+KeyFullPath+'". '+
    'Должен быть: HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE, '+
    'HKEY_USERS, HKEY_PERFORMANCE_DATA, HKEY_CURRENT_CONFIG, HKEY_DYN_DATA');
end;

function GetRegValue( KeyFullPath, KeyName: string ):string;
var
  KeyPath : string;
begin
  KeyPath := System.Copy(KeyFullPath,Pos('\',KeyFullPath),MaxLongint);
  Result := GetRegistryValue(GetRootKey(KeyFullPath),KeyPath,KeyName);
end;

procedure SetRegValue( KeyFullPath, KeyName, NewValue: string );
var
  KeyPath : string;
begin
  KeyPath := System.Copy(KeyFullPath,Pos('\',KeyFullPath),MaxLongint);
  SetRegistryValue(GetRootKey(KeyFullPath),KeyPath,KeyName,NewValue);
end;

end.

Пример использования:

// Компиляция: 
//  dcc32.exe cmd.dpr 
{$APPTYPE CONSOLE}
Uses cmd;
begin
  CopyOverwrite('cmd.pas','cmd.bak');
  Ren('cmd.bak','cmd.old');
  Del('*.~*');
end.

И ещё один пример:

{$APPTYPE CONSOLE}
Uses SysUtils;

var Mask : string;

procedure ClearTree( Path:String );
var sr : TSearchRec;
begin
  Path := IncludeTrailingPathDelimiter(Path);
  // Обход всех подкаталогов
  if FindFirst(Path+'*.*', faDirectory, sr) = 0 then begin
    repeat
      if ((sr.Name<>'..') and (sr.Name<>'.')) then begin
        if ((sr.Attr and faDirectory) <> 0) then
          ClearTree(Path+sr.Name+'\');
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  // Удаление файлов по маске
  if FindFirst(Path+Mask, faAnyFile, sr) = 0 then begin
    repeat
      if (sr.Attr and faDirectory)=0 then begin
        Writeln('DeleteFile "'+Path+sr.Name+'"');
        DeleteFile( Path+sr.Name );
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

begin
  Writeln('Утилита для удаления файлов по маске из дерева каталогов');
  Writeln('Использование: DelMask <маска> <начальный_каталог>');
  Writeln('Пример использования: DelMask *.bak D:\temp');
  Writeln('Для удобства использования скопируйте DelMask.exe в каталог C:\Windows');
  if ParamCount = 2 then begin
    Mask := ParamStr(1);
    Writeln('Маска: "'+Mask+'" Обработка каталога: "'+ParamStr(2)+'"');
    ClearTree(ParamStr(2));
  end;
end.

Comments

с прошедшим праздиком вас всех!

http://peepla.net/tebe.html

Comments

C# Application Settings

Как settings сохраненить под другим именем? Для того, чтобы обновить настройки в дизайнере :)

Comments

Visual Studio 2005

БазаДанных - это DataSet. Только не надо говорить, что проблемы из-за русских букв в идентификаторах :)

Comments

Простенький текстовый редактор типа Notepad на C#

using System;
using System.ComponentModel;
using System.Drawing;
using System.Resources;
using System.Windows.Forms;

namespace Editor
{
/// <summary>
/// Мой редактор типа Блокнота
/// </summary>
public class Редактор : Form
{
/// <summary>
/// Required designer variable.
/// </summary>
private Container components;

private ColorDialog ДиалогВыбораЦвета;
private FontDialog ДиалогВыборШрифта;
private SaveFileDialog ДиалогСохранить;
private OpenFileDialog ДиалогОткрытьФайл;
private MainMenu ГлавноеМеню;
private MenuItem ПунктМенюПереносСлов;
private RichTextBox Текст;

private string _filename = "";

private string filename
{
get { return _filename; }
set
{
_filename = value;
Text = value;
}
}


public Редактор()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
}

/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
ResourceManager resources = new ResourceManager(typeof(Редактор));
components = new Container();
ДиалогВыборШрифта = new FontDialog();
Текст = new RichTextBox();
ДиалогОткрытьФайл = new OpenFileDialog();
MenuItem ПунктМенюФормат = new MenuItem();
MenuItem ПунктМенюПомощь = new MenuItem();
ГлавноеМеню = new MainMenu();

ДиалогВыбораЦвета = new ColorDialog();
ДиалогСохранить = new SaveFileDialog();

Текст.AutoWordSelection = true;
Текст.Size = new Size(336, 312);
Текст.TabIndex = 1;
Текст.ScrollBars = RichTextBoxScrollBars.ForcedBoth;
Текст.Font = new Font("Arial", 10, FontStyle.Bold);

ДиалогОткрытьФайл.Filter = "Текстовый файл|*.txt";
ДиалогОткрытьФайл.ReadOnlyChecked = true;
ДиалогОткрытьФайл.DefaultExt = "txt";
ДиалогОткрытьФайл.Multiselect = true;

ПунктМенюПереносСлов = new MenuItem("Перенос по словам", new EventHandler(ПереносСлов));

ПунктМенюПомощь = new MenuItem(
"Помощь",
new MenuItem[]
{
new MenuItem("О программе", new EventHandler(ОПрограмме))
}
);

ГлавноеМеню.MenuItems.AddRange(
new MenuItem[]{
new MenuItem(
"&Файл",
new MenuItem[]
{
new MenuItem("Создать", new EventHandler(СоздатьНовыйФайл), Shortcut.CtrlN),
new MenuItem("Открыть...", new EventHandler(ОткрытьФайл), Shortcut.CtrlO), 
new MenuItem("Сохранить", new EventHandler(СохранитьФайл), Shortcut.CtrlS),
new MenuItem("Сохранить как...", new EventHandler(СохранитьКак)), 
new MenuItem("-"), 
new MenuItem("Выход", new EventHandler(ВыходИзПрограммы) )
}
),
new MenuItem(
"&Правка",
new MenuItem[]
{
new MenuItem("Отменить", new EventHandler(Отменить), Shortcut.CtrlZ),
new MenuItem("Вернуть", new EventHandler(Вернуть)),
new MenuItem("-"),
new MenuItem("Вырезать", new EventHandler(Вырезать), Shortcut.CtrlX),
new MenuItem("&Копировать", new EventHandler(Копировать), Shortcut.CtrlC),
new MenuItem("Вставить", new EventHandler(Вставить), Shortcut.CtrlV), 
new MenuItem("Удалить", new EventHandler(Удалить), Shortcut.Del), 
new MenuItem("-"), 
new MenuItem("Найти...", new EventHandler(Найти), Shortcut.CtrlF), 
new MenuItem("Найти далее", new EventHandler(НайтиДалее), Shortcut.F3), 
new MenuItem("Заменить...", new EventHandler(Заменить), Shortcut.CtrlH), 
new MenuItem("Перейти...", new EventHandler(Перейти), Shortcut.CtrlG), 
new MenuItem("-"), 
new MenuItem("В&ыделить все", new EventHandler(ВыделитьВсе), Shortcut.CtrlA),
new MenuItem("Время и дата", new EventHandler(ВставкаВремениИДаты), Shortcut.F5)
}), 
new MenuItem(
"Формат",
new MenuItem[]
{
ПунктМенюПереносСлов, 
new MenuItem("Шрифт", new EventHandler(ВыборШрифта) ),
new MenuItem("Цвет", new EventHandler(ВыборЦвета) ) 
}),

ПунктМенюПомощь
});

ДиалогСохранить.Filter = "Текстовый файл|*.txt";
ДиалогСохранить.InitialDirectory = System.IO.Directory.GetCurrentDirectory(); // System.IO.Path.GetDirectoryName("");
ДиалогСохранить.DefaultExt = "txt";
ДиалогСохранить.FileName = "Untitled";
ДиалогСохранить.CheckFileExists = true;

Text = "Мой редактор";
AutoScaleBaseSize = new Size(5, 13);
Menu = ГлавноеМеню;
ClientSize = new Size(344, 317);
Resize += new EventHandler(rs);
Controls.Add(Текст);
}

private void Перейти(object sender, EventArgs e)
{
throw new NotImplementedException();
}

private void Заменить(object sender, EventArgs e)
{
throw new NotImplementedException();
}

private void НайтиДалее(object sender, EventArgs e)
{
throw new NotImplementedException();
}

private void Найти(object sender, EventArgs e)
{
throw new NotImplementedException();
}

private void Удалить(object sender, EventArgs e)
{
if (Текст.SelectedText.Equals("")) return;
Текст.SelectedText = "";
}

protected void ОПрограмме(object sender, EventArgs e)
{
MessageBox.Show("Просто текстовый редактор, версия такая-то...", "О программе", MessageBoxButtons.OK,
MessageBoxIcon.Information);
}

protected void ПереносСлов(object sender, EventArgs e)
{
ПунктМенюПереносСлов.Checked = !ПунктМенюПереносСлов.Checked;
Текст.WordWrap = ПунктМенюПереносСлов.Checked;
}

protected void ВыборЦвета(object sender, EventArgs e)
{
ДиалогВыбораЦвета.ShowDialog();
Текст.SelectionColor = ДиалогВыбораЦвета.Color;
}

protected void ВыборШрифта(object sender, EventArgs e)
{
ДиалогВыборШрифта.ShowDialog();
Текст.SelectionFont = ДиалогВыборШрифта.Font;
}

protected void ВставкаВремениИДаты(object sender, EventArgs e)
{
Текст.SelectedText = DateTime.Now.ToString();
}

protected void ВыделитьВсе(object sender, EventArgs e)
{
Текст.SelectAll();
}

protected void Вставить(object sender, EventArgs e)
{
DataObject Data = (DataObject)Clipboard.GetDataObject();
Текст.SelectedText = (string)Data.GetData(DataFormats.Text);
}

protected void Копировать(object sender, EventArgs e)
{
if (Текст.SelectedText.Equals("")) return;
Clipboard.SetDataObject(Текст.SelectedText, true);
}

protected void Вырезать(object sender, EventArgs e)
{
if (Текст.SelectedText.Equals("")) return;
Clipboard.SetDataObject(Текст.SelectedText, true);
Текст.SelectedText = "";
}

protected void Вернуть(object sender, EventArgs e)
{
Текст.Redo();
}

protected void Отменить(object sender, EventArgs e)
{
Текст.Undo();
}

protected void СохранитьФайл(object sender, EventArgs e)
{
if (filename.Equals(""))
{
ДиалогСохранить.ShowDialog();
if (!ДиалогСохранить.FileName.Equals(""))
{
filename = ДиалогСохранить.FileName;
}
}
Текст.SaveFile(filename, RichTextBoxStreamType.PlainText);
Text = filename;
}

protected void СохранитьКак(object sender, EventArgs e)
{
ДиалогСохранить.ShowDialog();
if (!ДиалогСохранить.FileName.Equals(""))
{
filename = ДиалогСохранить.FileName;
Текст.SaveFile(filename, RichTextBoxStreamType.PlainText);
Text = filename;
}
}

protected void СоздатьНовыйФайл(object sender, EventArgs e)
{
Текст.Clear();
}

protected void ОткрытьФайл(object sender, EventArgs e)
{
ДиалогОткрытьФайл.ShowDialog();
filename = ДиалогОткрытьФайл.FileName;
if (!filename.Equals(""))
{
Текст.LoadFile(filename, RichTextBoxStreamType.PlainText);
Text = filename;
}
}

protected void rs(object sender, EventArgs e)
{
Текст.Size = Size;
}

private void ВыходИзПрограммы(object sender, EventArgs e)
{
Close();
}

[STAThreadAttribute]
public static void Main(string[] args)
{
Application.Run(new Редактор());
}
}
}

Comments

Как работает программист

1. Понять, что от тебя хотят (в общем), и стоит ли вообще этим заниматься? Беседа с заказчиком, оценка временных затрат и взаимной выгоды. Общение с заказчиком.
2. Понять конктретнее, что от тебя хотят и перевести это на язык компьютера (сформулировать тесты).
3. Добиться, чтобы программа проходила тесты.
4. Убедить заказчика, что ты сделал именно то, что ему нужно.

Comments

Генерация HTML с подсветкой синтаксиса по исходному тексту при помощи Colorer'а (новая версия)

Сайт Colorer: http://colorer.sourceforge.net/ Online HTML generator: http://colorer.sourceforge.net/php/

@echo off
if not exist "%windir%\col.cmd" ( 
  echo Копируем col.cmd в каталог Windows, чтобы был в PATH, и удобней было вызывать из командной строки.
  copy %0 "%windir%\col.cmd" 
)
rem Путь к Far Manager
set FarPath=c:\shells\far
rem Путь к Colorer (если он установлен как Plugin к Far)
set ColorerExe="%FarPath%\Plugins\colorer\bin\colorer.exe"
if not exist %ColorerExe%. (
  echo Не найден файл %ColorerExe%, откройте "col.cmd", найдите строку set FarPath=... и впишите правильный путь к Far.
  echo А так же убедитесь, что у вас установлен Colorer! 
  goto end
) 

if "%1"=="" goto help
%ColorerExe% -h %1 > _temp_.html
echo Смотрите выходной файл _temp_.html в текущем каталоге
goto end
:help                                                                                 
echo Использование:  
echo    col имя_файла_для_подсветки_синтаксиса 
echo Выходной файл _temp_.html в текущем каталоге
:end

Comments