Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16

Изменить слеш на обратный при записи OpenDialog->FileName

14.06.2015, 16:20. Показов 1988. Ответов 16
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Прошу помощи, дорогие форумчане:
"Как сделать, чтобы у OpenDialog->FileName адрес записывался, как
C:/
а не
C:\

Добавлено через 17 минут
Это вообще возможно?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.06.2015, 16:20
Ответы с готовыми решениями:

OpenDialog->FileName;
OpenDialog->FileName; от сюда беру путь. Мне надо вырезать рабочий каталог как лучше всего ето сделать! Либо как мне открыть етот...

OpenDialog->FileName;
OpenDialog->FileName; от сюда беру путь. Мне надо вырезать рабочий каталог как лучше всего ето сделать! Либо как мне открыть етот...

Opendialog.filename
На форме лежит dbgrid. В него выводится таблица из БД. Я выбирают в dbgrid определённую запись и для этой записи в последний(пустой)...

16
:)
Эксперт С++
4773 / 3267 / 497
Регистрация: 19.02.2013
Сообщений: 9,046
14.06.2015, 16:31
Цитата Сообщение от Яна Матрица Посмотреть сообщение
Это вообще возможно?
И главное, зачем?
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
14.06.2015, 16:36  [ТС]
Отличный сарказм))) Не приложу мозг, как справится с этой задачей.
0
:)
Эксперт С++
4773 / 3267 / 497
Регистрация: 19.02.2013
Сообщений: 9,046
14.06.2015, 16:37
Цитата Сообщение от Яна Матрица Посмотреть сообщение
Отличный сарказм
В данном случае, это уточняющий вопрос. В чем причина обозначенного желания?
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
14.06.2015, 16:49  [ТС]
считать (прочитать) из файла информацию. Это то, чего добиваюсь. Но Функция OpenDialog1->FileName всегда пишет с \ а ifstream всегда воспринимает только / и тут ничого не сделаешь?

Добавлено через 1 минуту
Цитата Сообщение от Tulosba Посмотреть сообщение
В данном случае, это уточняющий вопрос. В чем причина обозначенного желания?
считать (прочитать) из файла информацию. Это то, чего добиваюсь. Но Функция OpenDialog1->FileName всегда пишет с \ а ifstream всегда воспринимает только / и тут ничого не сделаешь?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
14.06.2015, 16:53
Лучший ответ Сообщение было отмечено Яна Матрица как решение

Решение

Замени \\ на / через StringReplace перед тем, как передавать строку в ifstream.

C++
1
2
String s = StringReplace(OpenDialog1->FileName, "\\", "/", TReplaceFlags() << rfReplaceAll);
// и s уже передавай
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
14.06.2015, 17:15  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Замени \\ на / через StringReplace перед тем, как передавать строку в ifstream.
C++
1
2
String s = StringReplace(OpenDialog1->FileName, "\\", "/", TReplaceFlags() << rfReplaceAll);
// и s уже передавай
Сейчас попробую и сразу отпишусь.

Добавлено через 12 минут
Вот код, чёт не получается решение от 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
void __fastcall TForm1::N1Click(TObject *Sender)
{
OpenDialog1->Execute();
AnsiString n1;
n1 = OpenDialog1->FileName;
Form2->Memo1->Lines->LoadFromFile(n1);
AnsiString dir=OpenDialog1->FileName;
String s = StringReplace(OpenDialog1->FileName, "\\", "/",
 TReplaceFlags() << rfReplaceAll);
ifstream input_file("s");
int a1[9];
int i=0;
while (!input_file.eof() && i<9)
{
 input_file >> a1[i];
 i++;
}
Edit1->Text = IntToStr(a1[0]);
Edit2->Text = IntToStr(a1[1]);
Edit3->Text = IntToStr(a1[2]);
Edit4->Text = IntToStr(a1[3]);
Edit5->Text = IntToStr(a1[4]);
Edit6->Text = IntToStr(a1[5]);
Edit7->Text = IntToStr(a1[6]);
Edit8->Text = IntToStr(a1[7]);
input_file.close();
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
14.06.2015, 17:41
Лучший ответ Сообщение было отмечено Яна Матрица как решение

Решение

C++
1
ifstream input_file(s);
, без кавычек
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
14.06.2015, 17:52  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
, без кавычек
Убрала кавычки и вылезло:
[BCC32 Error] Unit1.cpp(44): E2285 Could not find a match for 'ifstream::basic_ifstream(UnicodeString) '
Full parser context
Unit1.cpp(36): parsing: void _fastcall TForm1::N1Click(TObject *)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
14.06.2015, 18:02
Лучший ответ Сообщение было отмечено Яна Матрица как решение

Решение

Вот так все нормально компилируется и работает:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    if (OpenDialog1->Execute())
    {
        AnsiString n1 = OpenDialog1->FileName;
        Form2->Memo1->Lines->LoadFromFile(n1);
        AnsiString s = StringReplace(dir, "\\", "/", TReplaceFlags() << rfReplaceAll);
        ifstream input_file(s.c_str());
        int a1[9];
        int i = 0;
        while (!input_file.eof() && i < 9)
        {
            input_file >> a1[i];
            i++;
        }
        Edit1->Text = IntToStr(a1[0]);
        Edit2->Text = IntToStr(a1[1]);
        Edit3->Text = IntToStr(a1[2]);
        Edit4->Text = IntToStr(a1[3]);
        Edit5->Text = IntToStr(a1[4]);
        Edit6->Text = IntToStr(a1[5]);
        Edit7->Text = IntToStr(a1[6]);
        Edit8->Text = IntToStr(a1[7]);
        input_file.close();
    }
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
14.06.2015, 18:25  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Вот так все нормально компилируется и работает:
Огромное Спасибо Тебе (Благодарю от всего своего сердца)! Всё компилируется отлично!!!!!!!
У меня все компилируется, однако в файле - пусто. И я думаю почему:
Моя структура:
C++
1
2
3
4
5
6
7
8
9
10
11
struct kimn
{
 int stil;
 int shkaf;
 int divan;
 int lishko;
 int stilets;
 int krislo;
 int tumbochka;
 int polutsa;
}kim;
Код с неизвестной ошибкой
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
void __fastcall TForm1::N2Click(TObject *Sender)
{
SaveDialog1->Execute();
AnsiString n;
n = SaveDialog1->FileName;
  kim.stil=StrToInt(Edit1->Text);
  kim.shkaf=StrToInt(Edit2->Text);
  kim.divan=StrToInt(Edit3->Text);
  kim.lishko=StrToInt(Edit4->Text);
  kim.stilets=StrToInt(Edit5->Text);
  kim.krislo=StrToInt(Edit6->Text);
  kim.tumbochka=StrToInt(Edit7->Text);
  kim.polutsa=StrToInt(Edit8->Text);
ofstream input_file2("n");
input_file2 << kim.stil << endl;
input_file2 << kim.shkaf << endl;
input_file2 << kim.divan << endl;
input_file2 << kim.lishko << endl;
input_file2 << kim.stilets << endl;
input_file2 << kim.krislo << endl;
input_file2 << kim.tumbochka << endl;
input_file2 << kim.polutsa << endl;
Form3->Memo1->Lines->SaveToFile(n);
Form3->Show();
input_file2.close();}
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
14.06.2015, 18:33
Ну то же самое ведь:
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
    if (SaveDialog1->Execute())
    {
        AnsiString n = SaveDialog1->FileName;
        kim.stil = StrToInt(Edit1->Text);
        kim.shkaf = StrToInt(Edit2->Text);
        kim.divan = StrToInt(Edit3->Text);
        kim.lishko = StrToInt(Edit4->Text);
        kim.stilets = StrToInt(Edit5->Text);
        kim.krislo = StrToInt(Edit6->Text);
        kim.tumbochka = StrToInt(Edit7->Text);
        kim.polutsa = StrToInt(Edit8->Text);
 
        ofstream input_file2(n.c_str()); // прекрасно работает и без замены бекслешей
 
        input_file2 << kim.stil << endl;
        input_file2 << kim.shkaf << endl;
        input_file2 << kim.divan << endl;
        input_file2 << kim.lishko << endl;
        input_file2 << kim.stilets << endl;
        input_file2 << kim.krislo << endl;
        input_file2 << kim.tumbochka << endl;
        input_file2 << kim.polutsa << endl;
        Form3->Memo1->Lines->SaveToFile(n);
        Form3->Show();
        input_file2.close();
    }
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
14.06.2015, 19:00  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Ну то же самое ведь:
"Процесс не может получить доступ к файлу, так как это файл занят другим процессом."
С чем это может быть связано. Это уже касается последнего сообщения volvo.

Добавлено через 4 минуты
Возможно это через моё Memo? Оно не появляется.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33411 / 21521 / 8236
Регистрация: 22.10.2011
Сообщений: 36,922
Записей в блоге: 12
14.06.2015, 19:00
Кто-то другой держит твой файл. Может быть он открыт в блокноте, или еще в каком-то редакторе, проверь.
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
14.06.2015, 19:11  [ТС]
Без Мемо работает!

Добавлено через 10 минут
Огромное спасибо, от всей души, что помогли мне!!!!!!!! Я верю в благородную карму, и она Тебя volvo обязательно вознаградит! Да прибудет Мир и Программный код во всём мире!
0
управление сложностью
 Аватар для Почтальон
1693 / 1306 / 259
Регистрация: 22.03.2015
Сообщений: 7,545
Записей в блоге: 5
15.06.2015, 09:14
Всегда когда что-то открываете - уходя - закрывайте
1
0 / 0 / 0
Регистрация: 20.05.2015
Сообщений: 16
15.06.2015, 09:19  [ТС]
Тема закрыта! Огромное спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.06.2015, 09:19
Помогаю со студенческими работами здесь

ExtractFileName(OpenDialog.FileName)
OpenFileDialog возвращает только полный путь с именем файла... Мне нужно знать только имя файла xxxxx.xxx

Сохранение openDialog.FileName в txt (delphi)
Вопрос что не так, почему не работает сохранение openDialog.FileName в файл derictory1? Принцип такой я выбираю файл из OpenDialog...

Обратный слеш
Надо это a\a заменить на ! Вот рабочий код echo preg_replace('#a\\\a#', '!', 'a\a abc'); Почему работает с тремя слешами, если...

обратный слеш в регулярке
добры вечер, естъ проблема в регулярке хачу такои штуку: если слова содержит толко симболи латинского алфавита (маленкие) и обратный...

Обратный слеш: в чем специфика?
Код: $rod_grupp = &quot;\&quot;; echo &quot;&lt;br /&gt;$rod_grupp &quot;; В редакторе подсветка кода при написании слеша гаснет, указывая на ошибку. А...


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

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru