Ускорить перенос данных из StringGrid-а в таблицу документа Word

@serg6789 · Регистрация: 14.01.2019

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

помогите пожалуйста, в вопросе потоков новенький , не совсем понимаю принцип работы и действия, есть код добавления из стринггрида в ворд (таблицу), но очень долго особенно если записей в стринггриде более 1000 строк
как реализовать побыстрее выполнение кода, читал про потоки это возможно , помогите пожалуйста, может кто сталкивался?

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
28
29
if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
   if (MessageDlg("У ВАС АКТИВИРОВАН WORD?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)
 
            {
 
vVarApp.OlePropertySet("Visible",false);
vVarDocs=vVarApp.OlePropertyGet("Documents").
OleFunction("Open",  WideString(ExtractFileDir(ParamStr(0))+"\\1.doc")) ;
vVarTable=vVarDocs.OlePropertyGet("Tables").OleFunction("Item",1);
for (int i=1; i<StringGrid1->RowCount-1; i++){
for (int j=0; j<StringGrid1->ColCount-1; j++)
                {
   vVarCell=vVarTable.OleFunction("Cell",i+2,j+1);
   vVarCell.OleFunction("Select");
   vVarCell.OlePropertyGet("Range").
         OlePropertySet("Text", WideString(StringGrid1->Cells[j][i]));
         if (j%4==0) {
v=vVarTable.OlePropertyGet("Rows").OleFunction("Item",i+2).OleFunction("Select");
  vVarApp.OlePropertyGet("Selection").OleProcedure("InsertRowsBelow",1);
  ProgressBar1->Position +=1;
}}}
ProgressBar1->Position =0;
vVarApp.OlePropertySet("Visible",true);
                        }

@volvo · 04.11.2020, 15:09

\tab - это код для символа табуляции в RTF, так что где-то в строке есть символ табуляции, возможно, нужно пройти по строке перед тем, как ее переносить в Word, и поубирать оттуда всю табуляцию.

@serg6789 · 04.11.2020, 15:35 **[ТС]**

volvo,

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
{
lst21=new TStringList();
RichEdit1->Font->Size=12;
StringGrid3->RowCount=StringGrid2->RowCount+1;
for (int i = 1; i < StringGrid2->RowCount+1; i++) {
     StringGrid3->Rows[i]=StringGrid2->Rows[i];
 
     lst21->Clear();
     RichEdit1->Clear();
     RichEdit1->Text=StringGrid3->Cells[1][i];
     StringGrid3->Objects[1][i] = new TObjClass(GetRTF(RichEdit1), lst21);
 
 
       RichEdit1->Clear();
       RichEdit1->Text=StringGrid3->Cells[2][i];
if (StringGrid3->Cells[6][i].Pos("=")){
       lst21->Clear();
       lst21->Text=StringGrid3->Cells[6][i];
       lst21->Text=StringReplace(lst21->Text, "!","\r\n",TReplaceFlags()<< rfReplaceAll << rfIgnoreCase);
         do
      {
        lst21->Text = StringReplace(lst21->Text, "\r\n\r\n", "\r\n", TReplaceFlags() << rfReplaceAll);
      } while (lst21->Text.Pos("\r\n\r\n") > 0);
         for(int f = 0; f < lst21->Count; f++)
        {
 
        RichEdit1->SelStart=StrToInt(lst21->Names[f])-1;
        RichEdit1->SelLength=StrToInt(lst21->ValueFromIndex[f]);
        RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsStrikeOut;
 
            }
        StringGrid3->Objects[2][i] = new TObjClass(GetRTF(RichEdit1), lst21);
}
else
{
StringGrid3->Objects[2][i] = new TObjClass(GetRTF(RichEdit1), lst21);
}
 
 
 
 
     lst21->Clear();
     RichEdit1->Clear();
     RichEdit1->Text=" "+StringGrid3->Cells[3][i];
     StringGrid3->Objects[3][i] = new TObjClass(GetRTF(RichEdit1), lst21);
 
     lst21->Clear();
     RichEdit1->Clear();
     RichEdit1->Text=" "+StringGrid3->Cells[4][i];
     StringGrid3->Objects[4][i] = new TObjClass(GetRTF(RichEdit1), lst21);
}
   StringGrid3->Invalidate();
   StringGrid3->RowCount-=1;
}
переношу из oдного стринггрид в другой и регистрирую текст в rtf при выводе на печать

Добавлено через 59 секунд
volvo,
Спасибо, понял пройдусь, скажу результат

Добавлено через 11 минут
volvo, я правильно понял, что проверять там где добавляем в ворд , а не при регистрациии
где то здесь?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
for(int i = 1; i < StringGrid3->RowCount; i++)
    {
        for(int j = 1; j<=4; j++)
        {
            TObjClass *obj = static_cast<TObjClass*>(StringGrid3->Objects[j][i]);
            String as = obj->s;
            as = as.Delete(1, as.Pos("\r\n"));
            as = as.Delete(as.LastDelimiter("}") - 12, as.Length());
            st = st + as + tab;
        }
        st = st + newline;
    }
    st = String("{\\rtf1\\ansi\\ansicpg1251\\deff0\\deflang1049{\\fonttbl{\\f0\\fnil\\fcharset204 Times New Roman;}{\\f1\\fnil\\fcharset0 Times New Roman;}}") +
        st + "}";
    CopyRTFToClipboard(st);
    vVarApp.OlePropertyGet("Selection").OlePropertyGet("Range").OleProcedure("Paste");

@volvo · 04.11.2020, 17:05

А в каком месте при печати появляется эта строка? Может, не надо добавлять tab в конце строки, перед newline? Я не помню уже формат таблиц Word-а, а проверить сейчас негде.

@serg6789 · 04.11.2020, 17:30 **[ТС]**

volvo,
красным это слэши между ними будет фамилия они получается смещаются
и в конце строк синим

@serg6789 · 04.11.2020, 17:33 **[ТС]**

volvo,
получается в конце строк где во втором столбце
красным веделены слэши между ними БУДЕТ потом фамилия
и синим вообщем только во втором столбце
и то что по два пары слэша это правильно будет две фамилии

@volvo · 04.11.2020, 17:43

Что-то я в VirtualBox-е запустил свой код, вывел на печать через CutePDF (чтобы в pdf-файл сохранилось), не вижу никаких лишних символов. Можешь тоже самое сделать, и показать содержимое файла, которое печатается (хотя бы зацензуренное, но чтобы было видно расположение слов) и скрин результирующего PDF-файла, на котором видно лишние символы? Чтобы можно было хотя бы воспроизвести это поведение...

@serg6789 · 04.11.2020, 17:43 **[ТС]**

volvo,
и где SD-1 и SD-2 не Т должно быть а №

@volvo · 04.11.2020, 17:44

А, вижу... Да, значит, надо убирать \tab перед переносом строки при подготовке данных к переносу.

@serg6789 · 04.11.2020, 17:47 **[ТС]**

volvo,

@serg6789 · 04.11.2020, 17:48 **[ТС]**

volvo,

Сообщение от serg6789

st = st + as + tab;

здесь?

@serg6789 · 04.11.2020, 17:59 **[ТС]**

Сообщение от volvo

А, вижу... Да, значит, надо убирать \tab перед переносом строки при подготовке данных к переносу.

вот результат убрал tab

Сообщение от serg6789

st = st + as + tab;

@volvo · 04.11.2020, 18:08

Не-не-не... Ты убрал везде. А надо только там, где заканчивается строка.

@serg6789 · 04.11.2020, 18:26 **[ТС]**

volvo, подскажите пожалуйста в чем и как быть если \\ tab выскакивает в строках в которых есть исправления
точнее получается следующее: если во втором столбце есть исправления то \\tab// в конце стоки второго столбца хотя // должно быть в третьем столбце

@serg6789 · 04.11.2020, 19:48 **[ТС]**

volvo,
зеленом отметил, что правильно формируется, а красным, что нет... заметил вот что где не правильно там в конце
\\tab с двумя слэшами, а где верно с одним как мне убрать этот tab и сформировать таблицу в ворде на печать

@serg6789 · 04.11.2020, 21:06 **[ТС]**

volvo, а где она заканчивается?

@serg6789 · 04.11.2020, 21:17 **[ТС]**

volvo,

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
lst21=new TStringList();
RichEdit1->Font->Size=12;
StringGrid3->RowCount=StringGrid2->RowCount+1;
for (int i = 1; i < StringGrid2->RowCount+1; i++) {
     StringGrid3->Rows[i]=StringGrid2->Rows[i];
 
     lst21->Clear();
     RichEdit1->Clear();
     RichEdit1->Text=StringGrid3->Cells[1][i]+"\n";
     StringGrid3->Objects[1][i] = new TObjClass(GetRTF(RichEdit1), lst21);
 
 
 
 
     if (StringGrid3->Cells[6][i].Pos('=')) {
        lst21->Clear();
        lst21->Add(StringGrid3->Cells[6][i]);
        lst21->Text=StringReplace(lst21->Text, "!","\r\n",TReplaceFlags()<< rfReplaceAll << rfIgnoreCase);
         do
      {
        lst21->Text = StringReplace(lst21->Text, "\r\n\r\n", "\r\n", TReplaceFlags() << rfReplaceAll);
      } while (lst21->Text.Pos("\r\n\r\n") > 0);
     lst21->Text=StringReplace(lst21->Text, "\n","",TReplaceFlags()<< rfReplaceAll << rfIgnoreCase);
 
     RichEdit1->Clear();
     RichEdit1->Text=StringGrid3->Cells[2][i];
     RichEdit1->Text= StringReplace(RichEdit1->Text, "\r\n", "", TReplaceFlags() << rfReplaceAll);
     RichEdit1->Text= StringReplace(RichEdit1->Text, "\n\r\n", "", TReplaceFlags() << rfReplaceAll);
 
     for(int f = 0; f < lst21->Count; f++)
        {
        RichEdit1->SelStart=StrToInt(lst21->Names[f])-1;
        RichEdit1->SelLength=StrToInt(lst21->ValueFromIndex[f]);
        RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsStrikeOut;
        }
 
 
    StringGrid3->Objects[2][i] = new TObjClass(GetRTF(RichEdit1), lst21);
 
}
else
{
     lst21->Clear();
     RichEdit1->Clear();
     RichEdit1->Text=StringGrid3->Cells[2][i]+"\n";
     StringGrid3->Objects[2][i] = new TObjClass(GetRTF(RichEdit1), lst21);
}
 
 
 
 
     lst21->Clear();
     RichEdit1->Clear();
     RichEdit1->Text=StringGrid3->Cells[3][i]+"\n";
     StringGrid3->Objects[3][i] = new TObjClass(GetRTF(RichEdit1), lst21);
 
 
     lst21->Clear();
     RichEdit1->Clear();
     RichEdit1->Text=StringGrid3->Cells[4][i]+"\n";
     StringGrid3->Objects[4][i] = new TObjClass(GetRTF(RichEdit1), lst21);
 
 
 
}
 
 
   StringGrid3->Invalidate();
   StringGrid3->RowCount-=1;

Этим кодом добился следующего результата
но \tab и ФИО-// остались в исправленной именно только в исправленной , строке , как быть уже голову сломал

@serg6789 · 04.11.2020, 22:36 **[ТС]**

volvo, Владимир, пожалуйста, помогите, прошу Вас, не знаю как быть, уже все перепробовал, не выходит...((((

Добавлено через 48 минут
volvo,

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
28
29
30
31
32
33
34
35
36
37
38
39
String st = "";
    String as = "";
    String tab = "\\tab";
    String tab1="tab";
    String newline = "\\par\r\n";
 
    for(int i = 1; i < StringGrid3->RowCount; i++)
    {
        for(int j = 1; j<=4; j++)
        {
            if (StringGrid3->Cells[j][i].Pos("*")) {
                TObjClass *obj = static_cast<TObjClass*>(StringGrid3->Objects[j][i]);
                String as = obj->s;
                as = as.Delete(1, as.Pos("\r\n"));
                as = as.Delete(as.LastDelimiter("}") - 12, as.Length());
                st = st + as+tab1;
                //ShowMessage("1\r\n"+st);
            }
 
            if (!StringGrid3->Cells[j][i].Pos("*")) {
                TObjClass *obj = static_cast<TObjClass*>(StringGrid3->Objects[j][i]);
                String as = obj->s;
                as = as.Delete(1, as.Pos("\r\n"));
                as = as.Delete(as.LastDelimiter("}") - 12, as.Length());
                st = st + as+ tab;
                //ShowMessage("2\r\n"+st);
            }
                }
 
        st = st + newline;
            }
        st = String("{\\rtf1\\ansi\\ansicpg1251\\deff0\\deflang1049{\\fonttbl{\\f0\\fnil\\fcharset204 Times New Roman;}{\\f1\\fnil\\fcharset0 Times New Roman;}}") +
        st + "}";
 
 
 
 
    CopyRTFToClipboard(st);
    vVarApp.OlePropertyGet("Selection").OlePropertyGet("Range").OleProcedure("Paste");

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

закоментировал вывело четко все

Добавлено через 7 минут
volvo, работает не корректно

@volvo · 05.11.2020, 09:52

Опять же, проверять негде, но первое, что я бы попробовал сделать, глядя на приведенные скрины - это просто попробовал бы все \\ в строке заменить на один бэкслеш перед отсылкой в клипбоард. Как-то вот так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    for(int i = 1; i < StringGrid1->RowCount; i++)
    {
        for(int j = 0; j < StringGrid1->ColCount; j++)
        {
            TObjClass *obj = static_cast<TObjClass*>(StringGrid1->Objects[j][i]);
            String as = obj->s;
            as = as.Delete(1, as.Pos("\r\n"));
            as = as.Delete(as.LastDelimiter("}") - 12, as.Length());
            st = st + as + tab;
        }
        st = st + newline;
    }
    
    st = String("{\\rtf1\\ansi\\ansicpg1251\\deff0\\deflang1049{\\fonttbl{\\f0\\fnil\\fcharset204 Tahoma;}{\\f1\\fnil\\fcharset0 Tahoma;}}") +
        StringReplace(st, "\\\\", "\\", TReplaceFlags() << rfReplaceAll) + "}";

@serg6789 · 05.11.2020, 23:10 **[ТС]**

volvo,
про слэши Вы были правы. Спасибо большое!!!!!

Новые блоги и статьи Все статьи Все блоги /
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .

@volvo Супер-модератор 33455 / 21555 / 8248 Регистрация: 22.10.2011 Сообщений: 37,008 Записей в блоге: 12
	04.11.2020, 15:09
	`\tab` - это код для символа табуляции в RTF, так что где-то в строке есть символ табуляции, возможно, нужно пройти по строке перед тем, как ее переносить в Word, и поубирать оттуда всю табуляцию. 0

@volvo Супер-модератор 33455 / 21555 / 8248 Регистрация: 22.10.2011 Сообщений: 37,008 Записей в блоге: 12
	04.11.2020, 17:05
	А в каком месте при печати появляется эта строка? Может, не надо добавлять tab в конце строки, перед newline? Я не помню уже формат таблиц Word-а, а проверить сейчас негде. 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	04.11.2020, 17:30 [ТС]
	volvo, красным это слэши между ними будет фамилия они получается смещаются и в конце строк синим 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	04.11.2020, 17:33 [ТС]
	volvo, получается в конце строк где во втором столбце красным веделены слэши между ними БУДЕТ потом фамилия и синим вообщем только во втором столбце и то что по два пары слэша это правильно будет две фамилии Миниатюры 0

@volvo Супер-модератор 33455 / 21555 / 8248 Регистрация: 22.10.2011 Сообщений: 37,008 Записей в блоге: 12
	04.11.2020, 17:43
	Что-то я в VirtualBox-е запустил свой код, вывел на печать через CutePDF (чтобы в pdf-файл сохранилось), не вижу никаких лишних символов. Можешь тоже самое сделать, и показать содержимое файла, которое печатается (хотя бы зацензуренное, но чтобы было видно расположение слов) и скрин результирующего PDF-файла, на котором видно лишние символы? Чтобы можно было хотя бы воспроизвести это поведение... 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	04.11.2020, 17:43 [ТС]
	volvo, и где SD-1 и SD-2 не Т должно быть а № 0

@volvo Супер-модератор 33455 / 21555 / 8248 Регистрация: 22.10.2011 Сообщений: 37,008 Записей в блоге: 12
	04.11.2020, 17:44
	А, вижу... Да, значит, надо убирать \tab перед переносом строки при подготовке данных к переносу. 0

@volvo Супер-модератор 33455 / 21555 / 8248 Регистрация: 22.10.2011 Сообщений: 37,008 Записей в блоге: 12
	04.11.2020, 18:08
	Не-не-не... Ты убрал везде. А надо только там, где заканчивается строка. 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	04.11.2020, 18:26 [ТС]
	volvo, подскажите пожалуйста в чем и как быть если \\ tab выскакивает в строках в которых есть исправления точнее получается следующее: если во втором столбце есть исправления то \\tab// в конце стоки второго столбца хотя // должно быть в третьем столбце 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	04.11.2020, 19:48 [ТС]
	volvo, зеленом отметил, что правильно формируется, а красным, что нет... заметил вот что где не правильно там в конце \\tab с двумя слэшами, а где верно с одним как мне убрать этот tab и сформировать таблицу в ворде на печать Миниатюры 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	04.11.2020, 21:06 [ТС]
	volvo, а где она заканчивается? 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	05.11.2020, 23:10 [ТС]
	volvo, про слэши Вы были правы. Спасибо большое!!!!! 0