Преобразование строки в масив

@Chaps · Регистрация: 27.05.2010

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

Какое имя функции что би представить строку в Memo как масив,если разделитель знак табуляции??

@Maestro · 28.05.2010, 10:04

Chaps, Можно так.

C++

...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TSysCharSet chTab;
  chTab<<'\t';
 
  TStringList *TokenTab = new TStringList();
 
  String str = "Некоторая строка\t разделённая табуляторами.\t Проверка\t работает.";
  ExtractStrings(chTab, chTab, str.c_str(), TokenTab);
 
  ShowMessage(TokenTab->Text);
 
  delete TokenTab;
}
//---------------------------------------------------------------------------
...

@Chaps · 28.05.2010, 14:33 **[ТС]**

Спасибо, Maestro, сейчас попробую..

@Chaps · 29.05.2010, 14:55 **[ТС]**

Не выходит у меня..
кароч вот фрагмент моей програмы, подскажите как ее осуществить..
суть в том что ми читаем из Memo строку разделеную знаком табуляции(строка таблицы) и представляем ее как масив для того что бы определить подходять ли данные находящиеся в 3 столбце условию if (2010-StrToInt(mas[2]))>65

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString s; int i,j=1;
for (i=0; i<Memo1->Lines->Count; i++){
s=Memo1->Lines[i];
//Здесь должна быть функция которая строку s представляет как масив mas[], что бы потом я мог провести отбор для 3 елемента..
if (2010-StrToInt(mas[2]))>65){
StringGrid1->Cells[k][j]=IntToStr(j);
for (int k=1; k<6; k++)
StringGrid1->Cells[k][j]=mas[k];
j++;}
if (j==1)ShowMessage("Викладачі пенсійного віку відсутні");
StringGrid1->Visible=true;
Label7->Visible=true;

@Roma_F · 29.05.2010, 15:31

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

Не выходит у меня..

а вы пробовали?

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

if (2010-StrToInt(mas[2]))>65)

C++

1	if (2010-StrToInt(TokenTab->Strings[2]))>65)

@Chaps · 29.05.2010, 16:25 **[ТС]**

я сделал вот так, но запрос работает только для одной строки, если в Memo больше чем 1 строка то вибивает ошибку: Access violation at address 00000000. Read of address 000000000. Почему?

C++

{
AnsiString s,mas[5]; int k,i,j=1;
{
  TSysCharSet chTab;
  chTab<<'\t';
 
  TStringList *TokenTab = new TStringList();
for (i=0; i<Memo1->Lines->Count; i++){
  String str=Memo1->Lines[i].Text ;
  ExtractStrings(chTab, chTab, str.c_str(), TokenTab);
                                                            }
 if (2010-StrToInt(TokenTab->Strings[2])>65)
{
StringGrid1->Cells[k][j]=IntToStr(j);
for (int k=0; k<6; k++)
StringGrid1->Cells[k+1][j]=TokenTab->Strings[k];
j++;}
if (j==1)ShowMessage("Викладачі пенсійного віку відсутні");
  delete TokenTab;
}

@Roma_F · 29.05.2010, 16:35

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

@Chaps · 30.05.2010, 15:08 **[ТС]**

Так пойдет?

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString s,mas[5]; int k,i,j=1;
{ TSysCharSet chTab;
chTab<<'\t';
 
TStringList *TokenTab = new TStringList();
for (i=0; i<Memo1->Lines->Count; i++){
String str=Memo1->Lines[i].Text ;
ExtractStrings(chTab, chTab, str.c_str(), TokenTab);}
//  ShowMessage(TokenTab->Text);
if (2010-StrToInt(TokenTab->Strings[2])>65)
{ StringGrid1->Cells[k][j]=IntToStr(j);
for (int k=0; k<6; k++)
StringGrid1->Cells[k+1][j]=TokenTab->Strings[k];
j++;}
if (j==1)ShowMessage("Âèêëàäà÷³ ïåíñ³éíîãî â³êó â³äñóòí³");
delete TokenTab;}}

@Roma_F · 30.05.2010, 16:03

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

Так пойдет?

ничего не изменилось

вот ваш код

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    AnsiString s,mas[5];
    int k, i, j=1;
    {
        TSysCharSet chTab;
        chTab<<'\t';
 
        TStringList *TokenTab = new TStringList();
        for (i=0; i<Memo1->Lines->Count; i++)
        {
            String str = Memo1->Lines[i].Text ;
            ExtractStrings (chTab, chTab, str.c_str(), TokenTab);
        }
 
        if (2010-StrToInt(TokenTab->Strings[2])>65)
        {
            StringGrid1->Cells[k][j] = IntToStr(j);
            for (int k=0; k<6; k++)
                StringGrid1->Cells[k+1][j]=TokenTab->Strings[k];
            j++;
        }
        if (j==1)
            ShowMessage("Викладачі пенсійного віку відсутні");
 
        delete TokenTab;
    }
}

так сразу становится яснее что происходит в программе
зачем фигурная скобка после "int k, i, j=1;"
в первом цикле проходятся все строки, но потом берётся солбец только из первой строки (TokenTab->Strings[2])

@Chaps · 30.05.2010, 17:45 **[ТС]**

Спасибо!
Можешь помочь пожалуйста как сделать что бы стодбец 2, брался не только с первой строки, а и с всех что есть?

@Roma_F · 30.05.2010, 23:06

если я правильно понял задачу (сомневаюсь насчёт переменной j), то выглядеть будет где-то так

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TSysCharSet chTab;
    chTab << '\t';
 
    for (int i = 0; i < Memo1->Lines->Count; i++)
    {
        TStringList *TokenTab = new TStringList();
 
        String str = Memo1->Lines[i].Text;
        ExtractStrings (chTab, chTab, str.c_str(), TokenTab);
 
        if (TokenTab->Count < 6)
        {
            ShowMessage("Ошибка чтения столбцов таблицы");
            return;
        }
 
        if (2010 - StrToInt(TokenTab->Strings[2]) > 65)
        {
            StringGrid1->Cells[k][i+1] = IntToStr(i+1);
            for (int k = 0; k < 6; k++)
                StringGrid1->Cells[k + 1][i+1] = TokenTab->Strings[k];
        }
        else
        {
            ShowMessage("Викладачі пенсійного віку відсутні");
        }
 
        delete TokenTab;
    }
}

работоспособность я естественно не проверял

@Chaps 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 6
		1
	Преобразование строки в масив 27.05.2010, 20:11. Показов 1406. Ответов 10 Метки нет (Все метки) Какое имя функции что би представить строку в Memo как масив,если разделитель знак табуляции?? 0

@Chaps 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 6
	28.05.2010, 14:33 [ТС]	3
	Спасибо, Maestro, сейчас попробую.. 0

@Roma_F 332 / 247 / 32 Регистрация: 13.12.2009 Сообщений: 589
	29.05.2010, 16:35	7
	трудно найти логику в этой куче - такое впечатление что фигурные скобки живут своей жизнью оформите нормально код 0

@Chaps 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 6
	30.05.2010, 17:45 [ТС]	10
	Спасибо! Можешь помочь пожалуйста как сделать что бы стодбец 2, брался не только с первой строки, а и с всех что есть? 0

	30.05.2010, 23:06