Переменная из txt / FoxPro, Visual FoxPro

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

4 сообщений из 4, страница 1 из 1

Переменная из txt

#35538213

Romull

Гость

Будьте любезны подскажите можно ли каким либо образом присвоить переменной (Publ znah) ,значение из txt файла (znak.txt), в txt файле всего одна строка - 1FTP5

...

Рейтинг:

0 / 0

14.09.2008, 13:52

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

Переменная из txt

#35538229

Dag

Участник

Сообщения: 880

Рейтинг: 0 / 0

Publ_znah=FILETOSTR('znak.txt')

...

Рейтинг:

0 / 0

14.09.2008, 14:19

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

Переменная из txt

#35538236

Romull

Гость

Благодарю

...

Рейтинг:

0 / 0

14.09.2008, 14:36

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

Переменная из txt

#35538978

GoshaS

Участник

Откуда: юг Архангельской обл.

Сообщения: 391

Рейтинг: 0 / 0

Код: 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.
25.

FUNCTION config
PARAMETERS lcParametr
LOCAL loFile, lcZnach, lcResalt
lcParametr=LOWER(lcParametr)
lcResalt=.F.
loFile=FOPEN('config.fpw')
IF loFile> 0 
		DO WHILE !FEOF(loFile) 
			lcZnach = FGETS(loFile,  300 )
			IF LOWER(LEFT(lcZnach,AT('=',lcZnach)- 1 ))==lcParametr
				lcResalt=RIGHT(lcZnach,LEN(lcZnach)-AT('=',lcZnach))
			ENDIF 
		ENDDO 	
ELSE 
	MESSAGEBOX('невозможно открыть файл')
	RETURN .F.
ENDIF 
FCLOSE(loFile)
IF VARTYPE(lcResalt)=='L'
	RETURN .F.
ELSE 	
	RETURN lcResalt
ENDIF 
ENDFUNC

а в файле прописаны некоторые значения:
dirMail=N:\Mail\Temp\old\
fileReestr=N:\Mail\IN\gash_kre.dbf
dirReestrOld=N:\Mail\IN\old_gash\
и т.д.

...

Рейтинг:

0 / 0

15.09.2008, 10:48

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

4 сообщений из 4, страница 1 из 1

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

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

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

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

start [/forum/topic.php?fid=41&gotonew=1&tid=1587291]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	42ms
get topic data:	9ms
get first new msg:	6ms
get forum data:	2ms
get page messages:	40ms
get tp. blocked users:	1ms
others:	198ms

total:	327ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы