Opendialog и Savedialog

@пк00мук · Регистрация: 08.06.2011

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

Вообщем работаю с компонентоми Opendialog и Savedialog.

Суть задачи, есть форма, с двумя мемо, с двумя этими компонентами и кнопкой преобразовать.
Opendialog - добавляем файлы только ШТМЛ, отображаем их в мемо1, далее берем из мемо1, и преобразовываем, тоесть удаляем все "\r\n" и выводим в мемо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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (!OpenDialog1->Execute()) return;
   Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for(int i = 0; i < Memo1->Lines->Count; i ++)
{
Memo2->Text = StringReplace(Memo1->Text,"\r\n", " ", TReplaceFlags() << rfReplaceAll);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 if (!SaveDialog1->Execute()) return;
 Memo2->Lines->SaveToFile(SaveDialog1->FileName);
}

Теперь сам вопрос: мне нужно сделать так, что бы Opendialog выбирал не один файл по умолчанию, а можно было выбрать несколько, далее они все выведутся в мемо1 с подзаголовками, типо "файл1" и его текст и тд. Далее нажимаем преобразовать, и в мемо2 выводится тоже самое с подзаголовками и тд в строку. А при нажатии на SaveDialog оно или предлагало поочередно сохранить, допустим те 3 файла с тем же именем, или предлагала выбрать название папки (ТОЛЬКО) и туда сохраняла под теми же названиями мои файлы. Тобишь мне нужно модернизировать программу для работы с несколькими файлами одновременно!

@Sasha · 22.06.2011, 11:18

Сообщение от пк00мук

Теперь сам вопрос: мне нужно сделать так, что бы Opendialog выбирал не один файл по умолчанию, а можно было выбрать несколько

Как пример могу посоветовать вот это

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
        OpenDialog1->Options.Clear();
        OpenDialog1->Options << ofFileMustExist << ofHideReadOnly << ofAllowMultiSelect << ofEnableSizing;
 
       if(OpenDialog1->Execute())
       {
 
 
 
                 for(int i=0;i<OpenDialog1->Files->Count;++i)
                {
                 Memo-> ... Add(OpenDialog1->Files->Strings[i]);
                }
 
       }

@пк00мук · 22.06.2011, 11:25 **[ТС]**

Да, появилась возможность выбирать несколько файлов, но отображает в мемо1 только первый выделенный файл

AntonChik · 22.06.2011, 11:27

Sasha, а зачем делать Clear() ?

Не по теме:

впрочем это можно сказать риторический вопрос

думаю проще просто щелкнуть в инеспекторе ручками ofAllowMultiSelect в true и все.

при нажатии на SaveDialog оно или предлагало поочередно сохранить, допустим те 3 файла с тем же именем,

три раза вызывай SaveDialog, в чем проблема.

или предлагала выбрать название папки (ТОЛЬКО) и туда сохраняла под теми же названиями мои файлы

юзай

C++
1
2
AnsiString myfolder;
SelectDirectory("Выберите папку...",L"C:\\",myfolder);

или Диалог для открытия каталога

@пк00мук · 22.06.2011, 11:33 **[ТС]**

+ без if(OpenDialog1->Execute()) return
не работает
+ Memo-> ... Add если писать add, то выдает ошибку.

Добавлено через 2 минуты
Отображает только первый выделенный файл, при всех опциях тру...

AntonChik · 22.06.2011, 11:35

Не по теме:

удалил

Add если писать add, то выдает ошибку

с++ чувствителен к регистру

@пк00мук · 22.06.2011, 12:00 **[ТС]**

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

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

C++
1
Memo->Lines->Add...

Зря смеетесь

я Все прекрасно понял Memo->Lines->Add, место Memo->Lines->LoadFromFile, но тогда в мемо1 оно выводит не текст файла а путь к ним тоесть вот это

D:\Егор\Преобразование\Исходный материал\Menu4_2_3_1_3.html
D:\Егор\Преобразование\Исходный материал\Menu4_2_3_1_2.html

А не содержимое файла

Добавлено через 21 минуту
UP

AntonChik · 22.06.2011, 12:01

все правильно, просто Sasha продемонстрировал как обращаться к списку выбранных файлов, все остальное за тобой)

@пк00мук · 22.06.2011, 12:05 **[ТС]**

Сохранить тоже не работает

C
1
2
 AnsiString myfolder;
        Memo2->Lines->SelectDirectory("Выберите папку...", "C:\\", myfolder);

C
1
[C++ Error] Unit1.cpp(48): E2316 'SelectDirectory' is not a member of 'TStrings'

Добавлено через 1 минуту

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

все правильно, просто Sasha продемонстрировал как обращаться к списку выбранных файлов, все остальное за тобой)

так я сразу нашел ofAllowMultiSelect в свойствах, только толку, если оно выбирает хоть 10 файлов, а заносит в мемо только 1

AntonChik · 22.06.2011, 12:07

елки-палки(
просто

C++
1
SelectDirectory("Выберите папку...", "C:\\", myfolder);

без всяких Memo2->Lines->...

Добавлено через 1 минуту

так я сразу нашел ofAllowMultiSelect в свойствах, только толку, если оно выбирает хоть 10 файлов, а заносит в мемо только 1

но тогда в мемо1 оно выводит не текст файла а путь к ним тоесть вот это
D:\Егор\Преобразование\Исходный материал\Menu4_2_3_1_3.html
D:\Егор\Преобразование\Исходный материал\Menu4_2_3_1_2.html

противоречие detected

@пк00мук · 22.06.2011, 12:13 **[ТС]**

Я имел ввиду, что когда я нашел ofAllowMultiSelect и поставил тру, то оно выбирало несколько файлов а заносило только 1 в мемо, и это при Memo->Lines->LoadFromFile, а если брать Memo->Lines->Add, то вроде бы оно заносит и несколько файлов, но не их содержимое а название, в чем причина, я не знаю.

если просто

C
1
2
AnsiString myfolder;
SelectDirectory("Выберите папку...",L"C:\\",myfolder);

то

C
1
[C++ Error] Unit1.cpp(49): E2268 Call to undefined function 'SelectDirectory'

AntonChik · 22.06.2011, 12:20

то оно выбирало несколько файлов а заносило только 1 в мемо

и это было я так полагаю содержимое последнего файла ибо
метод

C++
1
Memo->Lines->LoadFromFile

не добавляет строки в Memo, а полностью переписывает его содержимое.
чтоб добавлять можно использовать дополнительно TStringList например, у которого имеется аналогичный метод загрузки из файла, и уже потом из него догружать строки в мемо.

@пк00мук · 22.06.2011, 12:29 **[ТС]**

На счет содержимого файлов, то там куча ШТМЛ тегов и текста, а заносило именно название, даже не название а путь к файлу. Вот покажу сравнительно:
1) Если делать так

C
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (!OpenDialog1->Execute()) return;
   {
        for(int i=0;i<OpenDialog1->Files->Count;++i)
        {
                Memo1->Lines->Add(OpenDialog1->Files->Strings[i]);
        }
   }
}

при этом выбираю два файла ШТМЛ, то в мемо выводит вот это
D:\Егор\Преобразование\Исходный материал\Menu4_2_3_1_2.html
D:\Егор\Преобразование\Исходный материал\Menu4_2_3_1_1.html

2) Если писать так

C
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (!OpenDialog1->Execute()) return;
   {
        for(int i=0;i<OpenDialog1->Files->Count;++i)
        {
                Memo1->Lines->LoadFromFile(OpenDialog1->Files->Strings[i]);
        }
   }
}

То в мемо заносит содержимое только одного файла
D:\Егор\Преобразование\Исходный материал\Menu4_2_3_1_2.html
а второй просто пропадает кудато

HTML5
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
<!-- РЗМ-01.01 4.2.3.1.2-->
<html>
 
<head>
<title>Мин.токовая</title>
</head>
 
<body>
<p style="font-family:Lucida Console, font-size:22pt">
 
<script language="JavaScript">
var cfg1='1716';
 
var d0=0;
var d1=0;
 
var t0="";
var t1="";
  
d0=cfg1&336;
d1=cfg1&672;
 
if(d0>0) 
{t0="+";}
else{t0="-";}
if(d1>0) 
{t1="+";}
else{t1="-";}
 
</SCRIPT>
 
<table border="1" width="230" align="center" cellspacing="0" rules="" bordercolor="black">
<th height="50" colspan="2" align="center" index_exist=1 >Мин. токовая</th>
<tr> 
  <td width="85%">Пуск 37 Min I защ.</td>
  <td width="15%" adr='1716' bit="336" range="-,+">t0</td>
</tr>
<tr> 
  <td>Раб. 37 Min I защ.</td>
  <td adr='1716' bit="672" range="-,+">t1</td>
</tr>
 
</table>
</p>
 
