Фукнции для работы со строками [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;//количество слов

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@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