Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Заполнение StringGrid из txt-файла 
V
    Опции темы
stat007
Дата 5.4.2010, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -4
Подскажите, как из txt-файла загрузить строки в StringGrid1, и можно ли загрузить в StringGrid1 такой txt-файл, слова который разделены клавишей Tab ??
Например, txt-файл содержит следующее:
Цитата

Мама       Папа и я       это полноценная семья
и т.д.

Вот нужно сделать так, что бы слово "Мама" было во втором столбце (т.к. в первом обычно нумерация идёт), слова "Папа и я" в 3-тем столбце и "это полноценная семья" соответственно в 4-том столбце...
PM MAIL   Вверх
ИванМ
Дата 5.4.2010, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 23
Цитата(stat007 @  5.4.2010,  12:56 Найти цитируемый пост)
можно ли загрузить в StringGrid1 такой txt-файл, слова который разделены клавишей Tab

конечно, можно

Цитата(stat007 @  5.4.2010,  12:56 Найти цитируемый пост)
Подскажите, как из txt-файла загрузить строки в StringGrid1

я обычно в подобных случаях так делаю, когда не важна производительность:
загружаю весь текстовый файл в TStringList. Потом обрабатываю поочередно все строки и заменяю разделяющие символы (в вашем случае '\t') на '\n' и загружаю эту разбитую строку в новый StringList (в свойство Text). 
Т.е. у вас получается StringList, в котором каждый элемент это отдельное загруженное слово n-й строки, и его уже с легкостью можно записать в StringGrid.
Но, конечно, это далеко не самый производительный вариант. В профессиональных программах так не делают.
PM MAIL   Вверх
stat007
Дата 5.4.2010, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -4
Напишите код пожалуйста!  smile 
PM MAIL   Вверх
ИванМ
Дата 5.4.2010, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 23
Код

        TStringList* list1=new TStringList();
        TStringList* list2=new TStringList();
        list1->LoadFromFile(FileName);
        for(int i=0;i<list1->Count;i++)
        {
            list2->Text=AnsiReplaceStr(list1->Strings[i], "\t", "\n");
            for(int j=0;j<list2->Count;j++)
            {
                StringGrid1->Cells[j][i+1]=list2->Strings[j];
            }
        }
        delete list1;
        delete list2;


Нужно только подключить заголовок <StrUtils.hpp>
PM MAIL   Вверх
Usper
Дата 5.4.2010, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 15
Всего: 15
 smile 
Для разбиения строки на подстроки по разделителю/разделителям существует встроенная функция ExtractStrings().


--------------------
На посохе волшебном нехилый набалдашник, большой такой, огромный, нехилый набалдашник.
PM MAIL   Вверх
ИванМ
Дата 5.4.2010, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 23
Usper, спасибо, не знал.
Код

        TStringList* list1=new TStringList();
        TStringList* list2=new TStringList();
        list1->LoadFromFile(OpenDialog1->FileName);
        ExtractStrings(TSysCharSet()<<'\t'<<'\n', TSysCharSet(), list1->Text.c_str(), list2);
        int n=list2->Count/3;
        for(int i=0;i<n;i++)
            for(int j=0;j<3;j++)
                StringGrid1->Cells[j][i+1]=list2->Strings[i*3+j];
        delete list1;
        delete list2;
PM MAIL   Вверх
stat007
Дата 7.4.2010, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -4
ИванМ, Ещё возник такой вопрос по данной теме: как задать FileName в отдельную переменную, т.е. допустим мне нужно вызвать эту функцию в другой функции:
Код

void f()
{
        TStringList* list1=new TStringList();
        TStringList* list2=new TStringList();
        list1->LoadFromFile(FileName);
        for(int i=0;i<list1->Count;i++)
        {
            list2->Text=AnsiReplaceStr(list1->Strings[i], "\t", "\n");
            for(int j=0;j<list2->Count;j++)
            {
                StringGrid1->Cells[j][i+1]=list2->Strings[j];
            }
        }
        delete list1;
        delete list2;
}

void f2()
{
        string FileName="file1.txt";
        f();
}

Как это правильно реализовать, а то почему-то не получается так! smile 
PM MAIL   Вверх
ИванМ
Дата 7.4.2010, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 23
Код

void f(String FileName)
{
        TStringList* list1=new TStringList();
        TStringList* list2=new TStringList();
        list1->LoadFromFile(FileName);
        for(int i=0;i<list1->Count;i++)
        {
            list2->Text=AnsiReplaceStr(list1->Strings[i], "\t", "\n");
            for(int j=0;j<list2->Count;j++)
            {
                StringGrid1->Cells[j][i+1]=list2->Strings[j];
            }
        }
        delete list1;
        delete list2;
}
void f2()
{
        f("file1.txt");
}
PM MAIL   Вверх
stat007
Дата 7.4.2010, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -4
ИванМ, Спасибо большое!!! smile 
PM MAIL   Вверх
LEXONNN
Дата 10.4.2010, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А у меня какая то ошибка выскакивает!!!! 
Помогите мне тоже: у меня есть такой же файл только там 7 столбцов 
мне из файла надо вывести начиная из
Код

StringGrid1->Cells[1][1];

они тоже расделены табуляциею и ентером
Цитата

1столб     2столб    3столб     4столб    5столб   6столб    7столб
мивина    20.12.2009    100    21.12.2009    5    100    0

используя 
Код

OpenDialog1->Execute();

и еще как сделать что б OpenDialog1->Execute(); открывало только txt?????????????? smile  smile 
PM MAIL   Вверх
Данкинг
Дата 10.4.2010, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(LEXONNN @  11.4.2010,  00:23 Найти цитируемый пост)
А у меня какая то ошибка выскакивает!!!! 

Сочувствую.
Цитата(LEXONNN @  11.4.2010,  00:23 Найти цитируемый пост)
и еще как сделать что б OpenDialog1->Execute(); открывало только txt??????????????

Задать фильтр на только txt.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
LEXONNN
Дата 11.4.2010, 13:25 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ну то как мне сделать ????????? Никто не скажет??? Вывести из файла в СГ мою таблицу???
PM MAIL   Вверх
Данкинг
Дата 11.4.2010, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(LEXONNN @ 11.4.2010,  14:25)
ну то как мне сделать ????????? Никто не скажет??? Вывести из файла в СГ мою таблицу???

Что именно не получается? Какая ошибка вылезает?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
LEXONNN
Дата 11.4.2010, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
когда вставил код который выше в сообщении при компиляции вылазет это и из файла не выводит(((
как мне написать код что осуществить доступ к файлу и считать из него строки: если попалось \t то что перед ним записать в StringGrid1->Cells[1][1]; потом опять то что перед \t и записать в StringGrid1->Cells[1][2]; ........ StringGrid1->Cells[1][7];
потом когда ентер записать так же в StringGrid1->Cells[2][1]; до \t потом в StringGrid1->Cells[2][2];
и так ввесь файл((((????? smile 
помогите пожалуйста !!!

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  __________.JPG 15,46 Kb
PM MAIL   Вверх
ИванМ
Дата 11.4.2010, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 23
LEXONNN, у тебя имя файла пустое. Покажи строчку, где ты обращаешься к файлу.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0937 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.