Текстовый файл в String по словам .

@$tudent · Регистрация: 02.03.2009

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

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (!OpenDialog1->Execute()) return;
Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
TStringList *list = new TStringList;
list->LoadFromFile(OpenDialog1->FileName);
 Edit1->Text = list->Strings[2];
 
 
}

Strings[2] - в это массиве находятся слова которые идут в текстовом файле , как его переделать в обычный string и получить доступ к нему ? и как каждое слово разбить на посимвольный массив char ?

@FaB0SS · 10.02.2011, 18:24

Strings[2] - в это массиве находятся слова которые идут в текстовом файле

list->Strings[2] это 3-я строка прочитанного тобой текстового файла тип AnsiString
соответственно list->Strings[0] первая строка list->Strings[1] - вторая.
Вот так и получай доступ

@$tudent · 10.02.2011, 19:36 **[ТС]**

C++
1
2
char buff[255];
list->Strings[3]=buff;

и как теперь buff вывести ? char не выводит .

каджое слово надо загнать в свой массив char и вывести .

cpp_developer · 10.02.2011, 20:03

Сообщение от $tudent

char buff[255];
list->Strings[3]=buff;
и как теперь buff вывести ? char не выводит .
каджое слово надо загнать в свой массив char и вывести .

C++
1
list->Strings[i];

, это уже и есть строка, а buff тут ни при чем.

@$tudent · 10.02.2011, 20:27 **[ТС]**

Мне нужно слово Strings[i] , разбить на :
a[1]=c
a[2]=л
a[3]=0
a[4]=в
a[5]=0

cpp_developer · 10.02.2011, 20:45

Сообщение от $tudent

слово Strings[i]

- это не слово, а строка, которая может содержать много слов.

@$tudent · 10.02.2011, 20:50 **[ТС]**

есть другая функция : взятая с этого форума . не суть важно .

C++
1
2
3
TStringList *words=new TStringList;
  words->Text=StringReplace(Memo1->Text," ","\n",TReplaceFlags()<<rfReplaceAll); //Заменяем пробел на знак переноса строки
//Теперь в words у нас все отдельные слова, записанные построчно

Вопрос как это дело разбить на символы ?

cpp_developer · 10.02.2011, 20:55

Эта функция произсодит замену в строке - Replace == Заменить .
Пробуй так:

C++
1
2
3
4
5
6
7
  AnsiString str;
  TStringList *list2 = new TStringList;
  for (int i = 1; i <= list->Count-1; i++) {
    str = list->Strings[i].SubString(i, 1);
    list2->Add(str);
    Memo2->Lines->Add(list->Strings[i-1]);
  }

Добавлено через 1 минуту
И не забывай при закрытии программы уничтожать динамически созданные списки

C++
1
2
3
4
5
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete list;
  delete list2;
}

@$tudent · 10.02.2011, 21:01 **[ТС]**

каджое слово надо загнать в свой массив char и вывести .

не выводит этот Билдер char =\

cpp_developer · 10.02.2011, 21:06

"этот" Билдер выводит, я тебе показал рабочий код.
это у тебя задачка така - про char, или прихоть, или непонимание чего-нибудь ?

Добавлено через 59 секунд
ага, была ошибочка , надо

C++
1
Memo2->Lines->Add(list2->Strings[i-1]);

@$tudent · 10.02.2011, 21:41 **[ТС]**

