|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Экспорт из DBF в текстовый файл в win-кодировке
Нужно эксортировать все поля из таблицы в тестовый файл чтобы они выглядели так: ФИО;ГОРОД,УЛИЦА,ДОМ,КВАРТИРА;СЧЁТ;САЛЬДО;ПОДУСЛУГА ;ДАТА1;ДАТА2;НД:НАЧИСЛЕНИЕ:
|
#2
|
||||
|
||||
Посмотри примерчик, там чтение из dbf правда напрямую, мне как-то надо было, я писал небольшой модуль, так как затычку. Перекодировка из DOS в WIN тоже присутствует.
|
#3
|
|||
|
|||
Спасибо за ответ, у меня еще есть вопрос?
В таблице 7000 записей, 3 колонки нужно в колонке adress которая выглядит примерно так: ул.Советская 3-14, отображалось в EDITе вот в таком виде: Советская,3,14,. |
#4
|
||||
|
||||
Замени все символы (тире, ковычки, пробелы и пр.) на запятые. Затем группы по две запятые подряд ",," заменять на одну запятую до тез пор, пока группы по две запятые присутствуют. Затем вырезать из строки сокращения: ул., пер., пр. и прочее.
|
#5
|
|||
|
|||
Не могу сообразить где изменить вот мой код программы подскажи как переделать
Код:
procedure TDataModule2.DataSource1DataChange(Sender: TObject; Field: TField); begin if form1.Edit1.Text<>'Edit1' then form1.Edit1.Text:=DataSource1.DataSet.Fields[1].AsString+';'+form1.edit2.text+';'+ // fio + gorod DataSource1.DataSet.FieldList.Fields[0].AsString',,'+ //adres DataSource1.DataSet.Fields[0].AsString+';'; // nomer query1.SQL.Clear; query1.SQL.Add('select dolg from opl where nom='+DataSource1.DataSet.Fields[0].AsString); query1.Active:=true; form1.Edit1.Text:=form1.Edit1.Text+datasource3.DataSet.Fields[0].AsString+ //saldo (dolg) ';'+form1.edit3.text; //podusluga query1.SQL.Clear; query1.SQL.Add('select datvip from opl where nom='+DataSource1.DataSet.Fields[0].AsString); query1.Active:=true; form1.Edit1.Text:=form1.Edit1.Text+';'+datasource3.DataSet.Fields[0].AsString; // data query1.SQL.Clear; query1.SQL.Add('select datvip from opl where nom='+DataSource1.DataSet.Fields[0].AsString); query1.Active:=true; form1.Edit1.Text:=form1.Edit1.Text+';'+datasource3.DataSet.Fields[0].AsString; // ещё дата :) form1.edit1.text:=form1.edit1.text+';'+form1.edit4.text; // НД query1.SQL.Clear; query1.SQL.Add('select s_opl from opl where nom='+DataSource1.DataSet.Fields[0].AsString); query1.Active:=true; form1.Edit1.Text:=form1.Edit1.Text+':'+datasource3.DataSet.Fields[0].AsString+':'; // начисление end; end. ЗЫЖ Буду удалять сообщения несчадно!!! |
#6
|
||||
|
||||
Нет у меня времени, да и желания если честно, разбираться в коде приведенном. Могу дать такие советы:
1. Собери для начала свой адрес из разных полей в одну строковую переменную с НУЖНЫМ тебе разделителем 2. Замени не нужные символы на пустоту (см. функцию StringReplace) 3. Замени не нужные сокращения на пустоту (та же функция) ЗЫЖ А в целом, если такое приходится делать - база данных спроектирована не верно. Например поле "Улица" - поле не должно содержать НИЧЕГО КРОМЕ названия улицы, а дабы юзверь не смог туда ничего кроме названия ввести - значение должно выбираться из справочника улиц. С остальными - по аналогии. |