ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Какие минусы использования set alternate
13 сообщений из 13, страница 1 из 1
Какие минусы использования set alternate
    #38610644
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
subj
...
Рейтинг: 0 / 0
10.04.2014, 06:42
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610649
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
1. пишешь только в один файл.
2. программа вылетела - файл остался недописанный.

Это команда из технологий FPD. Там это было уместно: написал отчет, а извне задавай куда вывести: экран, принтер, файл.

Кстати твой вопрос из другого топика
q1w1e1и ещё вопрос, почему то SET ALTERNATE ON добавляет пустую строчку вначале, какой опцией можно сделать, чтоб не добавлялась пустая строка...
Это не SET ALTERNATE выводит пустую строку, это ? выводит.
...
Рейтинг: 0 / 0
10.04.2014, 06:56
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610656
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
спасибо..., но эти минусы для меня не минусы...:-)
?, т.е. эта команда переводит каретку и начинает писатть текст... так что ли
кстати
im_f="x"
SET TEXTMERGE ON TO &im_f
Text
<?xml version="1.0" encoding="windows-1251"?>
EndText
SET TEXTMERGE OFF
SET TEXTMERGE to
Та же фигня, первая строка пустая, да к тому же макроподстановку не понимает...
...
Рейтинг: 0 / 0
10.04.2014, 07:27
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610658
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
q1w1e1?, т.е. эта команда переводит каретку и начинает писатть текст... так что ли
именно так. Есть ?? которая продолжает текущую строку
Код: sql
1.
? 'qwe'


равносильно
Код: sql
1.
?? chr(13) + chr(10) + 'qwe'
...
Рейтинг: 0 / 0
10.04.2014, 07:31
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610659
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
q1w1e1кстати
im_f="x"
SET TEXTMERGE ON TO &im_f
Text
<?xml version="1.0" encoding="windows-1251"?>
EndText
SET TEXTMERGE OFF
SET TEXTMERGE to
Та же фигня, первая строка пустая, да к тому же макроподстановку не понимает...
Зачем столько наворотов?
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
x = 10

Text to lcText textmerge noshow
<?xml version="1.0" encoding="windows-1251"?>
x = <<x>>
endtext

StrToFile(lcText, 'file.txt')
...
Рейтинг: 0 / 0
10.04.2014, 07:37
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610660
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
понятно, первую строку надо писать ??
а вот ещё вопрос...? почему SET TEXTMERGE дописывает расширение ".txt" в конец имени файла, как можно этого избежать...
LOCAL lcEnter,lcText, im_f
im_f="x"
lcEnter = chr(13) + chr(10)
lcText = '<?xml version="1.0" encoding="windows-1251"?>' + lcEnter
StrToFile(lcText, im_f)
SET TEXTMERGE ON TO &im_f additive
Text
<ФайлПФР>
EndText
SET TEXTMERGE OFF
SET TEXTMERGE to
...
Рейтинг: 0 / 0
10.04.2014, 07:37
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610662
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
q1w1e1,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
im_f="x"
SET TEXTMERGE TO &im_f
SET TEXTMERGE on
?? 
Text
первая строка не пустая
<?xml version="1.0" encoding="windows-1251"?>
EndText
SET TEXTMERGE OFF 
SET TEXTMERGE to
...
Рейтинг: 0 / 0
10.04.2014, 07:39
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610666
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
ПЕНСИОНЕРКА,
Спасибо, но скопировал код, расширение добавилось ".txt", хотя это уже другой файл, и строка пустая добавилась... Наверное в настройках надо смотреть...

первая строка не пустая
<?xml version="1.0" encoding="windows-1251"?>

В общем я проехал это, как Dima T, написал, так и сделал..
LOCAL lcEnter,lcText
lcEnter = chr(13) + chr(10)
Text to lcText textmerge noshow
<?xml version="1.0" encoding="windows-1251"?>
<ФайлПФР>
EndText
StrToFile(lcText, im_f)
...
Рейтинг: 0 / 0
10.04.2014, 07:55
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610667
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
q1w1e1понятно, первую строку надо писать ??
а вот ещё вопрос...? почему SET TEXTMERGE дописывает расширение ".txt" в конец имени файла, как можно этого избежать...
LOCAL lcEnter,lcText, im_f
im_f="x"
lcEnter = chr(13) + chr(10)
lcText = '<?xml version="1.0" encoding="windows-1251"?>' + lcEnter
StrToFile(lcText, im_f)
SET TEXTMERGE ON TO &im_f additive
Text
<ФайлПФР>
EndText
SET TEXTMERGE OFF
SET TEXTMERGE to
Зачем этот огород лишних команд? Заполняй переменную как переменную. Надо большие блоки - используй TEXT
В конце один раз сохрани с помощью StrToFile().

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
x = 10

Text to lcText textmerge noshow
<?xml version="1.0" encoding="windows-1251"?>

endtext

Text to lcText textmerge noshow additive
<&#212;&#224;&#233;&#235;&#207;&#212;&#208;>x * x = <<x * x>>
endtext

lcText = lcText + '</&#212;&#224;&#233;&#235;&#207;&#212;&#208;>' + chr(13) + chr(10)

StrToFile(lcText, 'file.txt')

MessageBox(lcText)
...
Рейтинг: 0 / 0
10.04.2014, 07:56
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610669
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Криво скопировалось
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
x = 10

Text to lcText textmerge noshow
<?xml version="1.0" encoding="windows-1251"?>

endtext

Text to lcText textmerge noshow additive
<ФайлПФР>x * x = <<x * x>>
endtext

lcText = lcText + '</ФайлПФР>' + chr(13) + chr(10)

StrToFile(lcText, 'file.txt')

MessageBox(lcText)
...
Рейтинг: 0 / 0
10.04.2014, 07:57
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610678
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
спасибо
...
Рейтинг: 0 / 0
10.04.2014, 08:29
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38610747
правильный проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
правильный проходящий
Гость
q1w1e1,

а без макроподстановки некоторым жизнь таки не мила... :) Хотя она тут ну совершенно не нужна.
...
Рейтинг: 0 / 0
10.04.2014, 09:45
| Ответить | Цитировать | Написать  
Какие минусы использования set alternate
    #38611000
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
правильный проходящий,
im_f="x"
т.е. если вместо
SET TEXTMERGE TO &im_f
написать
SET TEXTMERGE TO evaluate(im_f)
то расширение ".txt" подставляться не будет, и жизть наладится...:-)
...
Рейтинг: 0 / 0
10.04.2014, 12:08
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Какие минусы использования set alternate
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=38610658&tid=1582681]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 161ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 357ms
total:  597ms
созд. / загр.: 597ms
x
x
Закрыть


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