ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / чтение текстовых файлов из директории???
25 сообщений из 38, страница 1 из 2
  1  все
чтение текстовых файлов из директории???
    #38402828
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
Товарищи нужна помощь! есть директория в которую падают файлы в текстовом виде с сервера.Задача-считать и записать их содержимое в таблицу.Буду очень благодарен за помощь
...
Рейтинг: 0 / 0
20.09.2013, 14:44
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38402840
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
ADIR()
...
Рейтинг: 0 / 0
20.09.2013, 14:57
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38402876
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
сразу отпишу что с одним файлом все понятно,как сделать для нескольких?
...
Рейтинг: 0 / 0
20.09.2013, 15:24
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38402889
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дед Евгений
Участник
Ставь в цикл по FOR перебор файлов по функции ALEN() с массива ADIR() в директории, и поочередно окрывай и читай содержимое.
...
Рейтинг: 0 / 0
20.09.2013, 15:36
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38403019
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
буду пробовать спасиб
...
Рейтинг: 0 / 0
20.09.2013, 16:47
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38403023
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
просто рассматртвался уж очень замудреный варитант через запись содержимого дериктории в переменную,ее чтение занесение в массив и... вот тут я понял что нид хелп
...
Рейтинг: 0 / 0
20.09.2013, 16:50
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38403124
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
буду фантастически благодарен, если кто нить скинет кусочек кода
...
Рейтинг: 0 / 0
20.09.2013, 18:18
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38403150
otorva1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
otorva1,

Вы в коде о чём говорите?
Причём - не в собственном коде...
...
Рейтинг: 0 / 0
20.09.2013, 19:35
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38403455
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
окончательно запутали....
...
Рейтинг: 0 / 0
21.09.2013, 13:04
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38404497
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дед Евгений
Участник
Да вроде все просто. Вот мой вариант, который я использовал в одной из программ:

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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
Спасибо за помощь друзья! приехал из отпуска, сажусь разбираться))
...
Рейтинг: 0 / 0
07.10.2013, 18:06
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419395
Rostislav D. Kudryashov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rostislav D. Kudryashov
Участник
ВСЕМ СОВЕТЧИКАМ. А почему вы решили, что вопрошатель нуждается в составлении списка файлов? Может этот список у него уже есть. Может надо определять не список файлов, а факт их появления. А может, не факт появления, а момент времени обновления этих файлов? А может не просто обновления, а размер добавления данных в эти файлы?
Вопрошатель может и знает, что ему нужно, но считает излишним объяснять, потому что верит в телепатию.
А ведь есть ещё такие подробности, как структура текстовых файлов и её соответствие таблицам сохранения. Каждому текстовому файлу своя таблица или одна, или несколько, или ещё как? Надо ли поступающие данные накапливать или замещать старые новыми?
Почему-то советчики так торопятся показать свои знания, что готовы пустить их прямо по ветру.

А ещё есть такая подробность, как периодичность и частота появления новых данных. Может нужен таймер слежения, работающий круглосуточно. И с этим связана такая проблема - целостность данных, чтоб не запустить чтение данных во время их поступления в текстовый файл.
...
Рейтинг: 0 / 0
07.10.2013, 19:33
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419470
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
Необходимо содержимое каждого нового текстового файла (или нескольких файлов), которые скидываются в директорию считать и занести в таблицу, при этом содержимое каждого файла дописывается в конец таблицы. Содержимое файла представляет собой строки, разделителем для помещения в поле таблицы будет символ отката каретки. Также необходимо поместить в эту же таблицу название текстового файла из которого происходит чтение. Периодичность появления файлов существует, но это отдельно нужно сохранять из почтовой программы в директорию, думаю проще ручками скинуть в директорию и оттуда уже считать файлы кучей, хотя читал, что можно и подсасывать сразу из почтовой проги содержимое...
...
Рейтинг: 0 / 0
07.10.2013, 21:10
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419472
Rostislav D. Kudryashov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rostislav D. Kudryashov
Участник
grommilitary, в чём трудность? Что не получается? Лень заела?
...
Рейтинг: 0 / 0
07.10.2013, 21:15
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419506
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Rostislav D. KudryashovВСЕМ СОВЕТЧИКАМ. А почему вы решили, что вопрошатель нуждается в составлении списка файлов?
grommilitaryсразу отпишу что с одним файлом все понятно,как сделать для нескольких?
Читать топик будем прежде чем глупые вопросы задавать?
...
Рейтинг: 0 / 0
07.10.2013, 22:28
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419514
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
grommilitaryНеобходимо содержимое каждого нового текстового файла (или нескольких файлов), которые скидываются в директорию считать и занести в таблицу, при этом содержимое каждого файла дописывается в конец таблицы.
Чтобы не отслеживать новые файлы - удаляй обработанные или переименовывай в .bak
grommilitaryно это отдельно нужно сохранять из почтовой программы в директорию, думаю проще ручками скинуть в директорию и оттуда уже считать файлы кучей, хотя читал, что можно и подсасывать сразу из почтовой проги содержимое...
Большинство почтовых программ позволяет настроить правило автосохранения прикрепленных файлов в заданную папку. "Подсасывать" сложнее, т.к. в разных почтовых прогах это по разному происходит.
...
Рейтинг: 0 / 0
07.10.2013, 22:41
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419516
Rostislav D. Kudryashov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rostislav D. Kudryashov
Участник
Dima T, если файлов несколько, а не один, из этого логически не следует, что их список не известен.
Один из признаков глупости - отсутствие логики, вроде вывода, что из такой фразы как:
" сразу отпишу что с одним файлом все понятно,как сделать для нескольких?"
- следует незнание их имён. В этой фразе объявлено только незнание способа обработки нескольких файлов - не более того.

Хотя выглядит это объявление довольно абсурдно. Если знаешь, как обработать один файл, обрабатывай по очереди каждый следующий как предыдущий.
Признайся, ты так хочешь обнародовать свою премудрость, что готов высказываться хоть впопад, хоть невпопад - наобум.
...
Рейтинг: 0 / 0
07.10.2013, 22:50
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419636
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Rostislav D. KudryashovПризнайся, ты так хочешь обнародовать свою премудрость, что готов высказываться хоть впопад, хоть невпопад - наобум.
Да у нас тут психоаналитик появился

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

Поэтому попрошу в будущем заострять внимание на чужих ответах только в случаях если они содержат ошибки.
...
Рейтинг: 0 / 0
08.10.2013, 07:40
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419658
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Dima T
Задача форума не решить проблему за другого, а помочь найти решение, поэтому вполне достаточно что каждый напишет ответ так как понял вопрос, а ТС сам выберет что надо ему из предложенного для решения его задачи.


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

Главное - как понял вопрос, а не компетентность.
Т.е. сразу столбится право на собственную глупость, с правом обозвать чужое решение глупостью.
А полукомпетентный ТС выберет нужное по уровню нахрапа.
...
Рейтинг: 0 / 0
08.10.2013, 08:25
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419682
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
sg12Интересная теория.

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

1. Так каждый и понимает вопрос или ответ в силу своей компетенции. По-другому - уж никак.
2 .Кроме того, по-моему, в данном случае не было обозначения чужого решения глупостью.
3. Ну а что касается выбора полукомпетентного ТСа - так это см.п.1.
...
Рейтинг: 0 / 0
08.10.2013, 08:53
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38419785
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
sqlnew

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

Конкретный пример - в соседней теме, об исходниках.
Реальный практик сначала задаст вопрос о Refox.
И там только один обозначил возможности без исходников.
...
Рейтинг: 0 / 0
08.10.2013, 10:21
| Ответить | Цитировать | Написать  
чтение текстовых файлов из директории???
    #38420330
grommilitary
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grommilitary
Гость
Rostislav D. Kudryashovgrommilitary, в чём трудность? Что не получается? Лень заела?
Нет конечно! просто на предыдущее Ваше сообщение полностью описал задачу, а интересовало изначально чтение из папки файлов, имена которых не известны изначально с занесением их в таблицу. О том как сделать остальное, разобрался.
Признаюсь, что ТС, т.е. я , не полукомпетентен, а скореее некомпетентен, т.к. на фоксе впервые решаю подобную задачу, вот и спросил здесь как лучше ее исполнить, стараясь максимально понятно изложить проблему. Всем откликнувшимся спасибо!
...
Рейтинг: 0 / 0
08.10.2013, 14:25
| Ответить | Цитировать | Написать  
25 сообщений из 38, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / чтение текстовых файлов из директории???
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=38402876&tid=1582882]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 156ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 13ms
total:  279ms
созд. / загр.: 279ms
x
x
Закрыть


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