Фукнции для работы со строками [AnsiString]

@Maestro · Регистрация: 06.09.2009

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

Всем привет.

В Java Script'e есть такая функция - split();, которая разбивает текст на количество отдельных строк по заданному разделителю. Например строку

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Wi ndows NT\CurrentVersion\Print\Printers\HP Deskjet D1500

такая функция по заданному разделителю, в данном случае слешу '\'

Java
1
split("\\");

Разобьёт на следующие строки:

HKEY_LOCAL_MACHINE
SOFTWARE
Microsoft
Windows NT
CurrentVersion
Print
Printers
HP Deskjet D1500

Ищу аналог для C++ если есть. Так же нужно разбиение строки на отдельные слова (лексемы) по пробелам.

Добавлено через 20 минут
Поторопился малость, вспомнил.

C++
1
2
3
4
5
6
7
8
9
10
11
12
...
#include <string.h>
...
   char * tokenPtr;
   tokenPtr = strtok(RichEdit1->Lines->Strings[i].c_str(), "\\");
   RichEdit2->Lines->Add(tokenPtr);
 
   while(tokenPtr != NULL){
       tokenPtr = strtok(NULL, "\\");
       RichEdit2->Lines->Add(tokenPtr);
      }
...

@Maestro · 06.04.2010, 20:30 **[ТС]**

Ni'Tan, Так я тоже хотел сделать, только вместо /n другой символ-сигнальной метки, который бы потом заменял на /n. Но впрочем хорошо. Раз мнения совпали, значит выбора нет, сделаю так.

Спасибо.

@NiTan · 06.04.2010, 21:06

Так можно любой сивол поставить. "*", "%" что угодно, только не "\n".

@Maestro · 06.04.2010, 21:41 **[ТС]**

Ni'Tan, Да я понял, хотел звёздочку * ставить.

@mirso · 17.04.2010, 01:24

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

ListLegalSvc->Append(temp->Text)

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

ListLegalSvc должен же быть 15

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

показывает все те же 10.

Count привязан к Append и delete

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::Button1Click(TObject *Sender)
{
    TStringList *LS1 = new TStringList();
    TStringList *LS2 = new TStringList();
 
    LS1->Append("123");
    LS1->Append("456");
    LS1->Append("789");
 
    LS2->Append("abc");
    LS2->Append("def");
    LS2->Append("ghi");
    //--------------------------------
    LS2->Text = LS1->Text + LS2->Text;
    //--------------------------------
    Memo1->Text = LS2->Text;
 
    ShowMessage( "LS2->Count == " + (String)LS2->Count );
 
    delete LS2;
    delete LS1;
}
//---------------------------------------------------------------------------

@Maestro · 19.04.2010, 15:21 **[ТС]**

mirso, Спасибо, мне больше понравился способ, который ты ещё написал в личку. Решил использовать второй способ, он проще и его хватает для необходимых целей.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
   LS2->AddStrings(LS1);
...
 
   TStringList *ListLegalSvc = new TStringList();
...
   TStringList *temp = new TStringList();
 
   if(FileExists("LegalService.txt")){
      temp->LoadFromFile("LegalService.txt");
      ListLegalSvc->AddStrings(temp);
     }
   delete temp;
...

О функции AddStrings знал ведь, но не понимал её назначения в целом.

void AddStrings(Tstrings* Strings) - Добавляет в список группу строк Strings типа TStrings.

Вопрос решён.

@Maestro · 16.05.2010, 18:57 **[ТС]**

Друзья, просто катастрофа.

Пол дня уграл на то чтобы понять где в программе глюки, глюк локализировал, но решения самостоятельно найти не могу.

Дело в том, что я загружаю методом перетаскивания файл .xml в список

C++
1
2
3
4
5
...
   STstringList *ListXML = TStringList();
 
   ListXML->LoadFromFile(FileName);
...

