Richedit, Глюк ли это?

@Мистер Джек · Регистрация: 07.07.2019

Студворк — интернет-сервис помощи студентам

Добрый день.

Подскажите пожалуйста. Глюк ли это?

Вводим текст в бокс richedit( при чем от руки вводишь норм),после просчета программа должна вывести массив, но она выводит по 2 слова потом перенос на другую строчку (до полвины заполняет бокс richedit текстом потом сама переносит).

Я решил уже написать вот так(знаю что это говно код, ну проверить решил)

C++
1
Form1->RichEdit1->Text = Form1->RichEdit1->Text+(Array[1])+(Array[2])+(Array[3]);

В итоги выводит только 2-а слова, 3-е слово переносит на другую строчку.

Вопросы:
1. Как вывести массив Array в бокс richedit (в одну строчку)?

2. Глюк ли это то что программа выводит по 2 слова из массива, или дело в другом? В коде нет переноса строки, может в настройках самого RichEdit смотреть? Гдето в просторах интернета написано,

RightMargin = 1500 ' А можно и 2000-3000, это уж сколько нуно + запас
ScrollBars = 3 - rtfBoth

но я не знаю где это находится.

Небольшой код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Form1->RichEdit1->Lines->Clear();
 
char * pch;
 int i;
 int j;
 int o;
 i=1;
 j=1;
 
 pch = strtok (mas,":");
 Array[i] = pch;
 while (pch != NULL)
  {
   Array[i] = pch;
    i++;
   pch = strtok (NULL,":");
  }
 
Form1->RichEdit1->Text = Form1->RichEdit1->Text+(Array[1])+(Array[2])+(Array[3]);

Добавлено через 13 минут
Добавлю что mas это RichEdit1->Text

RichEdit1->Text перевел в строку потом в char получился mas

@D1973 · 10.07.2019, 18:13

Мистер Джек, блин, да покажите Вы уже полные данные и озвучьте задачу полностью... Вы озвучиваете одно - Вам дают решение - в результате, Вам надо еще что-то, а то, что Вы озвучили до этого - лишь какой-то кусок... Это, в конце концов, в Ваших интересах, описать задачу максимально полно и точно с приложением всех необходимых данных и описания нужных результатов работы. Именно в Ваших - лично мне это нахрен не надо - заморачиваться не пойми над чем!!! Думайте сами!

@Мистер Джек · 10.07.2019, 18:56 **[ТС]**

Основная задача в файле word есть поля пустые (ключи я их так назову на самом деле там пустые строчки) их нужно заменить на нужный текст.

Пример word
Текст текст текст текст ключ1. Текст текст ключ2. Текст текст текст текст ключ2. Текст ключ1 ключ1 и.т.д

Нужный текст (ключ 1 2019-07-01, ключ 2 Иванов Иван Иванович)
Дата договора: 2019-07-01
Ф.И.О. : Иванов Иван Иванович

Как это сделать.

1. Берем вставляем текст в richedit преобразуем в
Дата договора/Ф.И.О.
2019-07-01 /Иванов Иван Иванович

2. Далее автоматом должен открыться exel(почему именно exel, ведь там есть ячейки, которые можно прикрепить к ключам). Запуск макроса по импорту richedit далее откр. макрос по добавление ключ слов в word.

То есть есть договор. С пустыми ячеками и есть текст который нужно заполнить. Но так как влом все заполнять от руки можно подставить в ключи те слова которые нужны.

На чем сейчас застрял.

1. Импорта в exel шаблон должен состоять из 2 строк, а сейчас их 4-и!!!
2. Нужно понять, как открыть exel в невидимом режиме!!! и сделать импорт
3. Готовый, переделанный файл, сохраняется на диск.

Итого должно получится в файле word
Пример word
Текст текст текст текст 2019-07-01. Текст текст Иванов Иван Иванович. Текст текст текст текст Иванов Иван Иванович. Текст 2019-07-01 2019-07-01 и.т.д

Добавлено через 13 минут
Нашел код открытия excel но не работает

C++
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
26
27
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <Comobj.hpp> //Хидер для OLE объктов
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Variant Ap, Bs; //Переменные   EA - Application, B-Workbooks
 Ap = CreateOleObject("Excel.Application");
 Bs = Ap.Exec(PropertyGet("Workbooks"));
 Bs.Exec(Function("Open") << L"c:\\excel\\data.xlsx");   //Наш файл Excel
 Ap.Exec(PropertySet("Visible") << true); //Видимость   Excel
 //Ap.Exec(Procedure("Quit"));  //Выход из Excel
}
//---------------------------------------------------------------------------