Компилиться , на пишет ошибку в list и не запускается =(

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (!OpenDialog1->Execute()) return;
Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
TStringList *list = new TStringList;
list->LoadFromFile(OpenDialog1->FileName);
 Edit1->Text = list->Strings[2];
 
  AnsiString str;
  TStringList *list2 = new TStringList;
  for (int i = 1; i <= list->Count-1; i++) {
    str = list->Strings[i].SubString(i, 1);
    list2->Add(str);
    Memo2->Lines->Add(list2->Strings[i-1]);
  }

cpp_developer · 10.02.2011, 22:26

какую ошибку ? у нее текст есть ?

Добавлено через 4 минуты
а так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (!OpenDialog1->Execute()) return;
    Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
    TStringList *list = new TStringList;
    list->LoadFromFile(OpenDialog1->FileName);
    Edit1->Text = list->Strings[2];
 
  AnsiString str;
  TStringList *list2 = new TStringList;
  for (int i = 1; i <= Memo1->Text.Length(); i++) {
    str = Memo1->Text.SubString(i, 1);
    list2->Add(str);
    Memo2->Lines->Add(list2->Strings[i-1]);
  }

@$tudent · 10.02.2011, 22:41 **[ТС]**

вот:
SubString(i, 1) - это массив первого слова и т.д ?

cpp_developer · 10.02.2011, 22:48

это одна буква из массива i

Добавлено через 51 секунду
в Memo1 текст есть ?

@$tudent · 10.02.2011, 22:50 **[ТС]**

Есть. .....

cpp_developer · 10.02.2011, 23:19

вот "алгоритм" разбиения , свеже-проверенный, рабочий

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//  if (!OpenDialog1->Execute()) return;
//  Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
  TStringList *list = new TStringList;
//  list->LoadFromFile(OpenDialog1->FileName);
//  Edit1->Text = list->Strings[2];
  AnsiString str;
  TStringList *list2 = new TStringList;
  for (int i = 1; i <= Memo1->Text.Length(); i++) {
    str = Memo1->Text.SubString(i, 1);
    list2->Add(str);
    Memo2->Lines->Add(list2->Strings[i-1]);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
Memo1->Lines->LoadFromFile("C:\\test.txt");
}

, содержимое файла C:\\test.txt

/ if (!OpenDialog1->Execute()) return;
// Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
TStringList *list = new TStringList;
// list->LoadFromFile(OpenDialog1->FileName);
// Edit1->Text = list->Strings[2];
AnsiString str;
TStringList *list2 = new TStringList;
for (int i = 1; i <= Memo1->Text.Length(); i++) {
str = Memo1->Text.SubString(i, 1);
list2->Add(str);
Memo2->Lines->Add(list2->Strings[i-1]);

- я выводу в каждой строке одну буковку в МЕМО, ты можешь заполнять массив, или делать что-нибудь еще

Добавлено через 20 минут
вот так можно разбивать на буковки конкретную строку МЕМО, номер которой введен в Эдит, номера начинаются с 0

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//  if (!OpenDialog1->Execute()) return;
//  Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
    TStringList *list = new TStringList;
//  list->LoadFromFile(OpenDialog1->FileName);
//  Edit1->Text = list->Strings[2];
    AnsiString str;
    TStringList *list2 = new TStringList;
    for (int i=0;i<=Memo1->Lines->Count;i++) {
        for (int j = 0; j < Memo1->Lines->Strings[i].Length(); j++) {
            str = Memo1->Lines->Strings[StrToInt(Edit1->Text)].SubString(j, 1);
            list2->Add(str);
            Memo2->Lines->Add(list2->Strings[j]);
        }
    }
}

проверено, мин нет.

@Sasha · 10.02.2011, 23:43

Ну по правилам тут, необходимо удалить объекты и обнулить указатели после использования

C++
1
2
3
4
delete list;
list = NULL;
delete list2;
list2 = NULL;

cpp_developer · 10.02.2011, 23:52

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

И не забывай при закрытии программы уничтожать динамически созданные списки

C++
1
2
3
4
5
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete list;
  delete list2;
}

- Sasha, когда ты научишься читать всю тему

?

@Sasha · 11.02.2011, 00:00

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

- Sasha, когда ты научишься читать всю тему

?

За обнуление указателя там ничего в твоём посте не сказано, так что извини я дополнил твой ответ

cpp_developer · 11.02.2011, 00:30

обнулять указатели оно как бы и не принципиально

, нууу , коль дополнил

...

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@$tudent 4 / 2 / 0 Регистрация: 02.03.2009 Сообщений: 54
	10.02.2011, 20:27 [ТС]
	Мне нужно слово Strings[i] , разбить на : a[1]=c a[2]=л a[3]=0 a[4]=в a[5]=0 0

@$tudent 4 / 2 / 0 Регистрация: 02.03.2009 Сообщений: 54
	10.02.2011, 22:41 [ТС]
	вот: SubString(i, 1) - это массив первого слова и т.д ? Миниатюры 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	10.02.2011, 22:48
	это одна буква из массива i Добавлено через 51 секунду в Memo1 текст есть ? 0

@$tudent 4 / 2 / 0 Регистрация: 02.03.2009 Сообщений: 54
	10.02.2011, 22:50 [ТС]
	Есть. ..... 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	11.02.2011, 00:30
	обнулять указатели оно как бы и не принципиально , нууу , коль дополнил ... 0