Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / помогите - copy to txt / 12 сообщений из 12, страница 1 из 1
03.04.2009, 20:15
    #35911647
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
доброго всем времени суток!
ситуация такая.
Есть dbf, все поля текстовые.
делаю
COPY TO txt1.txt TYPE DELIMITED WITH TAB as 866

Всебы ничего, но текстовые поля в тектовике заключены в двойные кавычки. А нужно без них.
"123456" "01.01.2009" "ТЕКСТ"
Кто нить может что посоветует? Как избавиться от кавычек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2009, 22:52
    #35911751
alextashk
alextashk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
Код: plaintext
1.
2.
3.
4.
5.
lnOk = STRTOFILE("", "txt1.txt")
SCAN
  WAIT WINDOW STR(RECNO()) NOWAIT
  lnOk = STRTOFILE(table.kod+" " + DTOC(table.date) + CHR( 10 ) + CHR( 13 ), "txt1.txt",  1 )
ENDSCAN
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2009, 23:49
    #35911784
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
Спасибо!
Пока дожидался, придумал такое:

use table
go top
gnFile=FCREATE('txt1.txt')
FOR I=1 TO RECCOUNT()
A=KOD
B=DTOC(DATA)
C=TXT
=FPUTS(gnFile,A+CHR(9)+B+CHR(9)+C)
SKIP
ENDFOR
=FCLOSE(gnFile)

Но ваш вариант тоже хорош. кода меньше, а это хорошо.
В проге скорее всего ваш вариант использую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2009, 00:13
    #35911802
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
Спасибо!
Пока дожидался, придумал такое:

use table
go top
gnFile=FCREATE('txt1.txt')
FOR I=1 TO RECCOUNT()
A=KOD
B=DTOC(DATA)
C=TXT
=FPUTS(gnFile,A+CHR(9)+B+CHR(9)+C)
SKIP
ENDFOR
=FCLOSE(gnFile)

Но ваш вариант тоже хорош. кода меньше, а это хорошо.
В проге скорее всего ваш вариант использую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2009, 00:34
    #35911824
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
Код: plaintext
COPY TO txt1.txt TYPE SDF

Формат SDF - это выделение под каждое поле фиксированное количество символов. В этом случае кавычки не ставятся, но будут "лишние" пробелы

Кроме того, можно воспользоваться текстовыми скобками TEXT...ENDTEXT примерно так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
SET TALK OFF
SET CONSOLE OFF
SET TEXTMERGE ON     
STORE FCREATE('txt1.txt') TO _TEXT     

select MyTab
SCAN
TEXT
<<MyTab.kod>> <<MyTab.date>> <<MyTab.word>>
ENDTEXT
ENDSCAN

SET TEXTMERGE OFF
Modify File txt1.txt
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
06.06.2010, 17:43
    #36671843
Mister09
Mister09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
У меня такой вопрос есть БД на фоксе (.dbf .fpt ) надо перегнать в тхт. А как это сделать я не знаю может кто-нибудь поможет? В фоксе я полный ноль. Вот этот код сможет перегнать?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2010, 21:23
    #36671975
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
А если поднять глазки на на один пост выше? ВладимирМ все расписал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2010, 00:58
    #36672142
piva
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
ВладимирМ ...
Черт, Володя, на фоксклабе обсуждали уже кажись именно такой случай. Был где-то так

Код: plaintext
1.
Copy To c:\xxx.txt DELIMITED with "" with CHARACTER tab as  866

В мануале же расписано вроде
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2010, 03:52
    #36672229
Mister09
Mister09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
piva,

Итак что делать? куда этот код вставлять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2010, 03:57
    #36672230
Mister09
Mister09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
итак ввёл вот этот код:

Copy To c:\xxx.txt DELIMITED with "" with CHARACTER tab as 866
в ответ пишет FIle is in use by another user.
Как это понять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2010, 04:03
    #36672232
Mister09
Mister09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
А всё работает но содержание ячеек не переводит только то что на поверхности. а что внутри каждой ячейки не хочет. как сделать так чтоб содержание ячеек переводить в .txt
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2010, 04:42
    #36672236
Mister09
Mister09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите - copy to txt
Mister09,

Решил сделать скан вот смотрите при переходе в txt теряется одна колонка с текстовым наполнением. А как сделать чтоб содержание этой колонки тоже присутствовало в txt?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / помогите - copy to txt / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 487ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1585218]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 358ms
total:  487ms
x
x
Закрыть


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