globals
    string array udg_PartStr
endglobals

function PriceStr takes string Str, integer Amount returns integer
    local integer Index = 0
    local integer blockBegin = 0
    local integer logicBlockSize = 0
    local integer lastSpace = 0
    local integer srcPos = 0
    local integer srcLen = StringLength(Str)
    local boolean tagFlag = false
    local string char

    loop
        exitwen srcPos >= srcLen
        set char = StringCase(SubString(Str, srcPos, srcPos+1), false) //Перевести в нижний регистр (не помню точно функцию)
        if char == '|' then
            set tagFlag = true
        elseif char == 'c' then
            if tagFlag then
                 set srcPos = srcPos + 7
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == 'r' then 
            if tagFlag then
                 set srcPos = srcPos + 1
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == ' ' then
            if logicBlockSize >= Amount then
                set udg_PartStr[Index] = SubString(Str, blockBegin, lastSpace)
                set Index = Index + 1
                set blockBegin = lastSpace + 1
                set logicBlockSize = 0
            endif
            set lastSpace = srcPos
        else
            set logicBlockSize = logicBlockSize + 1
        endif
        set tagFlag = false

        set srcPos = srcPos + 1
    endloop
    if blockBegin < srcLen-1 then
        set udg_PartStr[Index] = SubString(Str, blockBegin, srcLen)
        set Index = Index + 1
    endif
    return Index
endfunction

globals
    string array udg_PartStr
endglobals

function PriceStr takes string Str, integer Amount returns integer
    local integer Index = 0
    local integer itags = 0
    local integer i = 0
    local integer lspace = 0
    local integer maxlength = StringLength(Str)
    local integer partlength = 0
    local integer dpart = 0
    local integer position = 0
    local string symbol = ""
    local string tag = ""
    local string array tags
    local string a = SubString("А", 0, 1)
    local string b = SubString("р", 0, 1)
    // --------
    loop
        // --------
        set symbol = SubString(Str, position, position + 1)
        
        if symbol == a or symbol == b then
            set position = position + 1
        elseif symbol == "|" then
            set tag = SubString(Str, position + 1, position + 2)
            if  tag == "c" then
                set tags[itags] = SubString(Str, position, position + 10)
                set itags = itags + 1
                set position = position + 9
                set partlength = partlength - 1
            elseif tag == "r" then
                set itags = itags - 1
                set tags[itags] = ""
                set position = position + 1
                set partlength = partlength - 1
            endif
        elseif symbol == " " then
            set lspace = position
        endif
        // --------
        set partlength = partlength + 1
        if partlength > Amount then
            set udg_PartStr[Index] = udg_PartStr[Index] + SubString(Str, dpart, lspace)
            set Index = Index + 1
            set position = lspace
            set dpart = lspace + 1
            set partlength = 0
            if itags > 0 then
                set i = itags
                loop
                    set i = i - 1
                    set udg_PartStr[Index] = tags[i] + udg_PartStr[Index]  
                    set udg_PartStr[Index-1] = udg_PartStr[Index-1] + "|r"
                    exitwhen i == 0
                endloop
            endif
        endif
        // --------
        set position = position + 1
        if position > maxlength then
            set udg_PartStr[Index] = udg_PartStr[Index] + SubString(Str, dpart, maxlength)
        endif
        exitwhen position > maxlength
    endloop
    return Index
endfunction

function PriceStr takes string Str, integer Amount returns integer
 local integer Index=0
 local integer i=0
 local integer lst=0
 local integer lwd=0
 local integer tags=0
 local integer min=0
 local integer inW=0
 local integer clear=0
 local string s=""
 local string word=""
 local string color=""
 local string tag=""
 local string mark="" 
 local boolean find=false
 local boolean end=false
 loop
 exitwhen end
  set i=i+1
  set mark=SubString(Str,i-1,i)
  if mark=="|" then
   set tag=StringCase(SubString(Str,i,i+1),false)
   if tag=="c" then
    if word!="" then
     set inW=inW+1
    endif
    set word=word+SubString(Str,i-1,i+9)
    set tags=tags+1
    set color=color+SubString(Str,i-1,i+9)
    set i=i+9
   elseif tag=="r" then
    if word=="" then
     set s=s+"|r"
    else
     if inW>0 then
      set inW=inW-1
     endif
     set word=word+"|r"
     if tags>0 then
      set word=word+SubString(color,0,10*tags-10)
     endif
    endif
    set clear=clear+1
    set i=i+1
   elseif tag=="n" then
    if s!="" then
     set word=" "+word
     set lwd=lwd+1
    else
     set word=color+word
    endif
    if lwd+lst>Amount then
     set udg_PartStr[Index]=s
     set Index=Index+1
     set udg_PartStr[Index]=color+word
     set Index=Index+1
    else
     set udg_PartStr[Index]=s+word
     set Index=Index+1
    endif
    set s=""
    set word=""
    set lwd=0
    set lst=0
    set i=i+1
    set find=false
   endif
  else
   if find and (mark==" " or mark=="") then
    if SubString(Str,i-1,i)==" " then
     if lst+1+lwd>Amount then
      if s=="" then
       if inW>0 then
        set udg_PartStr[Index]=SubString(color,0,10*tags-inW*10)+word
        set inW=0
       else
        set udg_PartStr[Index]=color+word
       endif
       set Index=Index+1
      else
       set udg_PartStr[Index]=s
       set Index=Index+1
       if inW>0 then
        set s=SubString(color,0,10*tags-inW*10)+word
        set inW=0
       else
        set s=color+word
       endif
       set lst=lwd
      endif
     else
      set inW=0
      if s!="" then
       set s=s+" "+word
       set lst=lst+1
      else
       set s=color+word
       set lst=lwd
      endif
     endif
     set word=""
     set lwd=0
     set find=false
    else
     if s!="" then
      if lst+1+lwd>Amount then
       set udg_PartStr[Index]=s
       set Index=Index+1
       set udg_PartStr[Index]=color+word
      else
       set udg_PartStr[Index]=s+" "+word
      endif
     else
      set udg_PartStr[Index]=color+word
     endif
     set end=true
    endif
    if clear>0 then
     if tags>1 then
      set color=SubString(color,0,tags*10-clear*10+1)
      set tags=tags-1
     else
      set color=""
      set tags=0
     endif
     set clear=0
    endif
   else
    if mark==" " then
     if lst+1>Amount then
      set udg_PartStr[Index]=s
      set Index=Index+1
      set s=""
      set lst=0
     endif
     set s=s+" "
     set lst=lst+1
    elseif mark=="" then
     set udg_PartStr[Index]=s
     set end=true
    else
     if not find then
      set find=true
     endif
     set word=word+mark
     set lwd=lwd+1
    endif
   endif
  endif
 endloop
 return Index
endfunction