powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
4 сообщений из 4, страница 1 из 1
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
    #33390809
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле?
...
Рейтинг: 0 / 0
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
    #33390910
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот тебе вариант. 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
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
    #33390936
А ЭТО СЛУЧАЙНО НЕ В ОДНУ СТРОКУ ЗАПИШЕТСЯ? И ПОЧЕМУ -17?
...
Рейтинг: 0 / 0
Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
    #33390941
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нет не в одну. эта переменная будет накапливаться и макро команда & исполнит CHR(13)+CHR(10). а 17 это потому, что последнее загоняемое значение будет в конце иметь '+CHR(13)+CHR(10)+'. посмотри внимательнее этот простой код. если ты так и ставиши и исполнишь &. будет ошибка, т.к. '+' здесь лишний, убрав только его у тебя в мемо будет под всеми значениями пустая строка, чтоб ее небыло пиши 17.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как программно скопировать в memo поле от строки X до стороки Y и перенести в другое поле
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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