Ug/postbuilder

[KPuTuK 0]

не смог найти в help-e как убрать точку после целого числа

вроде ничего страшного, а глаза мозолит + объём программы растёт.

P.S. пост пишу для Heid

[sbs 1]

Вручную в .tcl файле добавить процедуру, которая в конце генерации просматривает файл УП и убирает точки.

Вызывать ее из

proc MOM_end_of_program { }

Что-то вроде

proc Edit_hnc_file { } {

global mom_output_file_directory mom_output_file_basename mom_output_file_suffix

global hnc_file

global ptp_file

for { set i 1 } { $i > 0 } { incr i } {

set str_buffer [gets $ptp_file]

set find_last_indx -1

set tmp_str ""

set tmp_str1 ""

set tmp_str2 ""

set tmp_str3 ""

regsub -all -- {[-]+\.+} $str_buffer "-0." tmp_str

regsub -all -- {[+]+\.+} $tmp_str "+0." tmp_str1

regsub -all -- {\.+[ ]+} $tmp_str1 " " tmp_str2

regsub -all -- {[=]+\.+} $tmp_str2 "=0." tmp_str3

if { [eof $ptp_file] } break

puts $hnc_file $tmp_str3

}

}

Так можно поправить любые недостатки форматирования.

[JohnnieWalker 0]

Кто-нибудь реализовывал данный пример?

У меня появляется ошибка при добавлении в пост (ошибка в do_event).

[yuri_k 0]

#--- этим можно вырезать любую любую часть слова ---#

set program_name [string trim $mom_part_name step.prt]

set program_name [string toupper $program_name]

set first [string last "\\" $program_name]

set last [string length $program_name]

set program_name [string range $program_name [expr {$first+1}] $last]

#--- а здесь замените "_" на "." ---#

regsub -all {_} $program_name " " program_name

надеюсь у Вас всё получится

[avd 73]

как вариант <noindex>тут</noindex>