<pre>
<p align="center">
<a href="Menu4_2_3_1_1.html">ВВЕРХ</a>
<a href="Menu4_2_3_1.html">ВЛЕВО</a>         &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="Menu4_2_3_1_3.html">ВНИЗ</a>
 
</p>
</pre>
</body>
</html>

на счет TStringList ничего не знаю, ибо только недавно начал работать с билдером.

AntonChik · 22.06.2011, 12:32

чтоб заработала SelectDirectory добавь

C++
1
#include <FileCtrl.hpp>

на счет TStringList ничего не знаю, ибо только недавно начал работать с билдером.

вот и учись, читай книжки, пользуйся поиском, про TStringList да и не только про него много всего написано.
не отвлекай людей по вопросам в духе "дважды два", начинай минимум с "6! в уме"

@Sasha · 22.06.2011, 12:41

Пишите так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TStringList *list = new TStringList();
        OpenDialog1->Options.Clear();
        OpenDialog1->Options << ofFileMustExist << ofHideReadOnly << ofAllowMultiSelect << ofEnableSizing;
 
       if(OpenDialog1->Execute())
       {
 
                for(int i=0;i<OpenDialog1->Files->Count;++i)
                {
                 list->LoadFromFile(OpenDialog1->Files->Strings[i]);
                 Memo1->Lines->Add(list->Text);
                }
 
       }
       delete list;
       list = NULL;
 
}

@пк00мук · 22.06.2011, 12:43 **[ТС]**

Я думал этот форум создан для помощи любой сложности, начиная от новичка и заканчивая экспертом, а не для занятых людей, которые иногда заходят и отписываются, если чтото уж очень сложное. Все с чего то начинают, даже с такой мелочи (для вас) как я, а форум программистов куда лучший вариант чем книга на 500 страниц. Темболее я ж не прошу написать программу с нуля как некоторые, а прошу небольшой помощи в духе "дважды два".

Добавлено через 1 минуту
Sasha, огромное вам спасибо!!! Далее сам.

AntonChik · 22.06.2011, 12:58

довольно ошибочное мнение.

Прежде чем задать вопрос, воспользуйтесь поиском - возможно ответ на него уже был дан ранее.

в правилах форума это рекомендация, но я бы взял за правило.

и еще мне нравится цитата

Вы получите ответ, если заслужите его, задавая существенный, интересный и наводящий на размышления вопрос — вопрос, неявно дающий сообществу новый опыт, а не просто пассивно требующий от других поделиться знаниями.(с)We

извиняюсь за оффтоп.

@пк00мук · 22.06.2011, 13:10 **[ТС]**

Не по теме:

Тоесть начинающим тут делать нечего по сути?

cpp_developer · 22.06.2011, 13:16

уважаемый AntonChik кое-что упустил :

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

Правила, п.2.6., что вы и сделали, собственно, а форум для таких начинающих, как мы с вами, и есть, имхо.

@пк00мук · 22.06.2011, 13:53 **[ТС]**

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

три раза вызывай SaveDialog, в чем проблема.

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@пк00мук 9 / 9 / 1 Регистрация: 08.06.2011 Сообщений: 185
	22.06.2011, 11:25 [ТС]
	Да, появилась возможность выбирать несколько файлов, но отображает в мемо1 только первый выделенный файл 0

@пк00мук 9 / 9 / 1 Регистрация: 08.06.2011 Сообщений: 185
	22.06.2011, 11:33 [ТС]
	+ без if(OpenDialog1->Execute()) return не работает + Memo-> ... Add если писать add, то выдает ошибку. Добавлено через 2 минуты Отображает только первый выделенный файл, при всех опциях тру... 0

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	22.06.2011, 12:01
	все правильно, просто Sasha продемонстрировал как обращаться к списку выбранных файлов, все остальное за тобой) 0

@пк00мук 9 / 9 / 1 Регистрация: 08.06.2011 Сообщений: 185
	22.06.2011, 12:43 [ТС]
	Я думал этот форум создан для помощи любой сложности, начиная от новичка и заканчивая экспертом, а не для занятых людей, которые иногда заходят и отписываются, если чтото уж очень сложное. Все с чего то начинают, даже с такой мелочи (для вас) как я, а форум программистов куда лучший вариант чем книга на 500 страниц. Темболее я ж не прошу написать программу с нуля как некоторые, а прошу небольшой помощи в духе "дважды два". Добавлено через 1 минуту Sasha, огромное вам спасибо!!! Далее сам. 0

@пк00мук
	22.06.2011, 13:10 [ТС]
	Не по теме: Тоесть начинающим тут делать нечего по сути? 0