Ошибка
Bs = Ap.Exec(PropertyGet("Workbooks"));

non-const lvalue reference to type 'System::AutoCmd' cannot bind to a temporary of type 'System::PropertyGet'
sysvari.h(748): passing argument to parameter 'cmd' here

@TrollHammer · 11.07.2019, 00:54

Мистер Джек, На кой, извиняюсь, так заморачиваться? Если нужно в ворде заполнить шаблон - делаем шаблон документа, поля, где нужно вставить, заполняем какими-нибудь уникальными значениями (типа @1, @2 и т.д.), далее через OLE открываем шаблон, и заменяем эти записи на нужный текст:

C++
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
   vVarApp=CreateOleObject("Word.Application");
 
   vVarDocs=vVarApp.OlePropertyGet("Documents");
   vVarDocs.OleProcedure("Add",WideString(aCurrPath+"\\protokol1.dotx"), false, 0);
   vVarDoc=vVarDocs.OleFunction("Item", 1);
 
   vVarDoc.OleProcedure("Activate");
 
   vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
   vVarDoc.OleProcedure("Activate");
   vVarParagraphs.OleProcedure("Add");
   vVarParagraph=vVarParagraphs.OleFunction("Item", 1);
 
   Zamena("@661", myProt1.aP10[0], false);
/////////////////////////////////////////////////
 
void TfMain::Zamena(AnsiString s1, AnsiString s2, bool f)
{
   WideString s[2];
 
    s[0]=s1; s[1]=s2;
   if(f) s[1]+="^p";
 
  vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", s[0], false, false, false, false, false, true, 1, false, s[1], 2);
}

Добавлено через 1 минуту
Пример немного корявый (очень давно делал), но рабочий

@gunslinger · 11.07.2019, 01:18

Раньше это называлось, если не ошибаюсь, закладками (вроде bookmarks). Делал (давным-давно) заполнение "шаблона" данными в Visual FoxPro (VFP), да и то, используя код предыдущего сотрудника.
К чему это я - хочу лишь сказать, что "алгоритм" должен быть аналогичен (возможно, подобно тому, как это делается в предыдущем посте). По той причине, что VFP - продукт конторы Билла Гейтса.

@D1973 · 11.07.2019, 04:49

Ну что сказать, классический случай XYZ... Начало:

Сообщение от Мистер Джек

Вводим текст в бокс richedit( при чем от руки вводишь норм),после просчета программа должна вывести массив, но она выводит по 2 слова потом перенос на другую строчку (до полвины заполняет бокс richedit текстом потом сама переносит).

Итог:

Сообщение от Мистер Джек

в файле word есть поля пустые (ключи я их так назову на самом деле там пустые строчки) их нужно заменить на нужный текст

Мистер Джек, честное слово, правила форума - это не что-то такое абстрактное, не имеющее отношения к реальной жизни - они как раз из жизненного опыта взяты. И пункт 4.7 напрямую Вас касается:

Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены

Что же Вам мешало сразу финальный вопрос-то озвучить? Столько воды вылито - и все зря... Вот поставят водосчетчики - будете доплачивать за лишние кубометры

Ну ладно, поворчали, теперь по делу.
Как уже сказал gunslinger, механизм закладок в MS Word является очень удобной штукой, чтобы вставлять на место закладки какие-либо свои данные. Вот для начала, можете теорию почитать, а я пока пример накидаю. Было бы, конечно, не худо версию Вашу знать, но так как это не известно - сделаю на том, что под рукой есть (ХЕ6)

@Мистер Джек · 11.07.2019, 06:34 **[ТС]**

Пробовал и в visual studio и visual c++

Ругается код

C++
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
   vVarApp=CreateOleObject("Word.Application");
 
   vVarDocs=vVarApp.OlePropertyGet("Documents");
   vVarDocs.OleProcedure("Add",WideString(aCurrPath+"\\protokol1.dotx"), false, 0);
   vVarDoc=vVarDocs.OleFunction("Item", 1);
 
   vVarDoc.OleProcedure("Activate");
 
   vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
   vVarDoc.OleProcedure("Activate");
   vVarParagraphs.OleProcedure("Add");
   vVarParagraph=vVarParagraphs.OleFunction("Item", 1);
 
   Zamena("@661", myProt1.aP10[0], false);
