powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Работа с txt файлом
25 сообщений из 28, страница 1 из 2
Работа с txt файлом
    #38000079
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня есть исходный файл в формате txt (прикрепила ниже фрагмент для примера).
Мне необходимо создать dbf-файл следующего вида:


_____ NumAccRec _____________ Fname+Lname+Mname ________________ Summa ______ Kod ________ SNILS _______ Odkod
12345678912345678912______ИВАНОВА ИРИНА ИВАНОВНА_____________10100______________002-002-002 02 _____1234
98765432198765432198______МИХАЙЛОВА МАРИЯ МИХАЙЛОВНА_________1234_______________004-004-004 04 _____1234

поле Kod в исходной таблице нет, оно по улолчанию пустое .
поле Odkod также в исходном нет, но поумолчанию 1234


Помогите какие команды использовать для всего этого перевода.

Заранее спасибо всем.

P.S. Строго не судите за незнание наверно основ FP.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000154
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsx,

Читайте про xmltocursor()
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000161
zaq12wsx,

Вариантов несколько:
1. Создать таблицу нужной структуры и заполнить ее при помощи Append from <filename> delimited with Blank/Tab/<delimiter>
2. Ту же самую функциональность реализовать при помощи: fopen() + fread()/fgets() + fclose()
3. Сделать APPEND MEMO во временную таблицу (зальем файл целиком в мемо-поле), а затем построчно разбирать и помещать в "постоянную" таблицу....
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000167
IgorNGzaq12wsx,

