VPF::Как в OpenDialog Contol узнать путь к файлу

Voldemar2004

Дата 24.12.2005, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 1
Всего: 23

Вот код на VB 6: открыть файл и узнать полный путь к нему + имя без расширения. В С++ Builder есть функции, наподобие Left(StringValue, Length), Right(StringValue, Length) в VB, которые отсекают лишнюю часть справа/слева соответственно?

Код

Private Sub cmdOpen_Click()

Dim dbPath As String
Dim RecSourceName As String

CommonDialog1.Filter = "Файлы БД FoxPro (*.dbf) |*.dbf"
CommonDialog1.ShowOpen

dbPath = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(Dir(CommonDialog1.FileName)))
RecSourceName = Left(Dir(CommonDialog1.FileName), Len(Dir(CommonDialog1.FileName)) - 4)

End Sub

--------------------

i_i
(';')
(V)

user posted image

DemoCode

Дата 24.12.2005, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Код


void __fastcall TForm1::FormCreate(TObject *Sender)
{
  if (OpenDialog1->Execute()) {
        a = OpenDialog1->FileName;  // Полный путь с именем
        b = ExtractFilePath(OpenDialog1->FileName); // Только путь
        c = ExtractFileName(OpenDialog1->FileName); // Только имя
  }
}

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

Voldemar2004

Дата 24.12.2005, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 1
Всего: 23

DemoCode, спасибо. М-да, аналогичный код на VB выглядит более тяжелым для понимания.

--------------------

i_i
(';')
(V)

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »