Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Импортировать данных из блокнота (дубль 2) / 17 сообщений из 17, страница 1 из 1
04.02.2014, 12:52
    #38548419
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Прошу помогите добрые люди!!! Мне нужно импортировать данные из текстового файла в FOXPRO, так как я новичок в FOXPRO, то не могу додумать эту функцию сам...
Объясняю ситуацию, даны текстовые блокноты
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2014, 12:56
    #38548434
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
дана форма, к ней синтаксис кода
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2014, 12:59
    #38548443
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Я с помощью кнопки нахожу файл текстовой
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2014, 13:01
    #38548449
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Вот я нашел файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2014, 13:07
    #38548459
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
вот этим кодом:
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:13
    #38548468
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
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:28
    #38548499
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Dima T,

вот блокнот:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2014, 13:30
    #38548505
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
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:32
    #38548511
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Невнимательно посмотрел, ты весь файл в переменную прочитал. Читай построчно
Код: 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:44
    #38548533
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
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:47
    #38548542
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Dima T,

Напиши свой номер, я тебе хоть 100 руб. кину на счет, хоть как та отблагодарю)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2014, 13:53
    #38548558
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
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, 14:00
    #38548570
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Лучше книжку по фоксу себе купи и поизучай :)
Забавно смотреть на твою методику разработки в скриншотах.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2014, 14:03
    #38548579
Claymore
Claymore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импортировать данных из блокнота (дубль 2)
Dima T,

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


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