Всё бы ничего, но в самом файле .xml есть символы мягкого переноса, тоесть когда я его открываю через блокнот, то проблемные строки(ниже приведу проблемные строки), отображаются нормально, в строку, а когда я загружаю этот файл в список или хотя бы открываю в Word и отображаю непечатаемые знаки, тогда в загруженом списке я вижу символ мягкого переноса, это когда нажать Shift + Enter в конце строки такая стрелочка появляется. Мне же оооочень надо найти решение, которое позволило бы на выбор, игнорировать этот мягкий перенос или искать и заменять его на пробел, путём StringReplace или какой-нибудь другой путь обхода, потому что из-за него у меня неправильные расчёты в программе.

Для вывода информации использую RichEdit свойство PlainText установлено в true.
Вот проблемные строки. Хочу чтобы в списке они были размещены так, как их видно здесь. Одна строка - одна единица информации

Code
1
2
3
4
5
6
7
8
9
10
11
  <ITEM File="р%Ђ|ИR srv" Name="SNDSrvcRSVPImapiService" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|g srv" Name="SysmonLogDhcpTapiSrv" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|hc srv" Name="ScheduleFastUserSwitchingCompatibilityMDMCOMSysAppwuauservwuauserv" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|ђW srv" Name="NetDDEccISPwdSvcDnscacheSpooler" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|8V srv" Name="mnmsrvcVSSSAVScanBrowserstisvcstisvcnavapsvcdmadminERSvcLmHosts" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|А srv" Name="DhcpSysmonLogVSSdmserverTrkWksLightScribeServiceSwPrvSharedAccessccProxyMyWebSearchService" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|0T srv" Name="LightScribeServiceNtmsSvcccISPwdSvcDcomLaunchNSCServiceHidServ" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|HZ srv" Name="DnscacheSysmonLogupnphostdmserverTrkWksdmserverTrkWks" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|?j srv" Name="dmadminERSvcLmHostsBITSNlaIrmon" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|рX srv" Name="AudioSrvMyWebSearchServiceRpcSsNetDDEdsdmVSSDnscacheSysmonLog" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ| [ srv" Name="AtimnmsrvcSSDPSRVRasManSSDPSRVMyWebSearchService" CheckResult="-1" Type="272" State="1" NationalName="Y"  />

А в программе из-за этого непечатного\непонятного символа проблемные строки переносятся вот так.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  <ITEM File="р%Ђ|ИR
 srv" Name="SNDSrvcRSVPImapiService" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|g
 srv" Name="SysmonLogDhcpTapiSrv" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|hc
 srv" Name="ScheduleFastUserSwitchingCompatibilityMDMCOMSysAppwuauservwuauserv" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|ђW
 srv" Name="NetDDEccISPwdSvcDnscacheSpooler" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|8V
 srv" Name="mnmsrvcVSSSAVScanBrowserstisvcstisvcnavapsvcdmadminERSvcLmHosts" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|А
 srv" Name="DhcpSysmonLogVSSdmserverTrkWksLightScribeServiceSwPrvSharedAccessccProxyMyWebSearchService" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|0T
 srv" Name="LightScribeServiceNtmsSvcccISPwdSvcDcomLaunchNSCServiceHidServ" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|HZ
 srv" Name="DnscacheSysmonLogupnphostdmserverTrkWksdmserverTrkWks" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|?j
 srv" Name="dmadminERSvcLmHostsBITSNlaIrmon" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ|рX
 srv" Name="AudioSrvMyWebSearchServiceRpcSsNetDDEdsdmVSSDnscacheSysmonLog" CheckResult="-1" Type="272" State="1" NationalName="Y"  />
  <ITEM File="р%Ђ| [
 srv" Name="AtimnmsrvcSSDPSRVRasManSSDPSRVMyWebSearchService" CheckResult="-1" Type="272" State="1" NationalName="Y"  />

Можно ли что-нибудь придумать?

@NiTan · 16.05.2010, 20:11

