Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > Заполнение StringGrid из txt-файла


Автор: stat007 5.4.2010, 12:56
Подскажите, как из txt-файла загрузить строки в StringGrid1, и можно ли загрузить в StringGrid1 такой txt-файл, слова который разделены клавишей Tab ??
Например, txt-файл содержит следующее:
Цитата

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

Вот нужно сделать так, что бы слово "Мама" было во втором столбце (т.к. в первом обычно нумерация идёт), слова "Папа и я" в 3-тем столбце и "это полноценная семья" соответственно в 4-том столбце...

Автор: ИванМ 5.4.2010, 15:11
Цитата(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.
Но, конечно, это далеко не самый производительный вариант. В профессиональных программах так не делают.

Автор: stat007 5.4.2010, 20:11
Напишите код пожалуйста!  smile 

Автор: ИванМ 5.4.2010, 20:28
Код

        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>

Автор: Usper 5.4.2010, 21:19
 smile 
Для разбиения строки на подстроки по разделителю/разделителям существует встроенная функция ExtractStrings().

Автор: ИванМ 5.4.2010, 22:07
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;

Автор: stat007 7.4.2010, 11:38
ИванМ, Ещё возник такой вопрос по данной теме: как задать 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 

Автор: ИванМ 7.4.2010, 15:28
Код

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");
}

Автор: stat007 7.4.2010, 20:48
ИванМ, Спасибо большое!!! smile 

Автор: LEXONNN 10.4.2010, 23:23
А у меня какая то ошибка выскакивает!!!! 
Помогите мне тоже: у меня есть такой же файл только там 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 

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

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

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

Автор: LEXONNN 11.4.2010, 13:25
ну то как мне сделать ????????? Никто не скажет??? Вывести из файла в СГ мою таблицу???

Автор: Данкинг 11.4.2010, 13:34
Цитата(LEXONNN @ 11.4.2010,  14:25)
ну то как мне сделать ????????? Никто не скажет??? Вывести из файла в СГ мою таблицу???

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

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

Автор: ИванМ 11.4.2010, 16:10
LEXONNN, у тебя имя файла пустое. Покажи строчку, где ты обращаешься к файлу.

Автор: LEXONNN 11.4.2010, 17:20
Ну вот єтот код
Код

        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=1;i<n;i++)
            for(int j=1;j<3;j++)
                StringGrid1->Cells[j][i+1]=list2->Strings[i*3+j];
        delete list1;
        delete list2;

Автор: ИванМ 11.4.2010, 17:25
А ты вызвал метод OpenDialog1->Execute() перед этим?

Автор: LEXONNN 11.4.2010, 17:49
нет) 
но я исправил! вот мой код
Код

void __fastcall TForm1::N2Click(TObject *Sender)
{
      OpenDialog1->Execute();
        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/7;
        for(int i=1;i<n;i++)
            for(int j=1;j<7;j++)
               StringGrid1->Cells[j][i]=list2->Strings[i*7+j];
        delete list1;
        delete list2;
}

но он почемуто выводит только одну строчку и у ячейку 1-1 не записывает первое слово из тхт файла
как мне сделать чтоб ввесь файл загружался??? 
а когда я ставлю
Код

StringGrid1->Cells[j][i]=list2->Strings[i*6+j];

то он записывает первое слово не не записывает последнее((((

Автор: ИванМ 11.4.2010, 17:59
Код

       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/7;
        for(int i=0;i<n;i++)
            for(int j=0;j<7;j++)
                StringGrid1->Cells[j][i+1]=list2->Strings[i*7+j];
        delete list1;
        delete list2;

Этот вариант, если слева нет фиксированного столбца, а сверху есть. Если у тебя слева фиксированный столбец, то напиши Cells[j+1][i+1].

Автор: LEXONNN 11.4.2010, 18:12
спасибо Все работает)))))

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)