Читайте про xmltocursor()
ТОчно! про это я даже и не вспомнил.... :-(((
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000238
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Станислав С...кийIgorNGzaq12wsx,

Читайте про xmltocursor()
ТОчно! про это я даже и не вспомнил.... :-(((

Дык достаточно было посмотреть на содержимое файла, чтобы понять, что это не текстовый файл, а xml
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000466
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
хотела прочитать про функцию XMLTOCURSOR, но в моей справке нет, не кинете ли мне ссылку на новую справку.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000503
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsx,

тут
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000582
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
правильно ли я поняла:
xmltocursor("указываю путь к моему icxodn.txtl","даю имя курсору",???)

а вот с цифрами не понимаю, help
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38000654
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsx,

13307560
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38002501
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
прошу конкретики.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38002585
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsxУ меня есть исходный файл в формате txt (прикрепила ниже фрагмент для примера).
Мне необходимо создать dbf-файл следующего вида:

Даже в этом форуме неоднократно выкладывалась библиотека St.Denis. Там, наряду со многим прочим, была функция для разборки текстового файла и изготовления из этого dbf-таблицы. Работает очень быстро, т.к. написано на сях.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38003768
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
прочла ветку Дима1991 по аналогичному вопросу.
Аналогично прописала

CREATE table c:\123\pust(;
N I,;
Date d,;
Author C(20),;
SumAll I,;
INN I,;
KPP I,;
BIK I,;
BankName C(50),;
PlaceBank C(30),;
AccCount I,;
CorrCount I,;
BranchBank I,;
FilBank I,;
Type C(8),;
Vip C(8),;
ID I,;
FNameD C(20),;
LNameD C(20),;
MNameD C(20),;
SNILSD I,;
FName C(20),;
LName C(20),;
MName C(20),;
Dborn D,;
Sex C(8),;
SNILS I,;
INN_PP I,;
Citizen I,;
Status I,;
ForeignAdr I,;
ZipCode I,;
Region I,;
District I,;
City I,;
Settlement I,;
Street C(8),;
House I,;
Case I,;
Flat I,;
CodDocum I,;
Series I,;
Number I,;
Date2 D,;
Org I,;
Summa N(12,2),;
NumAccRec C(23),;
PTAddres I,;
Source C(8));

XMLTOCURSOR("C:\123\ASGN_BANK_16102012_001364.XML", "pust", 512);
COPY TO "C:\123\pust"

НО УВЫ, таблица создается, а вот данные туда не заносятся, точнее получается черт знает что.
В чем загвоздка?
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38003790
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsx,

а вот данные туда не заносятся, точнее получается черт знает что.

А нам отсюда видно?
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38003798
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsxпрочла ветку Дима1991 по аналогичному вопросу.
Аналогично прописала

CREATE table c:\123\pust(;
N I,;
Date d,;
Author C(20),;
SumAll I,;
INN I,;
KPP I,;
BIK I,;
BankName C(50),;
PlaceBank C(30),;
AccCount I,;
CorrCount I,;
BranchBank I,;
FilBank I,;
Type C(8),;
Vip C(8),;
ID I,;
FNameD C(20),;
LNameD C(20),;
MNameD C(20),;
SNILSD I,;
FName C(20),;
LName C(20),;
MName C(20),;
Dborn D,;
Sex C(8),;
SNILS I,;
INN_PP I,;
Citizen I,;
Status I,;
ForeignAdr I,;
ZipCode I,;
Region I,;
District I,;
City I,;
Settlement I,;
Street C(8),;
House I,;
Case I,;
Flat I,;
CodDocum I,;
Series I,;
Number I,;
Date2 D,;
Org I,;
Summa N(12,2),;
NumAccRec C(23),;
PTAddres I,;
Source C(8));

XMLTOCURSOR("C:\123\ASGN_BANK_16102012_001364.XML", "pust", 512);
COPY TO "C:\123\pust"

НО УВЫ, таблица создается, а вот данные туда не заносятся, точнее получается черт знает что.
В чем загвоздка?

А Вы знаете назначение символа ";" в коде?
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38003908
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
IgorNG,

не пойму ваш вопрос "А нам отсюда видно? "?!
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38003958
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsxIgorNG,

не пойму ваш вопрос "А нам отсюда видно? "?!А нам отсюда видно, что именно в курсоре получается и почему оно "черт знает что"?
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38003972
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglir,

мы с вами на разных языках видимо говорим.

что от меня нужно - исходный файл или что?
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38004083
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsxпрочла ветку Дима1991 по аналогичному вопросу.
Аналогично прописала

Source C(8));

XMLTOCURSOR("C:\123\ASGN_BANK_16102012_001364.XML", "pust", 512);

НО УВЫ, таблица создается, а вот данные туда не заносятся, точнее получается черт знает что.
В чем загвоздка?Как минимум том, что знак ";" ставите и к месту, и не к месту.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38004213
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Sergey Sizov,

согласна со знаком, я убрала после
Source C(8));
XMLTOCURSOR("C:\123\ASGN_BANK_16102012_001364.XML", "pust", 512);

но в итоге проблема остается
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38005187
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IgorNG, оказывается, "черт знает что" означало, что без 8192 получается такой курсор
infdeadpersonaldataaddressidentitycardpaymentИВАНОВ ИВАН ИВАНОВИЧ 001-001-001 01ИВАНОВА ИРИНА ИВАНОВНА 1977-01-01 Ж 002-002-002 02 110100 12345678912345678912 СПНМИХАЙЛОВ МИХАИЛ МИХАЙЛОВИЧ 003-003-003 03МИХАЙЛОВА МАРИЯ МИХАЙЛОВНА 2009-10-12 Ж 004-004-004 04 11234 98765432198765432198 СПН, а с 8192 получается курсор, заполненный "пустыми" записями.
Там 2-уровневая вложенность тегов. Верхний уровень - см. выше, а в него уже вложены теги, которые у ТС в созданной таблице.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38005297
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglirIgorNG, оказывается, "черт знает что" означало, что без 8192 получается такой курсор
infdeadtpersonaldatataddresstidentitycardtpaymentИВАНОВ ИВАН ИВАНОВИЧ 001-001-001 01tИВАНОВА ИРИНА ИВАНОВНА 1977-01-01 Ж 002-002-002 02 1ttt10100 12345678912345678912 СПНМИХАЙЛОВ МИХАИЛ МИХАЙЛОВИЧ 003-003-003 03tМИХАЙЛОВА МАРИЯ МИХАЙЛОВНА 2009-10-12 Ж 004-004-004 04 1ttt1234 98765432198765432198 СПН, а с 8192 получается курсор, заполненный "пустыми" записями.
Там 2-уровневая вложенность тегов. Верхний уровень - см. выше, а в него уже вложены теги, которые у ТС в созданной таблице.

простите, но я не понимаю, что делать с этой 2-х уровневой структурой. И как расшифровывается ТС.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38005366
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>простите, но я не понимаю, что делать с этой 2-х уровневой структурой.
Я тоже. Разве что прогонять файл через обработчик, вырезающий все промежуточные теги (InfDead,PersonalData,Address,IdentityCard,Payment), и результат скармливать xmltocursor-у, в таком виде он данные уже принимает. В принципе если файлы маленькие, сгодится даже банальный filetostr+strtran. Если большие, придётся чуть побольше писать ручками.
Впрочем, с хмл вплотную не работал, может, есть решение и попроще.
>И как расшифровывается ТС.
TopicStarter - автор темы.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38005391
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglir, спасибо.

Кто работал с 2-х уровневой структурой ОТЗОВИТЕСЬ!
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38005432
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zaq12wsxtanglir, спасибо.

Кто работал с 2-х уровневой структурой ОТЗОВИТЕСЬ!И как Вы больше одного уровня собрались в один курсор впихивать? А XMLtoCursor только это и может делать.
Используйте XMLAdapter. Но это еще и потребует создания схемы данных XSD. Примеры много раз показывались на фоксклубе.
...
Рейтинг: 0 / 0
Работа с txt файлом
    #38008458
zaq12wsx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Жаль, что желающих помочь так и не нашлось!
...
Рейтинг: 0 / 0
25 сообщений из 28, страница 1 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Работа с txt файлом
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]