Может глупость, но что если после загрузки в RichEdit через цикл суммировать каждую нечетную и четную строки???
Или вот так:

C++
1
RichEdit1->Text=StringReplace(RichEdit1->Text,"\r\n","",TReplaceFlagse()<<rfReplaceAll);

?
(Только все запишется в одну строку

).

@Maestro · 18.05.2010, 10:29 **[ТС]**

Сообщение от Ni'Tan

Может глупость, но что если после загрузки в RichEdit через цикл суммировать каждую нечетную и четную строки???

Не выход. Потому что из 274 строк которые загрузились, вот эти 12 проблемные, причём чёткой зависимости в том, где в каком месте\позиции строки, они появятся - нет.

Сообщение от Ni'Tan

Или вот так:

Пробовал, но там ведь не чистая новая строка - "\n", а мягкий перенос, вот скопируй проблемные строки в Word из первого списка и включи отображение непечатаемых символов, ты всё поймёшь.

Но в блокноте отображаются нормально. Собственно выход придумал такой, с использованием промежуточной загрузки в Memo, там эти мягкие переносы неиспользуются и списку текст передаётся уже нормальный:

C++
1
2
3
4
5
6
 ...
   STstringList *ListXML = TStringList();
 
   Memo1->Lines->LoadFromFile(FileName);
   ListXML->Text = Memo1->Text;
...

Это как акт отчаяния, но работает.

Добавлено через 16 часов 38 минут
Ну вот, теперь проблема с Memo

Попался лог, который "рубит" строку. Если этот лог подгружать в список или открывать в Memo, то загрузится только до того места, в котором встретится непонятный символ "квадратик", на скрине указал стрелкой на него. Всё что после него как обрезается.

Если же использовать RichEdit то всё грузится нормально. Но с RichEdit проблема выше, когда попадётся лог в котором в именах файлов будут национальные(некирилические) символов, мягких переносов, есть шанс, что они будут обрабатываться некорректно.

Что делать? Самый лучший вариант, оставить RichEdit, но тогда надо решать вопрос из комментария №26

Обе ситуации нестандартны, но если в случае из 26 коммента, это предполагается, то в текущем вопросе вообще непонятно что. Если удалить этот "квадратик", тогда всё загружается нормально. Как быть? Посоветуйте что-нибудь?

Добавлено через 21 час 22 минуты
Вернул вместо Memo как и было раньше RichEdit. Боюсь сглазить, но вроде бы решилось установкой свойства PlainText=false у RichEdit.

@geiby · 16.05.2016, 00:24

Набросал недавно, может пригодится кому)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Memo1->Text="";
AnsiString str=Edit1->Text;
//удаляем пробелы и заменяем одним
while ( str.Pos("  ") )
{
    str.Delete(str.Pos("  "), 1);
}
str=str.Trim();
        while (str.Pos(" "))
        {
        Memo1->Lines->Add(str.SubString(1,str.Pos(" ")-1)); //выводим слово до пробела
        str.Delete(1,str.Pos(" "));  //удаляем слово до пробела
        }
Memo1->Lines->Add(str.SubString(1,str.Length())); //выводим остаток
Edit2->Text=Memo1->Lines->Count;//количество слов

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@Maestro Маэстро 1244 / 365 / 40 Регистрация: 06.09.2009 Сообщений: 798
	06.04.2010, 20:30 [ТС]
	Ni'Tan, Так я тоже хотел сделать, только вместо /n другой символ-сигнальной метки, который бы потом заменял на /n. Но впрочем хорошо. Раз мнения совпали, значит выбора нет, сделаю так. Спасибо. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	06.04.2010, 21:06
	Так можно любой сивол поставить. "*", "%" что угодно, только не "\n". 0

@Maestro Маэстро 1244 / 365 / 40 Регистрация: 06.09.2009 Сообщений: 798
	06.04.2010, 21:41 [ТС]
	Ni'Tan, Да я понял, хотел звёздочку * ставить. 0