Из txt в dbf / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из txt в dbf

9 сообщений из 9, страница 1 из 1

Из txt в dbf

#37906663

Валерий Фомин

Гость

Помогите! Излазил весь форум, так и не смог разобраться!
Есть txt-файл из которого надо занести построчно данные в MEMO поле dbf-файла.
Вроде как понимаю, но не могу прочитать данные построчно из txt-файла.

Вот что накропал:

gnErrFile = 'E:\otlup.txt'
CREATE CURSOR othet (stroka M)
IF FILE(gnErrFile)
gnErrFile = FOPEN(gnErrFile,12)
cFraza = ???
select othet
APPEND BLANK
replace stroka with cFraza

FCLOSE(gnErrFile)
ENDIF

...

Рейтинг:

0 / 0

07.08.2012, 08:03

| Ответить | Цитировать | Написать

Из txt в dbf

#37906664

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Валерий ФоминcFraza = ??? = fread до тех пор, пока не найдём chr(10)+chr(13)
А если очччень лениво, и файл маленький, и скорость не важна, то можно вообще через filetostr+getwordcount+getwordnum

...

Рейтинг:

0 / 0

07.08.2012, 08:08

| Ответить | Цитировать | Написать

Из txt в dbf

#37906683

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Код: sql

cFraza = fgets(gnErrFile)

fgets() читает одну строку из файла

Твой код занесет только первую строку, если надо файл целиком, то FileToStr()

...

Рейтинг:

0 / 0

07.08.2012, 08:39

| Ответить | Цитировать | Написать

Из txt в dbf

#37906685

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

Валерий Фомин,
А если примерно так?

Код: plsql

1.
2.
3.
4.
5.

gnErrFile = 'E:\otlup.txt'
CREATE CURSOR othet (stroka M)
IF FILE(gnErrFile)
APPEND MEMO FROM (gnErrFile) AS <кодовая страница>
ENDIF

...

Рейтинг:

0 / 0

07.08.2012, 08:42

| Ответить | Цитировать | Написать

Из txt в dbf

#37906696

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

Sorry, забыл команду добавить:

Код: plsql

1.
2.

APPEND BLANK
APPEND MEMO FROM (gnErrFile) AS <кодовая страница>

...

Рейтинг:

0 / 0

07.08.2012, 08:53

| Ответить | Цитировать | Написать

Из txt в dbf

#37906711

Валерий Фомин

Гость

Пробывал вот так, но не понять где подправить, чтобы брал следующие строки txt-файла и остановился:

cFileTxt=filetostr('E:\otlup.txt')
CREATE CURSOR temp (zap M)
crlf=chr(13)+chr(10)
do while .T.
nStr=AT(crlf,cFileTxt,1)
cStr=substr(cFileTxt,1,nStr-1)
INSERT INTO temp VALUES(cStr)
skip
enddo

...

Рейтинг:

0 / 0

07.08.2012, 09:07

| Ответить | Цитировать | Написать

Из txt в dbf

#37906873

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Валерий Фоминно не понять где подправить
Валерий Фомин

Код: sql

1.
2.

nStr=AT(crlf,cFileTxt,1)
cStr=substr(cFileTxt,1,nStr-1)

PS. use [ src ], Luke!

...

Рейтинг:

0 / 0

07.08.2012, 10:51

| Ответить | Цитировать | Написать

Из txt в dbf

#37906956

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

=ALINES() - формирует массив, где каждый элемент массива - это отдельная строка. Далее остается просто просканировать этот массив

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.

gnErrFile = 'E:\otlup.txt'

Local laLines(1), lnRows, lnI
lnRows = ALINES(laLines, FileToStr(gnErrFile))
for lnI = 1 to lnRows
    * Очередная строка - это laLines[m.lnI]
    ?laLines[m.lnI]
endfor

...

Рейтинг:

0 / 0

07.08.2012, 11:24

| Ответить | Цитировать | Написать

Из txt в dbf

#37907080

Валерий Фомин

Гость

Спасибо! Все получилось! Огромное спасибо всем форумчанам кто откликнулся!

...

Рейтинг:

0 / 0

07.08.2012, 12:16

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из txt в dbf

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=37906873&tid=1583527]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	50ms
get topic data:	9ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	16ms

total:	154ms