/////////////////////////////////////////////////
 
void TfMain::Zamena(AnsiString s1, AnsiString s2, bool f)
{
   WideString s[2];
 
    s[0]=s1; s[1]=s2;
   if(f) s[1]+="^p";
 
  vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", s[0], false, false, false, false, false, true, 1, false, s[1], 2);
}

Добавил
Variant перед vVar

Пишет типо это нарушает защиту

@TrollHammer · 11.07.2019, 07:55

Сообщение от Мистер Джек

Пробовал и в visual studio и visual c++

Что-о-о?

Билдеровский код в вижале? Круто!

@D1973 · 11.07.2019, 08:26

Только для C++ Builder и только для линейки ХЕ+
Код постарался прокомментировать, так что захотите - разберетесь...

@Мистер Джек · 11.07.2019, 09:07 **[ТС]**

Спасибо! Товарищи не ругаетесь. Если сможете помогите еще.

Нужно довести но автоматизма. Есть сайт с полями. Там стоит плагин Elementor. Туда вводятся данные в каждое поле. Необходимо после того как пользователь ввел эти данные и нажал кнопку отправить. В word в поля ключей автоматически подставились эти слова. Потом сохранился файл. Я дико извиняюсь за мой каламбур, то что растянул эту тему. Если несложно помогите о великие гуру.

@D1973 · 11.07.2019, 09:21

при чем тут сайт и С++Builder? С сайтами работают при помощи других средств...

@Мистер Джек · 11.07.2019, 11:21 **[ТС]**

В поля вводится инфа на странице сайта. При отправке, отправляется на указ. почту. Нужно сделать, как то с почты автоматом передавалась инфа или как то перехватить сообщение. Весь текст отправить в прогу.

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

@D1973 Модератор 9935 / 6472 / 2458 Регистрация: 21.01.2014 Сообщений: 27,440 Записей в блоге: 3
	10.07.2019, 18:13
	Мистер Джек, блин, да покажите Вы уже полные данные и озвучьте задачу `полностью`... Вы озвучиваете одно - Вам дают решение - в результате, Вам надо еще что-то, а то, что Вы озвучили до этого - лишь какой-то кусок... Это, в конце концов, `в Ваших интересах`, описать задачу `максимально полно и точно` с приложением всех необходимых данных и описания нужных результатов работы. Именно в Ваших - лично мне это нахрен не надо - заморачиваться не пойми над чем!!! Думайте сами! 0

@gunslinger place status here 3192 / 2229 / 640 Регистрация: 20.07.2013 Сообщений: 6,031
	11.07.2019, 01:18
	Раньше это называлось, если не ошибаюсь, закладками (вроде bookmarks). Делал (давным-давно) заполнение "шаблона" данными в Visual FoxPro (VFP), да и то, используя код предыдущего сотрудника. К чему это я - хочу лишь сказать, что "алгоритм" должен быть аналогичен (возможно, подобно тому, как это делается в предыдущем посте). По той причине, что VFP - продукт конторы Билла Гейтса. 0

@Мистер Джек 1 / 1 / 0 Регистрация: 07.07.2019 Сообщений: 381
	11.07.2019, 09:07 [ТС]
	Спасибо! Товарищи не ругаетесь. Если сможете помогите еще. Нужно довести но автоматизма. Есть сайт с полями. Там стоит плагин Elementor. Туда вводятся данные в каждое поле. Необходимо после того как пользователь ввел эти данные и нажал кнопку отправить. В word в поля ключей автоматически подставились эти слова. Потом сохранился файл. Я дико извиняюсь за мой каламбур, то что растянул эту тему. Если несложно помогите о великие гуру. 0

@D1973 Модератор 9935 / 6472 / 2458 Регистрация: 21.01.2014 Сообщений: 27,440 Записей в блоге: 3
	11.07.2019, 09:21
	при чем тут сайт и С++Builder? С сайтами работают при помощи других средств... 0

@Мистер Джек 1 / 1 / 0 Регистрация: 07.07.2019 Сообщений: 381
	11.07.2019, 11:21 [ТС]
	В поля вводится инфа на странице сайта. При отправке, отправляется на указ. почту. Нужно сделать, как то с почты автоматом передавалась инфа или как то перехватить сообщение. Весь текст отправить в прогу. 0