Как удалить пробелы в тексте?

Вверх ↑

Форумы Между деломКак удалить пробелы в тексте? ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 106

Рейтинг: 0

#1: 2018-04-06 11:39:43 ЛС | профиль | цитата

Здравствуйте.
Подскажите плиз схемку, как удалить все пробелы в строках. В том числе длинные пробелы (табуляции)...

карма: 0

Ответов: 8923

Рейтинг: 823

#2: 2018-04-06 11:51:49 ЛС | профиль | цитата

Gitarist,


Add(Trim,14607295,119,105)
{
}
Add(Trim,14521611,168,105)
{
 Char="/9"
}

карма: 19

Ответов: 106

Рейтинг: 0

#3: 2018-04-06 14:36:45 ЛС | профиль | цитата

Большое спасибо за ответ, Леонид)) Но это не помогает. Я так пробовал))

карма: 0

Ответов: 16884

Рейтинг: 1239

#4: 2018-04-06 14:55:27 ЛС | профиль | цитата

Gitarist, а показать, как

Gitarist писал(а):

так пробовал

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 106

Рейтинг: 0

#5: 2018-04-06 15:01:22 ЛС | профиль | цитата

Add(MainForm,4448624,252,168)
{
 Width=906
 Height=472
}
Add(RichEdit,482586,315,175)
{
 Left=15
 Top=5
 Width=425
 Height=400
 FileName="C:\\123.txt"
 Strings=#6:	|15:	|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|11:2211784	2|0|
 ScrollBars=3
}
Add(RichEdit,1515988,434,245)
{
 Left=455
 Top=5
 Width=440
 Height=400
 ScrollBars=3
}
Add(Button,8644219,259,245)
{
 Left=425
 Top=415
 link(onClick,14521611:doTrim,[])
}
Add(Trim,14607295,378,245)
{
 Char=" "
 Point(Result)
 link(onTrim,1515988:doAdd,[])
}
Add(Trim,14521611,315,245)
{
 Char="/9"
 Point(Result)
 link(onTrim,14607295:doTrim,[])
 link(Text,482586:Text,[])
}

Блин, почему то из буфера не так текст выгружается
Вот залил txt http://dropmefiles.com/PCSMM

Редактировалось 6 раз(а), последний 2018-04-06 15:38:33

карма: 0

Ответов: 537

Рейтинг: 14

#6: 2018-04-08 17:33:13 ЛС | профиль | цитата

Может так, сделал IC


Add(MainForm,4448624,175,49)
{
 Width=906
 Height=472
}
Add(RichEdit,482586,238,49)
{
 Left=15
 Top=5
 Width=425
 Height=400
 FileName="C:\\123.txt"
 Strings=#6:						|15:				А	2211784	2|17:				б/Л	2211784	2|15:				А	2211784	2|15:				А	2211784	2|15:				А	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				Б	2211784	6|17:				б/л	2211784	2|15:				В	2211784	4|15:				В	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				В	2211784	2|15:				А	2211784	2|15:				А	2211784	2|0:|
 ScrollBars=3
}
Add(RichEdit,1515988,357,119)
{
 Left=455
 Top=5
 Width=440
 Height=400
 ScrollBars=3
}
Add(Button,8644219,182,119)
{
 Left=425
 Top=415
 link(onClick,13630832:go,[])
}
Add(Replace,14256248,301,119)
{
 SubStr=" "
 link(onReplace,1515988:doAdd,[])
}
Add(InlineCode,13630832,238,119)
{
 @Hint=#45:Замена любых неотображаемых знаков на пробелы|
 WorkPoints=#2:go|
 EventPoints=#7:CurText|
 DataPoints=#4:text|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:   text:THI_Event;|21:   CurText:THI_Event;|3:   |44:   procedure go(var Data:TData; index:word);|3:   |5: end;|0:|14:implementation|0:|25:procedure THiAsmClass.go;|3:var|11:  S:String;|17:  i, Len:Integer;|5:begin|28:  S :=(ToStringEvent(text));|18:  Len :=Length(S);|27:  for i :=1 to Len do begin|35:    if S[i] < #32 then S[i] := ' ';|6:  end;|23:_hi_OnEvent(CurText,S);|4:end;|4:end.|
 link(text,482586:Text,[])
 link(CurText,14256248:doReplace,[])
}

карма: 4

Ответов: 18

Рейтинг: 0

#7: 2018-04-09 08:15:37 ЛС | профиль | цитата

А правильно записать символ табуляции -- не судьба, что ли

Add(Replace,14256248,518,154)
{
 SubStr="\9"
 link(onReplace,16096759:doReplace,[])
 link(Str,482586:Text,[])
}
Add(MainForm,4448624,455,91)
{
 Width=906
 Height=472
}
Add(RichEdit,482586,518,91)
{
 Left=15
 Top=5
 Width=425
 Height=400
 FileName="temp\\123.txt"
 Strings=#6:						|15:				А	2211784	2|17:				б/Л	2211784	2|15:				А	2211784	2|15:				А	2211784	2|15:				А	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				Б	2211784	6|17:				б/л	2211784	2|15:				В	2211784	4|15:				В	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				В	2211784	2|15:				А	2211784	2|15:				А	2211784	2|0:|
 ScrollBars=3
}
Add(RichEdit,1515988,637,154)
{
 Left=455
 Top=5
 Width=440
 Height=400
 ScrollBars=3
}
Add(Button,8644219,455,154)
{
 Left=425
 Top=415
 link(onClick,14256248:doReplace,[])
}
Add(Replace,16096759,581,154)
{
 SubStr=" "
 link(onReplace,1515988:doAdd,[])
}

