Перекидка всех данных в DBF с кодировки Dos866 в Win1251

[VitProff]

Помогите решить задачу.

Есть каталог в котором есть много DBF файлов с данными в кодировке Dos866 и есть второй каталог в котором есть DBF файлы в кодировке Win1251.
Проверить по очереди все имена файлов в втором каталоге и если они совпадают с именем файла в первом каталоге тогда нужно взять данные с файлов первого каталога перекодировать в кодировку Win1251 и добавить в конец файла в втором каталоге.

[Stilet]

Обязательно это в Делфи делать?
Может стоит взять более подходящий для этого FoxPro? Я обычно им такие вещи делаю.

[VitProff]

Можно и на FoxPro но нужно сделать простую форму чтоб эту перекодировку мог сделать любой бухгалтер не очень понимающий в роботе на ПК.

[Аватар]

Можно и ADO, подобрав соответствующие провайдеры для чтения и записи в зависимости от кодировки и наличия ссылки на кодовую страницу в заголовке dbf

[Stilet]

мог сделать любой бухгалтер

А-а-а. Вот оно как. Я думал это для себя пишется.
Т.е. есть какая-то суперстарючая на клиппере программа, которая что-то генерирует в DBF. И есть новая типа 1С, которая должна это нагенерированное считать, но пичаль в кракозябликах.
Я верно понял ситуацию?

[Dark_Spirit]

попробуй вот эти функции, мне они помогают:

function ConvertOemToAnsi(const S: string): string;
{ ConvertOemToAnsi translates a string from the OEM-defined
character set into either an ANSI or a wide-character string }
{$IFNDEF WIN32}
var
  Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
  {$IFDEF WIN32}
  SetLength(Result, Length(S));
  if Length(Result) > 0 then
    OemToAnsi(PChar(S), PChar(Result));
  {$ELSE}
  if Length(Result) > 0 then
  begin
    OemToAnsi(StrPCopy(Source, S), Dest);
    Result := StrPas(Dest);
  end;
  {$ENDIF}
end; { ConvertOemToAnsi }

function ConvertAnsiToOem(const S: string): string;
{ ConvertAnsiToOem translates a string into the OEM-defined character set }
{$IFNDEF WIN32}
var
  Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
  {$IFDEF WIN32}
  SetLength(Result, Length(S));
  if Length(Result) > 0 then
    AnsiToOem(PChar(S), PChar(Result));
  {$ELSE}
  if Length(Result) > 0 then
  begin
    AnsiToOem(StrPCopy(Source, S), Dest);
    Result := StrPas(Dest);
  end;
  {$ENDIF}
end; { ConvertAnsiToOem }

[Аватар]

http://programmersforum.ru/showthrea...hlight=MSDASQL

[VitProff]

Сообщение от Stilet

А-а-а. Вот оно как. Я думал это для себя пишется.
Т.е. есть какая-то суперстарючая на клиппере программа, которая что-то генерирует в DBF. И есть новая типа 1С, которая должна это нагенерированное считать, но пичаль в кракозябликах.
Я верно понял ситуацию?

Похоже но немного не так. Есть программа которая работает с базой в кодировке DOS . После выхода очередного обновления разработчики поменяли кодировку с DOS на WIN но не подумали что в DOS кодировке пользователи уже внесли много данных. Разработчики говорят чтоб заносили все вручную ещё раз в пустую базу. Но это не выход. По этому бухгалтеры меня мучат, я работаю ИТ-шником, чтоб как-то перекинуть данные. Но это могу я перекинуть 2-3 пользователям но что делать если их 50 и размещены они далеко от меня. Я не могу до каждого приехать и перекидивать. Нужно сделать програмку которая все будет делать сама. Чтоб каждый бухгалтер мог без проблем у себя проделать такую перекидку.

[Stilet]

Пусть тебе по e-mail пересылают свои DBF ты один раз переконвертируешь данные и отошлешь назад. Ехать в наш век интернета никуда не надо.
И программу для такого разового действа тоже лишне писать. С этим даже DBFNavigator справится без проблем.

[VitProff]

У них почти ни у кого нет интернета.