Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из txt в dbf / 9 сообщений из 9, страница 1 из 1
07.08.2012, 08:03
    #37906663
Валерий Фомин
Валерий Фомин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Помогите! Излазил весь форум, так и не смог разобраться!
Есть 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:08
    #37906664
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Валерий ФоминcFraza = ??? = fread до тех пор, пока не найдём chr(10)+chr(13)
А если очччень лениво, и файл маленький, и скорость не важна, то можно вообще через filetostr+getwordcount+getwordnum
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2012, 08:39
    #37906683
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Код: sql
1.
cFraza = fgets(gnErrFile)


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

Твой код занесет только первую строку, если надо файл целиком, то FileToStr()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2012, 08:42
    #37906685
Jonny540
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Валерий Фомин,
А если примерно так?
Код: 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:53
    #37906696
Jonny540
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Sorry, забыл команду добавить:
Код: plsql
1.
2.
APPEND BLANK
APPEND MEMO FROM (gnErrFile) AS <кодовая страница>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2012, 09:07
    #37906711
Валерий Фомин
Валерий Фомин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Пробывал вот так, но не понять где подправить, чтобы брал следующие строки 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, 10:51
    #37906873
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Валерий Фоминно не понять где подправить
Валерий Фомин
Код: sql
1.
2.
nStr=AT(crlf,cFileTxt,1)
cStr=substr(cFileTxt,1,nStr-1)


PS. use [ src ], Luke!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2012, 11:24
    #37906956
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
=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, 12:16
    #37907080
Валерий Фомин
Валерий Фомин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из txt в dbf
Спасибо! Все получилось! Огромное спасибо всем форумчанам кто откликнулся!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из txt в dbf / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 145ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1583527]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 13ms
total:  145ms
x
x
Закрыть


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