чтение текстовых файлов из директории??? / FoxPro, Visual FoxPro

ReSQL.ru

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

Гость

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

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

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

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

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

38 сообщений из 38, показаны все 2 страниц

все

чтение текстовых файлов из директории???

#38402828

grommilitary

Гость

Товарищи нужна помощь! есть директория в которую падают файлы в текстовом виде с сервера.Задача-считать и записать их содержимое в таблицу.Буду очень благодарен за помощь

...

Рейтинг:

0 / 0

20.09.2013, 14:44

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

чтение текстовых файлов из директории???

#38402840

Dima T

Участник

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

Рейтинг: 0 / 0

ADIR()

...

Рейтинг:

0 / 0

20.09.2013, 14:57

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

чтение текстовых файлов из директории???

#38402876

grommilitary

Гость

сразу отпишу что с одним файлом все понятно,как сделать для нескольких?

...

Рейтинг:

0 / 0

20.09.2013, 15:24

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

чтение текстовых файлов из директории???

#38402889

Дед Евгений

Участник

Откуда: Московская область

Сообщения: 119

Рейтинг: 0 / 0

Ставь в цикл по FOR перебор файлов по функции ALEN() с массива ADIR() в директории, и поочередно окрывай и читай содержимое.

...

Рейтинг:

0 / 0

20.09.2013, 15:36

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

чтение текстовых файлов из директории???

#38403019

grommilitary

Гость

буду пробовать спасиб

...

Рейтинг:

0 / 0

20.09.2013, 16:47

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

чтение текстовых файлов из директории???

#38403023

grommilitary

Гость

просто рассматртвался уж очень замудреный варитант через запись содержимого дериктории в переменную,ее чтение занесение в массив и... вот тут я понял что нид хелп

...

Рейтинг:

0 / 0

20.09.2013, 16:50

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

чтение текстовых файлов из директории???

#38403124

grommilitary

Гость

буду фантастически благодарен, если кто нить скинет кусочек кода

...

Рейтинг:

0 / 0

20.09.2013, 18:18

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

чтение текстовых файлов из директории???

#38403150

otorva1

Гость

grommilitary,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.

PROCEDURE del_dir
PARAMETER m.dflt_dir

  PRIVATE samp_str1, samp_str2, samp_str3, I, N, S, cnt, h, fnm
  samp_str1 = 'Выписка'
  samp_str2 = 'Дата:'
  samp_str3 = 'Время:'

  N = adir(dir_arr, dflt_dir + '*.*')
  IF N = 0
    = write_log(m.dflt_dir + ' - нет файлов для удаления')
    RETURN
  ENDIF

  cnt = 0
  FOR I = 1 TO N
    fnm = m.dflt_dir + dir_arr[I,1]
  
    * чтобы не удалить лишнего проверим, похож ли файл на банковскую выписку
    h = fopen(m.fnm)
    IF h < 0
      LOOP
    ENDIF
    S = ''
    DO WHILE empty(S) and not feof(h)
      S = fgets(h)
    ENDDO
    = fclose(h)
    IF not (m.samp_str1 $ S and m.samp_str2 $ S and m.samp_str3 $ S)
      LOOP
    ENDIF
  
    ERASE (m.fnm)
    cnt = cnt + 1
  ENDFOR

...

Рейтинг:

0 / 0

20.09.2013, 18:40

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

чтение текстовых файлов из директории???

#38403166

otorva1

Гость

grommilitary,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.

PROCEDURE del_dir
PARAMETER m.dflt_dir

  PRIVATE samp_str1, samp_str2, samp_str3, I, N, S, cnt, h, fnm
  samp_str1 = 'Выписка'
  samp_str2 = 'Дата:'
  samp_str3 = 'Время:'

  N = adir(dir_arr, dflt_dir + '*.*')
  IF N = 0
    = write_log(m.dflt_dir + ' - нет файлов для удаления')
    RETURN
  ENDIF

  cnt = 0
  FOR I = 1 TO N
    fnm = m.dflt_dir + dir_arr[I,1]
  
    * чтобы не удалить лишнего проверим, похож ли файл на банковскую выписку
    h = fopen(m.fnm)
    IF h < 0
      LOOP
    ENDIF
    S = ''
    DO WHILE empty(S) and not feof(h)
      S = fgets(h)
    ENDDO
    = fclose(h)
    IF not (m.samp_str1 $ S and m.samp_str2 $ S and m.samp_str3 $ S)
      LOOP
    ENDIF
  
    ERASE (m.fnm)
    cnt = cnt + 1
  ENDFOR

...

Рейтинг:

0 / 0

20.09.2013, 18:51

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

чтение текстовых файлов из директории???

#38403189

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

otorva1,

Вы в коде о чём говорите?
Причём - не в собственном коде...

...

Рейтинг:

0 / 0

20.09.2013, 19:35

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

чтение текстовых файлов из директории???

#38403455

grommilitary

Гость

окончательно запутали....

...

Рейтинг:

0 / 0

21.09.2013, 13:04

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

чтение текстовых файлов из директории???

#38404497

Дед Евгений

Участник

Откуда: Московская область

Сообщения: 119

Рейтинг: 0 / 0

Да вроде все просто. Вот мой вариант, который я использовал в одной из программ:

PROCEDURE LoadText
*/ создаем список файлов из Каталога <Папка с файлами> в массив AraySborTxt, количество найденых файлов
*/ записывается в переменную nIndAray
nIndAray = ADIR(AraySborTxt,<Папка с файлами>+"*.txt" )
*/ Поочередно открываем файлы из массива на низком уровне командой FOPEN()
FOR nFiltxt = 1 TO nIndAray
IF FILE(<Папка с файлами>+AraySborTxt[nFiltxt,1])
nStrokFile = FOPEN(<Папка с файлами>+AraySborTxt[nFiltxt,1],0)
IF nStrokFile >= 0
*/ выполняется извлечение строки данных из текстового файла в переменную cVarTxt...
*/ Если многострочный файл, то выполняем команду в цикле, где идет запись в переменную посточно
cVarTxt = FGETS(nStrokFile)
IF FEOF(nStrokFile)
EXIT
ENDIF
*/Закрываем текстовый файл
= FCLOSE(nStrokFile)
ELSE
*/Если не смогли открыть файл, открываем следующий
MESSAGEBOX("Не смог открыть файл: "+<Папка с файлами> ;
+AraySborTxt[nFiltxt,1]),16,"Ошибка")
LOOP
ENDIF
ENDIF
ENDFOR
ENDPROC

...

Рейтинг:

0 / 0

23.09.2013, 11:59

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

чтение текстовых файлов из директории???

#38404908

Dima T

Участник

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

Рейтинг: 0 / 0

grommilitaryокончательно запутали....
Чем именно? Открываешь хэлп на ADIR() и читаешь. Там пример есть, допиливаешь его под свои нужды. Как-то так:

Код: sql

1.
2.
3.
4.
5.

lcPath = "c:\MyFolder\"
FOR i = 1 TO adir(laF, lcPath + '*.txt')  && Перебор файлов *.txt в папке lcPath
   lcFile = lcPath + laF[i, 1]
   ? lcFile  && Это имя файла с путем. Замени на свою обработку
ENDFOR

...

Рейтинг:

0 / 0

23.09.2013, 16:28

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

чтение текстовых файлов из директории???

#38419312

grommilitary

Гость

Спасибо за помощь друзья! приехал из отпуска, сажусь разбираться))

...

Рейтинг:

0 / 0

07.10.2013, 18:06

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

чтение текстовых файлов из директории???

#38419395

Rostislav D. Kudryashov

Участник

Сообщения: 239

Рейтинг: 0 / 0

