Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.79/19: Рейтинг темы: голосов - 19, средняя оценка - 4.79
4 / 4 / 0
Регистрация: 14.03.2010
Сообщений: 69
1

Запись текста в DOC файл

15.05.2010, 23:49. Показов 3512. Ответов 11
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Ребят если не сложно набросайте простенький пример по записи данных с Edit"ов в доковский файл.
А то я читаю пытаюсь разобраться а что то не получается=(((((
0
Лучшие ответы (1)
Сообщение: #730784
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 15.05.2010, 23:49
Ответы с готовыми решениями:

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

Запись и чтение в doc-файл
Подскажите, пожалуйста, как произвести запись/чтение файл.doc

Чтение, редактирование и запись в .doc файл
у меня совсем небольшой опыт программирования, поэтому прошу помощи... нужно открыть .doc файл,...

Чтение и запись в doc\docx файл
искал на форуме и в гугле и так не нашёл нормальной статьи как считать данные из файла doc\docx и...

11
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
16.05.2010, 20:05 2
Лучший ответ Сообщение было отмечено как решение

Решение

Вот тебе простенький пример
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

AnsiString str;
Variant v,vVarParagraph,Var,Dms,Word;
Word = CreateOleObject("Word.Application");
Word.OlePropertySet("Visible", false);
Variant Doc = Word.OlePropertyGet("Documents");
Doc.OleProcedure("Add");
 
if(Doc.OlePropertyGet("Count") != 1)
{
MessageBox(0, "Îøèáêà ïðè ñîçäàíèè äîêóìåíòîâ",
"Îøèáêà", MB_OK);
 
return;
}
Dms=Doc.OleFunction("Item",1);
//Ñìîòðåòü áóäåì òîæå íà ïåðâûé äîêóìåíò
Dms.OleProcedure("Activate");
Var=Dms.OlePropertyGet("Paragraphs");
 
Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
Var.OleProcedure("Add");
str="ÊÎËÈ×ÅÑÒÂÎ";
vVarParagraph=Var.OleFunction("Item",1);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",22);
v.OlePropertySet("Bold",true);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",1);
Var.OleProcedure("Add");
Var.OleProcedure("Add");
Var.OleProcedure("Add");
str = "\t\t"+Label2->Caption+"\t\t\t\t\t\t\t\t"+Label3->Caption;
vVarParagraph=Var.OleFunction("Item", 4);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
str = "\t\t"+Label4->Caption+"\t\t\t\t\t\t\t\t"+Label5->Caption;
vVarParagraph=Var.OleFunction("Item", 5);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
str = "\t\t"+Label6->Caption+"\t\t\t\t\t\t\t\t"+Label7->Caption;
vVarParagraph=Var.OleFunction("Item", 6);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
str = "\t\t"+Label8->Caption+"\t\t\t\t\t\t\t\t"+Label9->Caption;
vVarParagraph=Var.OleFunction("Item", 7);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
3
11 / 11 / 7
Регистрация: 23.12.2009
Сообщений: 300
16.05.2010, 21:35 3
а что с ним дальше делать?
ато оно создает процес винворд а посмотреть творение в меня не получается
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
16.05.2010, 21:55 4
Hovercat ,тебе что весь код показать?
0
11 / 11 / 7
Регистрация: 23.12.2009
Сообщений: 300
16.05.2010, 22:21 5
Цитата Сообщение от Sasha Посмотреть сообщение
Hovercat ,тебе что весь код показать?
если можно, то покажи
а не то скажи как сделать чтоб посмотреть созданный документ
0
125 / 65 / 9
Регистрация: 19.04.2010
Сообщений: 196
16.05.2010, 22:28 6
Word.OlePropertySet("Visible", true);

будешь видить как ворд все твое творение делает

Добавлено через 1 минуту
Самый лучший хелп это открываешь Ворд переходешь в режим программирования и Идешь в ее справку
Дальше Нет тебе все сам раскажет.
Тебе только с Проперту Функцтион и Процедуре работать придется

Добавлено через 1 минуту
Сам на работе делал чтобы отчеты в Ворл писать можно было.
Скажу сразу чтобы твоя прога работала и с 2003 и 2007 вордом лучше использовать OLE тогда все будет пахать как надо.
Если конечно не будешь свойства 2007 использовать которых нет в 2003
2
11 / 11 / 7
Регистрация: 23.12.2009
Сообщений: 300
16.05.2010, 22:55 7
Цитата Сообщение от Sudoki Посмотреть сообщение
переходешь в режим программирования
а как перейти в режим програмирования
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
16.05.2010, 23:02 8
Цитата Сообщение от Hovercat Посмотреть сообщение
если можно, то покажи
а не то скажи как сделать чтоб посмотреть созданный документ
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108

#include <sysvari.h>
#include "ComObj.hpp"
void __fastcall TStaticF::WordClick(TObject *Sender)
{
 AnsiString str;
 Variant v,vVarParagraph,Var,Dms,Word;
 Word = CreateOleObject("Word.Application");
 Word.OlePropertySet("Visible", false);
 Variant Doc = Word.OlePropertyGet("Documents");
 Doc.OleProcedure("Add");
 
 if(Doc.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, "Îøèáêà ïðè ñîçäàíèè äîêóìåíòîâ",
                 "Îøèáêà", MB_OK);
 
  return;
 }
 Dms=Doc.OleFunction("Item",1);
 //Ñìîòðåòü áóäåì òîæå íà ïåðâûé äîêóìåíò
 Dms.OleProcedure("Activate");
 Var=Dms.OlePropertyGet("Paragraphs");
 
 Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
 Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
 Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
 Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
 Var.OleProcedure("Add");
 str="ÊÎËÈ×ÅÑÒÂÎ";
 vVarParagraph=Var.OleFunction("Item",1);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",22);
 v.OlePropertySet("Bold",true);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",1);
 Var.OleProcedure("Add");
 Var.OleProcedure("Add");
 Var.OleProcedure("Add");
 str = "\t\t"+Label2->Caption+"\t\t\t\t\t\t\t\t"+Label3->Caption;
 vVarParagraph=Var.OleFunction("Item", 4);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label4->Caption+"\t\t\t\t\t\t\t\t"+Label5->Caption;
 vVarParagraph=Var.OleFunction("Item", 5);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label6->Caption+"\t\t\t\t\t\t\t\t"+Label7->Caption;
 vVarParagraph=Var.OleFunction("Item", 6);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label8->Caption+"\t\t\t\t\t\t\t\t"+Label9->Caption;
 vVarParagraph=Var.OleFunction("Item", 7);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label10->Caption+"\t\t\t\t\t"+Label11->Caption;
 vVarParagraph=Var.OleFunction("Item", 8);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label12->Caption+"\t\t\t\t\t\t"+Label13->Caption;
 vVarParagraph=Var.OleFunction("Item", 9);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label14->Caption+"\t\t"+Label15->Caption;
 vVarParagraph=Var.OleFunction("Item", 10);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label16->Caption+"\t\t\t\t"+Label17->Caption;
 vVarParagraph=Var.OleFunction("Item", 11);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Word.OlePropertySet("Visible", true);
 keybd_event(VK_CONTROL, 0, 0 ,0);
 keybd_event(VK_END, 0, 0 ,0);
 keybd_event(VK_END, 0, KEYEVENTF_KEYUP,0);
 keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP,0);
}
2
4 / 4 / 0
Регистрация: 14.03.2010
Сообщений: 69
18.05.2010, 00:55  [ТС] 9
Sasha, если не сложно можешь мне на мыло скинуть данный проект????? ну или сюда архивчик
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
18.05.2010, 09:19 10
Цитата Сообщение от A1mazik Посмотреть сообщение
Sasha, если не сложно можешь мне на мыло скинуть данный проект????? ну или сюда архивчик
проект сильно большой поэтому выкладывать не стану, но на вопросы которые будешь ставить отвечу
0
4 / 4 / 0
Регистрация: 14.03.2010
Сообщений: 69
07.06.2010, 23:06  [ТС] 11
Sasha, можеш сказать что у тя за компоненты на форме расположены???
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
08.06.2010, 09:38 12
Editы и Lablы
0
08.06.2010, 09:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 08.06.2010, 09:38
Помогаю со студенческими работами здесь

Копирование текста из doc-файла в txt-файл
как с помощью бат файла скопировать текст с файла (.doc) в другой файл (.txt) и наоборот, если так...

Запись текста в файл, чтение текста из файла, перепись текста из одного файла в другой файл
Составить программу, в которой организованы следующие действия: запись текста в файл, чтение...

Запись текста в файл
namespace ConsoleApp1 { class Program { static void Main(string args) ...

Запись текста в файл
Всем привет!) Помогите пожалуйста с программкой на C#. Мне нужно записать текст введенный в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru