ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / помогите - copy to txt
12 сообщений из 12, страница 1 из 1
помогите - copy to txt
    #35911647
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
доброго всем времени суток!
ситуация такая.
Есть dbf, все поля текстовые.
делаю
COPY TO txt1.txt TYPE DELIMITED WITH TAB as 866

Всебы ничего, но текстовые поля в тектовике заключены в двойные кавычки. А нужно без них.
"123456" "01.01.2009" "ТЕКСТ"
Кто нить может что посоветует? Как избавиться от кавычек.
...
Рейтинг: 0 / 0
03.04.2009, 20:15
| Ответить | Цитировать | Написать  
помогите - copy to txt
    #35911751
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alextashk
Участник
Код: 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, 22:52
| Ответить | Цитировать | Написать  
помогите - copy to txt
    #35911784
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Спасибо!
Пока дожидался, придумал такое:

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
03.04.2009, 23:49
| Ответить | Цитировать | Написать  
помогите - copy to txt
    #35911802
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Спасибо!
Пока дожидался, придумал такое:

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
| Ответить | Цитировать | Написать  
помогите - copy to txt
    #35911824
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Код: 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
04.04.2009, 00:34
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
помогите - copy to txt
    #36671843
Mister09
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mister09
Гость
У меня такой вопрос есть БД на фоксе (.dbf .fpt ) надо перегнать в тхт. А как это сделать я не знаю может кто-нибудь поможет? В фоксе я полный ноль. Вот этот код сможет перегнать?
Спасибо!
...
Рейтинг: 0 / 0
06.06.2010, 17:43
| Ответить | Цитировать | Написать  
помогите - copy to txt
    #36671975
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
А если поднять глазки на на один пост выше? ВладимирМ все расписал.
...
Рейтинг: 0 / 0
06.06.2010, 21:23
| Ответить | Цитировать | Написать  
помогите - copy to txt
    #36672142
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
ВладимирМ ...
Черт, Володя, на фоксклабе обсуждали уже кажись именно такой случай. Был где-то так

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

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

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

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

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


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