Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле / 4 сообщений из 4, страница 1 из 1
21.11.2005, 17:44:18
    #33390809
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле?
...
Рейтинг: 0 / 0
21.11.2005, 18:34:12
    #33390910
Недоходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
вот тебе вариант. 2 переменные d и f, в 1-й - X , во 2-й - Y. далее через
for a = d to f
go a
stroka1= stroka1+'"'+ (имя_поля) +'"'+ "+CHR(13)+CHR(10)+"
endfor
stroka1= substr(stroka1 ,1,len(stroka1)-17)
select (табла с мемо)
replace (мемо) with &stroka1
...
Рейтинг: 0 / 0
21.11.2005, 18:54:50
    #33390936
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
А ЭТО СЛУЧАЙНО НЕ В ОДНУ СТРОКУ ЗАПИШЕТСЯ? И ПОЧЕМУ -17?
...
Рейтинг: 0 / 0
21.11.2005, 19:03:13
    #33390941
Недоходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
нет не в одну. эта переменная будет накапливаться и макро команда & исполнит CHR(13)+CHR(10). а 17 это потому, что последнее загоняемое значение будет в конце иметь '+CHR(13)+CHR(10)+'. посмотри внимательнее этот простой код. если ты так и ставиши и исполнишь &. будет ошибка, т.к. '+' здесь лишний, убрав только его у тебя в мемо будет под всеми значениями пустая строка, чтоб ее небыло пиши 17.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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