Редактировалось 1 раз(а), последний 2018-04-09 08:20:38

карма: 2

пугаться не надо ...

Ответов: 537

Рейтинг: 14

#8: 2018-04-09 08:38:10 ЛС | профиль | цитата

IC делал давно, заменяет все непечатные символы на пробелы. В вашей схеме 1 Replace лишний

Add(MainForm,4448624,175,119)
{
 Width=906
 Height=472
}
Add(RichEdit,482586,238,119)
{
 Left=15
 Top=5
 Width=425
 Height=400
 FileName="C:\\123.txt"
 Strings=#6:						|15:				А	2211784	2|17:				б/Л	2211784	2|15:				А	2211784	2|15:				А	2211784	2|15:				А	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				Б	2211784	6|17:				б/л	2211784	2|15:				В	2211784	4|15:				В	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|15:				А	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|17:				б/л	2211784	2|15:				В	2211784	2|15:				А	2211784	2|15:				А	2211784	2|0:|
 ScrollBars=3
}
Add(RichEdit,1515988,371,189)
{
 Left=455
 Top=5
 Width=440
 Height=400
 ScrollBars=3
}
Add(Button,8644219,119,189)
{
 Left=425
 Top=415
 link(onClick,13630832:go,[])
}
Add(Replace,14256248,301,189)
{
 SubStr=" "
 link(onReplace,15001422:doEvent1,[])
}
Add(InlineCode,13630832,238,189)
{
 @Hint=#45:Замена любых неотображаемых знаков на пробелы|
 WorkPoints=#2:go|
 EventPoints=#7:CurText|
 DataPoints=#4:text|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:   text:THI_Event;|21:   CurText:THI_Event;|3:   |44:   procedure go(var Data:TData; index:word);|3:   |5: end;|0:|14:implementation|0:|25:procedure THiAsmClass.go;|3:var|11:  S:String;|17:  i, Len:Integer;|5:begin|28:  S :=(ToStringEvent(text));|18:  Len :=Length(S);|27:  for i :=1 to Len do begin|35:    if S[i] < #32 then S[i] := ' ';|6:  end;|23:_hi_OnEvent(CurText,S);|4:end;|4:end.|
 link(CurText,14256248:doReplace,[])
 link(text,2982600:Var2,[])
}
Add(InlineCode,15015104,231,245)
{
 @Hint=#17:Удалить табуляцию|
 WorkPoints=#2:go|
 EventPoints=#7:CurText|
 DataPoints=#4:text|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:   text:THI_Event;|21:   CurText:THI_Event;|3:   |44:   procedure go(var Data:TData; index:word);|3:   |5: end;|0:|14:implementation|0:|25:procedure THiAsmClass.go;|3:var|11:  S:String;|17:  i, Len:Integer;|5:begin|28:  S :=(ToStringEvent(text));|18:  Len :=Length(S);|27:  for i :=1 to Len do begin|34:    if S[i] = #9 then S[i] := ' ';|6:  end;|23:_hi_OnEvent(CurText,S);|4:end;|4:end.|
 link(CurText,15001422:doEvent2,[(303,251)(303,202)])
 link(text,13584766:Var2,[])
}
Add(Hub,15001422,343,189)
{
 InCount=3
 link(onEvent1,1515988:doClear,[(364,195)(364,202)])
 link(onEvent2,1515988:doAdd,[(364,202)(364,195)])
}
Add(GetDataEx,2982600,238,168)
{
 link(Data,482586:Text,[])
}
Add(Button,10329520,119,245)
{
 Left=505
 Top=415
 link(onClick,15015104:go,[])
}
Add(Button,2932786,119,301)
{
 Left=585
 Top=415
 link(onClick,4046998:doReplace,[])
}
Add(Replace,4046998,224,301)
{
 SubStr="\9"
 link(onReplace,15001422:doEvent3,[(300,307)(300,209)])
 link(Str,13584766:Var1,[(230,222)])
}
Add(GetDataEx,13584766,231,217)
{
 link(Data,2982600:Var1,[(237,173)])
}

Редактировалось 1 раз(а), последний 2018-04-09 12:01:27

карма: 4

Ответов: 18

Рейтинг: 0

#9: 2018-04-09 12:21:08 ЛС | профиль | цитата

Sersey писал(а):

В вашей схеме 1 Replace лишний

В нашей схеме 2-й Replace соответствует техническому заданию.

Gitarist писал(а):

... удалить все пробелы в строках. В том числе длинные пробелы (табуляции)

В отличие от третьей кнопки Вашей последней схемы (она исполняет только вторую часть ТЗ)
Не говоря уже о том, что удалять переводы строк -- не соответствует этому ТЗ (каким бы по форме оно ни было)

карма: 2

пугаться не надо ...

Ответов: 106

Рейтинг: 0

#10: 2018-04-10 10:41:43 ЛС | профиль | цитата

Putin писал(а):

А правильно записать символ табуляции -- не судьба, что ли

Спасибо большое))

карма: 0

Форумы Между деломКак удалить пробелы в тексте? ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)