Dobrý den

Prosím o radu s následujícím problémem

Mám jednu jednoduchou funkci, jejímž výsledkem jsou dvě číselné hodnoty (s 2  desetinnými místy). Převedu si je na řetězec a spolu s několika fixními texty (jednotky) spojím do jednoho řetězce a jako text vložím do výkresu.

Je pravdou, že by tam mohla zůstat desetinná tečka, ale vzhledem k místním zvyklostem bych tam chtěl dát čárku. Kam to umístit, bych věděl, ale nějak mne nenapadá jednoduché řešení - jen (snad) rozříznout řetězec na část před tečkou a za tečkou a mezi ně vložit čárku. Nestkali jste se už někdo tím?

Děkuji

J. Mantlík

Domnívám se, že v lispu přímé řešení neexistuje. Já používám (pro "inverzní" funkci) toto:

(defun inter(string / ii,ll,str)
 (if (/= string "")(progn
   (setq ll (strlen string) ii 1 str string string "")
 (while (<= ii ll)
    (if (= (substr str ii 1) ",")
        (setq string (strcat string "."))
        (setq string (strcat string (substr str ii 1)))
     )
    (setq ii (1+ ii))
)))
(setq string string)
)

Dobrý den,

můžete také použít funkci VisualLispu vl-string-subst, např.

(vl-string-subst "," "." "123.456")

s pozdravem

Děkuji panu Liškovi, že mne upozornil tak kulantně :-) ("můžete také" místo "co to navrhujete za zvrhlost"). Je vidět, že mé znalosti LISPu zatuhly před pár lety.

Děkuji

Ale protože mé znalosti jsou o dost menší, než p. Seinera, musím se ještě zeptat.

Je možno místo posledního řetězce ve výrazu (použil jste "123.456") použít proměnnou, obsahující řetězec?

např. tedy

(vl-string-subst "," "." p)

J. Mantlík

Samozřejmě. vl-string-subst je funkce jako každá jiná, tzn. pro každý z parametrů lze použít proměnnou. Funkce je definována VisualLispem, proto to předpona vl-.

S pozdravem