Разделение тысяч пробелами

Форумы Помощь по пакетуРазделение тысяч пробелами ← Ctrl1Ctrl →

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

Ответов: 119

Рейтинг: 0

#1: 2022-02-06 12:10:36 ЛС | профиль | цитата

Собственно вопрос как разделить тысячи пробелами? Что бы из вот этого:
1000
10000
100000
1000000
Получилось вот это:
1 000
10 000
100 000
1 000 000

карма: 0

Ответов: 264

Рейтинг: 18

#2: 2022-02-06 12:59:27 ЛС | профиль | цитата

ConvertorEx в помощь


Add(MainForm,2953706,35,147)
{
 link(onCreate,15317820:doData,[])
}
Add(ConvertorEx,11593107,196,105)
{
 Mode=13
 link(onResult,15041292:doText,[])
}
Add(Edit,16495859,105,105)
{
 Left=25
 Top=10
 Width=125
 Text="1000000"
 link(onChange,8363184:doWork2,[])
}
Add(Label,15041292,280,105)
{
 Left=25
 Top=40
}
Add(DoData,15317820,105,161)
{
 link(onEventData,8363184:doWork3,[(172,167)])
 link(Data,16495859:Text,[])
}
Add(HubEx,8363184,168,105)
{
 link(onEvent,11593107:doConvert,[])
}

карма: 3

Ответов: 8973

Рейтинг: 824

#3: 2022-02-06 21:28:12 ЛС | профиль | цитата

fox-video, если цифры внутри текста, то мода "Триады" не поможет

Целые и с не более двух цифр после запятой в любом тексте разбивает на триады IC:

Add(InlineCode,6238456,196,112)
{
 WorkPoints=#7:doParse|
 EventPoints=#5:onRes|
 DataPoints=#3:Str|
 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|26:     _data_Data:THI_Event;|19:     Str:THI_Event;|22:     onRes: THI_Event;|4:    |49:	 procedure doParse(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doParse;|16:var s,ss:string;|16:    i,n:integer;|5:begin|9:  ss:='';|7:  n:=0;|32:  s:=ReadString(_Data, Str, '');|23:   if s = '' then Exit;|30:  for i:=Length(s) downto 1 do|8:   begin|38:     if s[i] in ['0'..'9'] then n:=n+1|13:	  else n:=0;|14:	 if n>=3 then|8:	  begin|20:	   ss:=' '+s[i]+ss;|9:	   n:=0;|7:	  end |20:	 else  ss:=s[i]+ss;|7:	      |7:   end;|24:  _hi_onEvent(onRes,ss);|4:end;|0:|4:end.|
 link(onRes,10855463:doAdd,[])
 link(Str,15841156:Item,[(202,103)(188,103)(188,152)(153,152)])
}
Add(Memo,3132979,133,35)
{
 Left=10
 Top=10
 Width=310
 Strings=#10:1234567,89|9:987654321|33:hjhjhl 1234567890.25 uytioutyuoio|16:dadag 31415926  |
}
Add(Memo,10855463,259,112)
{
 Left=10
 Top=145
 Width=305
}
Add(Button,6621309,63,105)
{
 Left=30
 Top=105
 Caption=">>"
 link(onClick,8493139:doEvent1,[])
}
Add(Hub,8493139,112,105)
{
 link(onEvent1,10855463:doClear,[(244,111)(244,125)])
 link(onEvent2,15841156:doEnum,[])
}
Add(ArrayEnum,15841156,147,112)
{
 link(onItem,6238456:doParse,[])
 link(Array,3132979:Array,[])
}

(В IC символ ">" заменить ручками, т. к. форум заменяет его на Word-овские кавычки!!!)
Ой, кажется исправлен форум, ">" не повредил!

Редактировалось 1 раз(а), последний 2022-02-06 21:32:04

карма: 19

Ответов: 5227

Рейтинг: 587

#4: 2022-02-07 10:09:09 ЛС | профиль | цитата

Старый добрый всеми забытый vbs который умеет считать бабки

Add(VBJScript,8311346,224,168)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Script=#19:Sub doWork(dt, idx)|22:  On Error Resume Next|30:  sys.onRes FormatCurrency(dt)|7:End sub|
 link(onRes,14447508:doWork3,[(284,174)])
}
Add(Edit,7986063,112,126)
{
 Left=20
 Top=20
 Width=135
 Text=""
 link(onChange,11185080:doEvent1,[])
}
Add(Memo,7283133,308,126)
{
 Left=190
 Top=20
 Width=175
 Height=210
 AddType=1
 ScrollBars=3
}
Add(MainForm,9340518,112,182)
{
}
Add(VBJScript,11239102,224,126)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Script=#19:Sub doWork(dt, idx)|22:  On Error Resume Next|59:  sys.onRes FormatNumber(dt,vbFalse,vbFalse,vbFalse,vbTrue)|72:  'sys.onRes FormatNumber(dt,,,,vbTrue)  'если нужны цифры после запятой|7:End sub|
 link(onRes,14447508:doWork2,[])
}
Add(HubEx,14447508,280,126)
{
 link(onEvent,7283133:doAdd,[])
}
Add(Hub,11185080,154,126)
{
 link(onEvent1,11239102:doWork,[])
 link(onEvent2,8311346:doWork,[(207,139)(207,174)])
}

Редактировалось 1 раз(а), последний 2022-02-07 10:10:08

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Форумы Помощь по пакетуРазделение тысяч пробелами ← Ctrl1Ctrl →


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