01.06.2014 07:47    

k005
Merhaba arkadaşlar;

iki yada daha Fazla sayıdaki yazıları ( text ) birleştiriyorum.. birleştirmenin tamamlandığı esnada birleşen bu yazıyı hafızaya nasıl alabilirim ? ( cTRL+c) bunu başka bir yere Excel e yapıştıracağım..

yardımcı arkadaşa şimdiden teşekkürler.

01.06.2014 14:16    

ehya
Kod:

(defun setClipText(str / html result)
(if (= 'STR (type str))
  (progn
  (setq html   (vlax-create-object "htmlfile")
        result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'setData "Text" str)
  )
  (vlax-release-object html)
   str
   )
)
)

(setq deneme-yazi "1000")

(setClipText deneme-yazi)

01.06.2014 15:54    

k005
Ehya hocam verdiğiniz kodları lispe uyguladım. şöyle bir sonuç çıkıyor ;

önce yazı birleştirme yapıyorum., en son hangi parça yazıyı seçtiysem onu hafızaya kopyalıyor.. birleşmiş yazıyı hafızaya alamıyorum.

örnek :

birinci text: Bahçe
ikinci text : duvarı

birleşince : Bahçe duvarı . ama sadece duvarı kısmını hafızaya alabiliyorum vermiş olduğunuz kod ile..

01.06.2014 16:11    

ehya
Kod:

(setClipText (strcat "birinci text" "ikinci text"))

01.06.2014 20:24    

k005
Teşekkürler hocam, Tamamdır..

> 1 <
Copyright © 2004-2022 SQL: 1.129 saniye - Sorgu: 56 - Ortalama: 0.02017 saniye