Поиск всех файлов .txt в нужной папке

@jeka2993 · Регистрация: 07.09.2018

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

Здравствуйте! Нужна помощь! Мне нужно добавить в ListBox1 названия всех файлов txt и чтобы при двойном клике открывало их в Memo1. Как сделать поиск всех файлов формата txt в нужной папке?
И еще хотел спросить как сохранить в нужную папку текст с мемо1. Мне нужно сделать шаг назад и в другую папку закинуть.

C++

1	Memo1->Lines->SaveToFile("text.txt");

Работаю в среде Rad Studio 10.2

@D1973 · 22.11.2018, 21:25

C++

#include <System.IOUtils.hpp>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Загрузка списка файлов в ListBox
  TStringDynArray A = TDirectory::GetFiles("c:\\tmp", "*.txt", TSearchOption::soTopDirectoryOnly);
  for(int i = 0; i < A.Length; i++)
   ListBox1->Items->Add(A[i]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
//Загрузка выбранного файла в Мемо
  Memo1->Lines->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]);
}

@jeka2993 · 22.11.2018, 22:10 **[ТС]**

Все работает, спасибо,но немного не так как хотелось. Вопрос такой, в ListBox указывается путь, как можно сделать чтобы был список с именами файлов?
Например документы текст1, текст2, текст3 были в листбокс, а не весь путь?

@volvo · 22.11.2018, 22:45

C++

1 2	// ... ListBox1->Items->Add(ExtractFileName(A[i])); // В предыдущем коде написать так

@jeka2993 · 22.11.2018, 22:47 **[ТС]**

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

C++Выделить код
1
2
// ...
ListBox1->Items->Add(ExtrtactFileName(A[i])); // В предыдущем коде написать так

Выдает ошибку, возможно нужно добавить библиотеку?
[bcc32 Error] Unit1.cpp(25): E2268 Call to undefined function 'ExtrtactFileName'
Full parser context
Unit1.cpp(19): parsing: void _fastcall TForm1::Button1Click(TObject *)

@volvo · 22.11.2018, 22:48

Там опечатка, t лишняя, нужно просто ExtractFileName

@jeka2993 · 22.11.2018, 22:50 **[ТС]**

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

ListBox1->Items->Add(ExtractFileName(A[i])); // В предыдущем коде написать так

А чтоб без точки никак нельзя сделать?)
Выводит имя файла .txt, нужно только имя

@volvo · 22.11.2018, 22:55

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    //Загрузка списка файлов в ListBox
    TStringDynArray A = TDirectory::GetFiles("c:\\tmp", "*.txt", TSearchOption::soTopDirectoryOnly);
    for(int i = 0; i < A.Length; i++) ListBox1->Items->Add(TPath::GetFileNameWithoutExtension(A[i]));
}

@jeka2993 · 22.11.2018, 22:58 **[ТС]**

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

//Загрузка списка файлов в ListBox
* * TStringDynArray A = TDirectory::GetFiles("c:\\tmp", "*.txt", TSearchOption::soTopDirectoryOnly);
* * for(int i = 0; i < A.Length; i++) ListBox1->Items->Add(TPath::GetFileNameWithoutExtension(A[i]));

Спасибо ребята! Вы лучшие! Очень выручили, а главное быстро!

Поиск всех файлов .txt в нужной папке

Решение

Решение

@jeka2993 0 / 0 / 0 Регистрация: 07.09.2018 Сообщений: 18
	22.11.2018, 22:10 [ТС]	3
	Все работает, спасибо,но немного не так как хотелось. Вопрос такой, в ListBox указывается путь, как можно сделать чтобы был список с именами файлов? Например документы текст1, текст2, текст3 были в листбокс, а не весь путь? 0

@jeka2993 0 / 0 / 0 Регистрация: 07.09.2018 Сообщений: 18
	22.11.2018, 22:47 [ТС]	5
	Сообщение от volvo C++Выделить код 1 2 // ... ListBox1->Items->Add(ExtrtactFileName(A[i])); // В предыдущем коде написать так Выдает ошибку, возможно нужно добавить библиотеку? [bcc32 Error] Unit1.cpp(25): E2268 Call to undefined function 'ExtrtactFileName' Full parser context Unit1.cpp(19): parsing: void _fastcall TForm1::Button1Click(TObject *) 0

@volvo Супер-модератор 32996 / 21302 / 8180 Регистрация: 22.10.2011 Сообщений: 36,598 Записей в блоге: 8
	22.11.2018, 22:48	6
	Там опечатка, t лишняя, нужно просто ExtractFileName 0

@jeka2993 0 / 0 / 0 Регистрация: 07.09.2018 Сообщений: 18
	22.11.2018, 22:50 [ТС]	7
	Сообщение от volvo ListBox1->Items->Add(ExtractFileName(A[i])); // В предыдущем коде написать так А чтоб без точки никак нельзя сделать?) Выводит имя файла .txt, нужно только имя 0

@jeka2993 0 / 0 / 0 Регистрация: 07.09.2018 Сообщений: 18
	22.11.2018, 22:58 [ТС]	9
	Сообщение от volvo //Загрузка списка файлов в ListBox * * TStringDynArray A = TDirectory::GetFiles("c:\\tmp", ".txt", TSearchOption::soTopDirectoryOnly); * for(int i = 0; i < A.Length; i++) ListBox1->Items->Add(TPath::GetFileNameWithoutExtension(A[i])); Спасибо ребята! Вы лучшие! Очень выручили, а главное быстро! 0