ВСЕМ СОВЕТЧИКАМ. А почему вы решили, что вопрошатель нуждается в составлении списка файлов? Может этот список у него уже есть. Может надо определять не список файлов, а факт их появления. А может, не факт появления, а момент времени обновления этих файлов? А может не просто обновления, а размер добавления данных в эти файлы?
Вопрошатель может и знает, что ему нужно, но считает излишним объяснять, потому что верит в телепатию.
А ведь есть ещё такие подробности, как структура текстовых файлов и её соответствие таблицам сохранения. Каждому текстовому файлу своя таблица или одна, или несколько, или ещё как? Надо ли поступающие данные накапливать или замещать старые новыми?
Почему-то советчики так торопятся показать свои знания, что готовы пустить их прямо по ветру.

А ещё есть такая подробность, как периодичность и частота появления новых данных. Может нужен таймер слежения, работающий круглосуточно. И с этим связана такая проблема - целостность данных, чтоб не запустить чтение данных во время их поступления в текстовый файл.

...

Рейтинг:

0 / 0

07.10.2013, 19:33

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

чтение текстовых файлов из директории???

#38419470

grommilitary

Гость

Необходимо содержимое каждого нового текстового файла (или нескольких файлов), которые скидываются в директорию считать и занести в таблицу, при этом содержимое каждого файла дописывается в конец таблицы. Содержимое файла представляет собой строки, разделителем для помещения в поле таблицы будет символ отката каретки. Также необходимо поместить в эту же таблицу название текстового файла из которого происходит чтение. Периодичность появления файлов существует, но это отдельно нужно сохранять из почтовой программы в директорию, думаю проще ручками скинуть в директорию и оттуда уже считать файлы кучей, хотя читал, что можно и подсасывать сразу из почтовой проги содержимое...

...

Рейтинг:

0 / 0

07.10.2013, 21:10

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

чтение текстовых файлов из директории???

#38419472

Rostislav D. Kudryashov

Участник

Сообщения: 239

Рейтинг: 0 / 0

grommilitary, в чём трудность? Что не получается? Лень заела?

...

Рейтинг:

0 / 0

07.10.2013, 21:15

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

чтение текстовых файлов из директории???

#38419506

Dima T

Участник

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

Рейтинг: 0 / 0

Rostislav D. KudryashovВСЕМ СОВЕТЧИКАМ. А почему вы решили, что вопрошатель нуждается в составлении списка файлов?
grommilitaryсразу отпишу что с одним файлом все понятно,как сделать для нескольких?
Читать топик будем прежде чем глупые вопросы задавать?

...

Рейтинг:

0 / 0

07.10.2013, 22:28

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

чтение текстовых файлов из директории???

#38419514

Dima T

Участник

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

Рейтинг: 0 / 0

grommilitaryНеобходимо содержимое каждого нового текстового файла (или нескольких файлов), которые скидываются в директорию считать и занести в таблицу, при этом содержимое каждого файла дописывается в конец таблицы.
Чтобы не отслеживать новые файлы - удаляй обработанные или переименовывай в .bak
grommilitaryно это отдельно нужно сохранять из почтовой программы в директорию, думаю проще ручками скинуть в директорию и оттуда уже считать файлы кучей, хотя читал, что можно и подсасывать сразу из почтовой проги содержимое...
Большинство почтовых программ позволяет настроить правило автосохранения прикрепленных файлов в заданную папку. "Подсасывать" сложнее, т.к. в разных почтовых прогах это по разному происходит.

...

Рейтинг:

0 / 0

07.10.2013, 22:41

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

чтение текстовых файлов из директории???

#38419516

Rostislav D. Kudryashov

Участник

Сообщения: 239

Рейтинг: 0 / 0

Dima T, если файлов несколько, а не один, из этого логически не следует, что их список не известен.
Один из признаков глупости - отсутствие логики, вроде вывода, что из такой фразы как:
" сразу отпишу что с одним файлом все понятно,как сделать для нескольких?"
- следует незнание их имён. В этой фразе объявлено только незнание способа обработки нескольких файлов - не более того.

Хотя выглядит это объявление довольно абсурдно. Если знаешь, как обработать один файл, обрабатывай по очереди каждый следующий как предыдущий.
Признайся, ты так хочешь обнародовать свою премудрость, что готов высказываться хоть впопад, хоть невпопад - наобум.

...

Рейтинг:

0 / 0

07.10.2013, 22:50

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

чтение текстовых файлов из директории???

#38419636

Dima T

Участник

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

Рейтинг: 0 / 0

Rostislav D. KudryashovПризнайся, ты так хочешь обнародовать свою премудрость, что готов высказываться хоть впопад, хоть невпопад - наобум.
Да у нас тут психоаналитик появился

Как говорится "Правильно поставленный вопрос - это половина ответа". В данном случае как ТС спросил, так ему и отвечали.
Задача форума не решить проблему за другого, а помочь найти решение, поэтому вполне достаточно что каждый напишет ответ так как понял вопрос, а ТС сам выберет что надо ему из предложенного для решения его задачи.

Поэтому попрошу в будущем заострять внимание на чужих ответах только в случаях если они содержат ошибки.

...

Рейтинг:

0 / 0

08.10.2013, 07:40

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

чтение текстовых файлов из директории???

#38419658

sg12

Участник

Сообщения: 448

Рейтинг: 0 / 0

Dima T
Задача форума не решить проблему за другого, а помочь найти решение, поэтому вполне достаточно что каждый напишет ответ так как понял вопрос, а ТС сам выберет что надо ему из предложенного для решения его задачи.

Интересная теория.

Главное - как понял вопрос, а не компетентность.
Т.е. сразу столбится право на собственную глупость, с правом обозвать чужое решение глупостью.
А полукомпетентный ТС выберет нужное по уровню нахрапа.

...

Рейтинг:

0 / 0

08.10.2013, 08:25

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

чтение текстовых файлов из директории???

#38419682

sqlnew

Участник

Сообщения: 156

Рейтинг: 0 / 0

sg12Интересная теория.

Главное - как понял вопрос, а не компетентность.
Т.е. сразу столбится право на собственную глупость, с правом обозвать чужое решение глупостью.
А полукомпетентный ТС выберет нужное по уровню нахрапа.

1. Так каждый и понимает вопрос или ответ в силу своей компетенции. По-другому - уж никак.
2 .Кроме того, по-моему, в данном случае не было обозначения чужого решения глупостью.
3. Ну а что касается выбора полукомпетентного ТСа - так это см.п.1.

...

Рейтинг:

0 / 0

08.10.2013, 08:53

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

чтение текстовых файлов из директории???

#38419785

sg12

Участник

Сообщения: 448

Рейтинг: 0 / 0

sqlnew

Все верно, но только для десятка лет назад, когда ТС диктовали уровень решений.
Но сейчас подобные теории - призыв к примитиву, что и наблюдается постоянно.
И если нет знакомства с наработанными решениями, то зачем заменять их пустыми поучениями, вводя в заблуждение не только ТС.
И сейчас большинство таких вопросов на форуме не те случаи, когда каждый понимает по-своему, а не однозначно.

Конкретный пример - в соседней теме, об исходниках.
Реальный практик сначала задаст вопрос о Refox.
И там только один обозначил возможности без исходников.

...

Рейтинг:

0 / 0

08.10.2013, 10:21

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

чтение текстовых файлов из директории???

#38420330

grommilitary

Гость

Rostislav D. Kudryashovgrommilitary, в чём трудность? Что не получается? Лень заела?
Нет конечно! просто на предыдущее Ваше сообщение полностью описал задачу, а интересовало изначально чтение из папки файлов, имена которых не известны изначально с занесением их в таблицу. О том как сделать остальное, разобрался.
Признаюсь, что ТС, т.е. я , не полукомпетентен, а скореее некомпетентен, т.к. на фоксе впервые решаю подобную задачу, вот и спросил здесь как лучше ее исполнить, стараясь максимально понятно изложить проблему. Всем откликнувшимся спасибо!

...

Рейтинг:

0 / 0

08.10.2013, 14:25

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

чтение текстовых файлов из директории???

#38420663

tanglir

Участник

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

Рейтинг: 0 / 0

авторВ этой фразе объявлено только незнание способа обработки нескольких файлов - не более того.В понятие "способ обработки нескольких файлов" может входить в том числе и получение списка этих самых файлов, не так ли?
Rostislav D. KudryashovХотя выглядит это объявление довольно абсурдно. Если знаешь, как обработать один файл, обрабатывай по очереди каждый следующий как предыдущий.Но если ТС всё же знает, как обработать один файл, и задаёт такой вопрос, то о чём это говорит? Имхо как раз о том, что раз уж ТС умеет обрабатывать файлы по одному, значит, ему не хватает именно возможности получить их список :)

...

Рейтинг:

0 / 0

08.10.2013, 17:23

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

чтение текстовых файлов из директории???

#38421789

otorva1

Гость

AndreTM otorva1,

Вы в коде о чём говорите?
Причём - не в собственном коде...
В коде я говорю о том, как можно обработать набор файлов по заданной маске имени. Интересно, а почему вы считаете, что этот код - несобственный?

...

Рейтинг:

0 / 0

09.10.2013, 16:22

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

чтение текстовых файлов из директории???

#38423222

grommilitary

Гость

Дед ЕвгенийДа вроде все просто. Вот мой вариант, который я использовал
Парни а как результат выполнения этого кода попадает в таблицу? Для меня это ключевой момент.Изначально сразу нашел как из массива или из файла в таблицу засунуть.А в данном случае как отправить в таблицу??

...

Рейтинг:

0 / 0

10.10.2013, 16:24

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

чтение текстовых файлов из директории???

#38423465

otorva1

Гость

grommilitaryДед ЕвгенийДа вроде все просто. Вот мой вариант, который я использовал
Парни а как результат выполнения этого кода попадает в таблицу? Для меня это ключевой момент.Изначально сразу нашел как из массива или из файла в таблицу засунуть.А в данном случае как отправить в таблицу??
************************************************

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

PRIVATE N, I, dflt_dir, fnm

dflt_dir = 'C:\AAA\'

DIMENSION dir_arr[1]
N = adir(dir_arr, dflt_dir + '*.*')
IF N = 0
  RETURN
ENDIF

SELECT 0
CREATE TABLE ftmp (fname C(254))

FOR I = 1 TO N
  fnm = m.dflt_dir + dir_arr[I,1]
  APPEND BLANK
  REPLACE fname WITH m.fnm
ENDFOR

USE IN ftmp

***************************************
Примерно вот так: сначала считываешь информацию о файлах в массив с помощью ф-ции ADIR, затем создаешь таблицу для имен файлов, потом в цикле добавляешь в эту таблицу по одной записи и заносишь в эту запись следующее имя файла из массива ...

...

Рейтинг:

0 / 0

10.10.2013, 18:56

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

чтение текстовых файлов из директории???

#38423616

grommilitary

Гость

Спасиб, разбираюсь...

...

Рейтинг:

0 / 0

10.10.2013, 21:12

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

чтение текстовых файлов из директории???

#38423628

grommilitary

Гость

[quot otorva1]grommilitaryпропущено...
Примерно вот так: сначала считываешь информацию о файлах в массив с помощью ф-ции ADIR, затем создаешь таблицу для имен файлов, потом в цикле добавляешь в эту таблицу по одной записи и заносишь в эту запись следующее имя файла из массива ...
В результате выполнения представленного кода имена файлов попадают в таблицу, это я уже давно сделал... а как в Вашем случае в таблицу занести не только имена этих файлов, но и их содержимое??

...

Рейтинг:

0 / 0

10.10.2013, 21:23

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

чтение текстовых файлов из директории???

#38423885

tanglir

Участник

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

Рейтинг: 0 / 0

grommilitary,

1)добавляете в таблицу поле типа memo(binary);
2)в том же цикле, в котором забиваете в таблицу имена файлов, забиваете в это поле и их содержимое - либо через filetostr, если файлы небольшие, либо через fopen/fread и т.д, если большие.

...

Рейтинг:

0 / 0

11.10.2013, 05:25

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

чтение текстовых файлов из директории???

#38424059

otorva1

Гость

[quot grommilitary]otorva1пропущено...

В результате выполнения представленного кода имена файлов попадают в таблицу, это я уже давно сделал... а как в Вашем случае в таблицу занести не только имена этих файлов, но и их содержимое??

Вот модификация кода, которая добавляет таблицу имена файлов и их содержимое (в мемо-поле):

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

 [code=vbnet]
*******************************************************************************
PRIVATE N, I, dflt_dir, fnm

dflt_dir = 'C:\AAA\'

DIMENSION dir_arr[1]
N = adir(dir_arr, dflt_dir + '*.*')
IF N = 0
  RETURN
ENDIF

SELECT 0
CREATE TABLE ftmp (fname C(254), fcontent M)

FOR I = 1 TO N
  fnm = m.dflt_dir + dir_arr[I,1]
  APPEND BLANK
  REPLACE fname WITH m.fnm
  APPEND MEMO fcontent FROM (m.fnm) OVERWRITE
ENDFOR

USE IN ftmp
********************************************************************

Здесь не проверяется, что размер файла не превосходит максимального размера мемо-поля ...

...

Рейтинг:

0 / 0

11.10.2013, 10:25

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

чтение текстовых файлов из директории???

#38424092

grommilitary

Гость

Спасибо получилось!а есть ли вариант не использовать мемо поле,а построчно заносить содержимое этих файлов в таблицу?Или проще потом из мемополей содержимое уже раскидывать как мне нужно??Файлы большие просто (от 512 кб)

...

Рейтинг:

0 / 0

11.10.2013, 10:55

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

чтение текстовых файлов из директории???

#38424144

otorva1

Гость

grommilitaryСпасибо получилось!а есть ли вариант не использовать мемо поле,а построчно заносить содержимое этих файлов в таблицу?Или проще потом из мемополей содержимое уже раскидывать как мне нужно??Файлы большие просто (от 512 кб)
Это уж как для вас удобней - можно и так, и этак. Только структура таблицы для хранения таких файлов должна быть несколько иной, чтобы в ней можно было отразить, какому файлу принадлежат строки и в каком порядке они следуют ...

...

Рейтинг:

0 / 0

11.10.2013, 11:31

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

чтение текстовых файлов из директории???

#38424396

grommilitary

Гость

спасибо! подскажите еще плиз пару моментов.не получается организовать дописывание содержимого файлов в созданную таблицу (по криэйт как понятно создается новая таблица),а хотелось бы дописывать (именно дописывать) в уже имеющуюся.как проще это сделать??

...

Рейтинг:

0 / 0

11.10.2013, 13:27

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

чтение текстовых файлов из директории???

#38424427

Станислав С...кий

Гость

grommilitary,
Я, конечно, дико извиняюсь, но читали ли Вы хоть что-то для начинающих? Как открыть таблицу, добавить записи...
Я так думаю, что нет. Потому что в противном случае вопросов бы не было...
А ответ на Ваш вопрос таков:

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

*Если нет файла, то надо его создать
if !FILE('ftmp.dbf')
CREATE TABLE ftmp (fname C(254), fcontent M)
endif 

* если таблица уже открыта, то используем ее
if used('ftmp')
  SELECT ftmp
else
* Иначе открываем ее для работы
  use ftmp in 0
endif

* Вносим необходимые изменения
FOR I = 1 TO N
  fnm = m.dflt_dir + dir_arr[I,1]
  APPEND BLANK
  REPLACE fname WITH m.fnm
  APPEND MEMO fcontent FROM (m.fnm) OVERWRITE
ENDFOR

* Убираем за собой
USE IN ftmp

...

Рейтинг:

0 / 0

11.10.2013, 13:45

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

чтение текстовых файлов из директории???

#38424446

grommilitary

Гость

Спасибо большое!попутно изучаю матчасть в гугле ибо знающих под рукой нет и не будет...

...

Рейтинг:

0 / 0

11.10.2013, 13:54

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

38 сообщений из 38, показаны все 2 страниц

все

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?all=1&fid=41&tid=1582882]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	156ms
get topic data:	11ms
get forum data:	3ms
get page messages:	76ms
get tp. blocked users:	2ms
others:	10ms

total:	288ms