Скачать: CL | DM;

из dbf в txt   Найти похожие ветки 

← →
Jann ©   (2005-01-13 09:52) [0]

написал вот так:
var
i: Integer;
Str: String;
e: TextFile;
begin
AssignFile(e,"Text.txt");
Rewrite(e);
Table1.Open;
Table1.First;
while not Table1.Eof do
begin
  for i := 0 to Table1.FieldCount - 2 do    // Iterate
  begin
    write(Str,Table1.fields[i].AsString + #9);
  end;  // for
  WriteLn(Str + ""<?xml version=""1.0"" encoding=""utf-16""?>");
  WriteLn(Str,"<client_data_ext><birth_place>" + Table1.Fields[Table1.FieldCount - 1].AsString + "</birth_place></client_data_ext>");
  WriteLn(Str,""");
end;
CloseFile(e);
end;

выдает ошибку ошибка "I/O error 105", что не так?

---

← →
Александр Иванов ©   (2005-01-13 10:00) [1]

Честно говоря я так и не разобрал вчерашнюю задумку АП, поэтому исправлю по-своему:
var
i: Integer;
Str: String;
e: TextFile;
begin
AssignFile(e,"Text.txt");
Rewrite(e);
Table1.Open;
Table1.First;
while not Table1.Eof do
begin
 for i := 0 to Table1.FieldCount - 2 do    // Iterate
 begin
   Str:=Str + Table1.fields[i].AsString + #9;
 end;  // for
 Str:= Str + ""<?xml version=""1.0"" encoding=""utf-16""?>";
 Str:= Str+"<client_data_ext><birth_place>" + Table1.Fields[Table1.FieldCount - 1].AsString + "</birth_place></client_data_ext>";
 Str:= Str+""";
 WriteLn(e,Str);
 Table1.Next;
end;
CloseFile(e);
end;

---

← →
Jann ©   (2005-01-13 10:57) [2]

первую строку выводит нормально, а во второй
WriteLn(e,<client_data_ext><birth_place>" + Table1.Fields[Table1.FieldCount - 1].AsString + "</birth_place></client_data_ext>)
выводит полную чушь, вместо содержимого последней ячейки строки

---

← →
Александр Иванов ©   (2005-01-13 10:58) [3]

А что есть последняя ячейка строки?
Нужно просто посмотреть все это в отладчике, что куда выводит.

---

← →
sniknik ©   (2005-01-13 11:11) [4]

> Str:= Str + ""<?xml version=""1.0"" encoding=""utf-16""?>";
это не то же самое что clientdataset/adodataset по savetofile записывает? если так то это не txt.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c