Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с занисением выборки в файл / 13 сообщений из 13, страница 1 из 1
10.01.2005, 13:54
    #32857478
Akarak2
Akarak2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
file1.prg

USE car IN 0
select idcar + Alltrim(str(crug)) from car
COPY TO ('car.txt') DELIMITED

Содержимое файла car.txt
"300466060044101"
"575317060044101"
"061276060044102"
"345107060044103"

Как сделать
300466060044101
575317060044101
061276060044102
345107060044103

Как отключить выскакивание результата запроса?
И чтобы не выскакивало сообщение что такой файл сущетвует и хотите ли перезаписать.
Надо чтобы молча менялся старый файл на новый при выполнеии file1.prg
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 14:21
    #32857526
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
И чтобы не выскакивало сообщение что такой файл сущетвует и хотите ли перезаписать.
set safety off
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 14:24
    #32857536
Akarak2
Akarak2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
Забыл спровить как дописать результаты запроса в конец существуюющего файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 14:25
    #32857541
kdanylo
kdanylo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
Как отключить выскакивание результата запроса?

select idcar + Alltrim(str(crug)) from car INTO CURSOR cCar
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 14:28
    #32857548
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
set safety off USE car IN 0
select idcar + Alltrim(str(crug)) from car
COPY TO ('car.txt') type sdf
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 14:32
    #32857555
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
Забыл спровить как дописать результаты запроса в конец существуюющего файла
это вам мил человек прийдется открывать файл функциями низкого уровня и дописывать в цикле или через одбс драйвера
хотя может кто лучше что подскажет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 15:11
    #32857618
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
set safety off
create cursor w1 (f1 c(50))
select f1
append from car.txt type sdf
select f1 from w1 union all select padr(idcar + Alltrim(str(crug)),50) as w1 from car;
into curs qq1
copy to ('car.txt') type sdf
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 15:12
    #32857621
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
пардон
set safety off
create cursor w1 (f1 c(50))
select w1
append from car.txt type sdf
select f1 from w1 union all select padr(idcar + Alltrim(str(crug)),50) as w1 from car;
into curs qq1
copy to ('car.txt') type sdf
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2005, 17:57
    #32857907
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
Akarak2Содержимое файла car.txt
"300466060044101"
"575317060044101"
"061276060044102"
"345107060044103"

Как сделать
300466060044101
575317060044101
061276060044102
345107060044103
В данном случае кавычки - это ограничитель символьной строки. Они показывают где начало и конец одного символьного поля. Совсем выбросить символ-ограничитель не получиться. Однако его можно заменить на другой символ. Например, на символ пробела:

Код: plaintext
COPY TO car.txt TYPE DELIMITED WITH " "
Или использовать другие форматы файлов, например:

Код: plaintext
COPY TO car.txt TYPE SDF
При таком формате под каждое поле отводится фиксированное количество байт (символов). В твоем случае вместо кавычек будет ряд завершающих пробелов.

Akarak2Забыл спровить как дописать результаты запроса в конец существуюющего файла
Какая версия FoxPro?

"Штатных" средств для "склеивания" файлов в FoxPro нет. Но можно прокачать текстовый файл через дополнительные объекты FoxPro. Например, через мемо-поля (APPEND MEMO, COPY MEMO) или через переменную памяти (FileToStr(), StrToFile()). В которых, собственно, и сделать "склеивание". Кстати, в них же можно избавиться от "лишних" символов.

Кроме того, если количество записей не велико, то рассмотри вариант сканирования таблицы с прямой записью в текстовый файл: SCAN...ENSCAN, TEXT...ENDTEXT.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2005, 10:19
    #32860426
Akarak2
Akarak2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2005, 13:45
    #32861100
w3d
w3d
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
автор select idcar + Alltrim(str(crug)) from car INTO CURSOR cCar

А у меня на подобную конструкцию пишет, что cCar не найден. ????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2005, 14:21
    #32861178
karly™
karly™
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
Для добавления текста в имеющийся файл можно использовать
Set Printer to FileName Additive

либо
Set TextMerge to FileName Additive

Второй вариант на мой взгляд предпочтительнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2005, 15:27
    #32861409
Akarak2
Akarak2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с занисением выборки в файл
Итоговый вариант, что хотел то и получил

select car

r1_1=RECCOUNT()&& кол-во строк в таблице car
r1=STR(r1_1,3)
f=FCREATE('car.txt',0)
FPUTS(f,'UBC')
FPUTS(f,CHRTRAN(STR(23+(r1_1*14),5),' ','0'))
FPUTS(f,'23')
FPUTS(f,'14')
FPUTS(f,CHRTRAN(r1,' ','0')) && кол-во записей в таблице

SCAN FOR car != 'QWE'&&Перемещает указатель записи по таблице, выбранной в данный момент, 'QWE' для того чтобы были выбраны все записи
FPUTS(f,car)
ENDSCAN
FCLOSE (f)

Результат:

UBC
00079
23
14
004
300466
575317
061276
345107
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с занисением выборки в файл / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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