VPF::Некорректно сохраняет файл. - Форум программистов

m007kuzya

Дата 27.4.2009, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 19.4.2009

Репутация: нет
Всего: нет

Имеется текстовый файл. Мне надо считать его, внести изменения и сохранить. Я всё это сделал, на моём компьютере работает без проблем.
Когда запускаю свою программу на компьютере Заказчика - в файл сохраняются какие-то кракозябры (пустые прямоугольники).

Мои предположения: на компьютере заказчика установленна лицензионная английская WinXP c русским MUI. Возможно из-за этого проблемы...
Но файл я открываю/создаю/сохраняю не один, а множество... А проблемы наблюдаются только с этим одним :/

Собственно вопрос. Что делать то? smile

Как отловить ошибку?

собственно код (я понимаю что он кривой smile

Прошу ногами не пинать, в суть не вдаваться, обсуждать только вышеозначенную проблему):

Вот этот кусок записывает некорректно:

Код


var
  recScen : rec_scen;
  pthScenFile : string='d:\poligon\Scada\2009_04_13\PoligonLast\scen.txt';
  pthScenFileBac : string='d:\poligon\Scada\2009_04_13\PoligonLast\scen.bac';
  ScenFile  : TextFile;
  ScenFileBac : TextFile;
  nScen_cnt  : integer;
  bMatch : bool;
  nMatch : integer;
  stVar1 : string;
...

      assignfile(ScenFile,pthScenFile);
      assignfile(ScenFileBac,pthScenFileBac);
      reset(ScenFile);
      rewrite(ScenFileBac);
      nScen_cnt:=0;
      bMatch:=false;
      while not(eof(ScenFile)) do
        begin
          nScen_cnt:=nScen_cnt+1;
          readln(ScenFile,stVar1);
          if stVar1=recScen.stCapt then
            begin
              bMatch:=true;
              nMatch:=nScen_cnt;
            end;
            writeln(ScenFileBac,stVar1);
            end;
      closefile(ScenFile);
      deletefile(pthScenFile);
      if not(bMatch) then
          writeln(ScenFileBac,recScen.stCapt);

      closefile(scenFileBac);
      renamefile(pthScenFileBac,pthScenFile);

А вот этот работает без проблем:

Код


      if bMatch then
        assignfile(f1,pthRoot+inttostr(nMatch)+'.txt')
      else
        assignfile(f1,pthRoot+inttostr(nScen_cnt+1)+'.txt');

      rewrite(f1);
      if (pos('txt',SaveDialog1.FileName)<>0) then
          AssignFile(f2,SaveDialog1.FileName)
      else
          AssignFile(f2,SaveDialog1.FileName+'.txt');

      reset(f2);
      while not eof(f2) do
        begin
          readln(f2,stVar1);
          writeln(f1,stVar1)
        end;
      closefile(f1);
      closefile(f2);
    end;(*savedialog*)

P.s.: Delphi 2009.

offtop: случайно отправил сообщение до того как его дописал. Как с этого форума удалять созданные ошибочно темы? Что не нашёл такой кнопки :/

Это сообщение отредактировал(а) m007kuzya - 27.4.2009, 10:18

bems

Дата 27.4.2009, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

попробуй открыть неудачный файл чем-нить, что может отображать текст в кодировке по выбору. И укажи что это utf16

Это сообщение отредактировал(а) bems - 27.4.2009, 16:06

--------------------

Обижено школьников: 8

m007kuzya

Дата 27.4.2009, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 19.4.2009

Репутация: нет
Всего: нет

bems, это идея! Ведь действительно, этот файл от остальных отличается только тем, что его создавал не я, а сторонняя программа! И непонятно в какой кодировке она это делала! smile

Надо будет проверить!
Спасибо за подсказку smile

bems

Дата 28.4.2009, 04:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

ну вообще-то идея была в другом. В д2009 все строки по умолчанию в утф16.
А поскольку ты не пишешь в начало файла что это за кодировка, то какой-нить блокнот мог неправильно определить. А то что создавала сторонняя программа вроде в посте и указано не было

--------------------

Обижено школьников: 8

m007kuzya

Дата 28.4.2009, 09:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 19.4.2009

Репутация: нет
Всего: нет

Цитата

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

Но остальные то файлы он открывает нормально!

Цитата

А то что создавала сторонняя программа вроде в посте и указано не было

А это я уже сам додумал smile

С Вашей подачи ;) Ещё раз спасибо smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »