ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Импортировать данных из блокнота (дубль 2)
17 сообщений из 17, страница 1 из 1
Импортировать данных из блокнота (дубль 2)
    #38548419
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Прошу помогите добрые люди!!! Мне нужно импортировать данные из текстового файла в FOXPRO, так как я новичок в FOXPRO, то не могу додумать эту функцию сам...
Объясняю ситуацию, даны текстовые блокноты
...
Рейтинг: 0 / 0
04.02.2014, 12:52
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548434
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
дана форма, к ней синтаксис кода
...
Рейтинг: 0 / 0
04.02.2014, 12:56
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548443
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Я с помощью кнопки нахожу файл текстовой
...
Рейтинг: 0 / 0
04.02.2014, 12:59
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548449
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Вот я нашел файл
...
Рейтинг: 0 / 0
04.02.2014, 13:01
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548459
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
вот этим кодом:
Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN(thisform.text9.value)
nSize = FSEEK(gnFileHandle, 0, 2)
IF nSize <= 0
WAIT WINDOW "This file is empty!" NOWAIT
ELSE
= FSEEK(gnFileHandle, 0, 0)
cString = FREAD(gnFileHandle, nSize)
? cString
ENDIF
= FCLOSE(gnFileHandle)
messagebox(alltrim(cString))

он всю инфу считывает, а мне надо чтобы он только вот этот кусочек считывал, то что помечено красным, прошу помогите!!!
...
Рейтинг: 0 / 0
04.02.2014, 13:07
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548468
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Claymoreон всю инфу считывает, а мне надо чтобы он только вот этот кусочек считывал, то что помечено красным, прошу помогите!!!
Ну так надо проверять чего прочитал:
Код: sql
1.
2.
3.
4.
5.
6.
...
cString = FREAD(gnFileHandle, nSize)
if alltrim(cString) = 'Тип ЦП'
  ? alltrim(substr(cString, 7))
endif
...
...
Рейтинг: 0 / 0
04.02.2014, 13:13
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548499
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Dima T,

вот блокнот:
...
Рейтинг: 0 / 0
04.02.2014, 13:28
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548505
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Dima T,

я переписал код:


Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN(thisform.text9.value)
nSize = FSEEK(gnFileHandle, 0, 2)
IF nSize <= 0
WAIT WINDOW "This file is empty!" NOWAIT
ELSE
= FSEEK(gnFileHandle, 0, 0)
cString = FREAD(gnFileHandle, nSize)
if alltrim(cString) = 'Тип ЦП'
? alltrim(substr(cString, 7))
endif
ENDIF
= FCLOSE(gnFileHandle)
messagebox(alltrim(substr(cString, 7)))


но, ничего не изменилось, или я не так переписал его (?_?)
...
Рейтинг: 0 / 0
04.02.2014, 13:30
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548511
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Невнимательно посмотрел, ты весь файл в переменную прочитал. Читай построчно
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN(thisform.text9.value)
if gnFileHandle < 0
  ? 'Файл не открылся'
else
 do while !feof(gnFileHandle)
    cString = fgets(gnFileHandle)
    if alltrim(cString) = 'Тип ЦП'
       ? alltrim(substr(cString, 7))
       exit
    endif
 enddo
endif
= FCLOSE(gnFileHandle) 
messagebox(alltrim(cString))
...
Рейтинг: 0 / 0
04.02.2014, 13:32
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548533
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Dima T,

Суууупер!!! Спасибо тебе огромное, всё заработало!!!
Вот код, чуток под себя подредактировал, а то он всё равно "Тип ЦП" показывал:
Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN(thisform.text9.value)
if gnFileHandle < 0
? 'Файл не открылся'
else
do while !feof(gnFileHandle)
cString = fgets(gnFileHandle)
if alltrim(cString) = 'Тип ЦП'
? alltrim(substr(alltrim(cString), 7))
exit
endif
enddo
endif
= FCLOSE(gnFileHandle)
messagebox(alltrim(substr(alltrim(cString), 7)))
...
Рейтинг: 0 / 0
04.02.2014, 13:44
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548542
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Dima T,

Напиши свой номер, я тебе хоть 100 руб. кину на счет, хоть как та отблагодарю)))
...
Рейтинг: 0 / 0
04.02.2014, 13:47
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548558
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
ClaymoreDima T,

Суууупер!!! Спасибо тебе огромное, всё заработало!!!
Вот код, чуток под себя подредактировал, а то он всё равно "Тип ЦП" показывал:
Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN(thisform.text9.value)
if gnFileHandle < 0
? 'Файл не открылся'
else
do while !feof(gnFileHandle)
cString = fgets(gnFileHandle)
if alltrim(cString) = 'Тип ЦП'
? alltrim(substr(alltrim(cString), 7)) && SUBSTR(cExpression, nStartPosition [, nCharactersReturned])
exit
endif
enddo
endif
= FCLOSE(gnFileHandle)
messagebox(alltrim(substr(alltrim(cString), 7)))
...
Рейтинг: 0 / 0
04.02.2014, 13:53
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548570
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Лучше книжку по фоксу себе купи и поизучай :)
Забавно смотреть на твою методику разработки в скриншотах.
...
Рейтинг: 0 / 0
04.02.2014, 14:00
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548579
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Claymore
Гость
Dima T,

да она есть.......
...
Рейтинг: 0 / 0
04.02.2014, 14:03
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548585
Penner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Penner
Участник
filetostr()
alines()
for ...
next
...
Рейтинг: 0 / 0
04.02.2014, 14:04
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38548867
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
Pennerfiletostr()
alines()
for ...
nextну если памяти не жалко, то можно и так
...
Рейтинг: 0 / 0
04.02.2014, 15:59
| Ответить | Цитировать | Написать  
Импортировать данных из блокнота (дубль 2)
    #38549055
Penner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Penner
Участник
В данном случае (обработка протокола Everest) не критично
...
Рейтинг: 0 / 0
04.02.2014, 17:15
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Импортировать данных из блокнота (дубль 2)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&tid=1582755]:
 0ms
get settings:
 5ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 9ms
get forum data:
 1ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 11ms
total:  148ms
созд. / загр.: 148ms
x
x
Закрыть


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