Data To ClipBoard

[mostafaalizadeh]

SELECT Table1
BB = "Code,Name,Payable," &&Clipboard Body
HH = "ßÏ,äÇã,ÞÇÈá �ÑÏÇÎÊ," && Clipboard Header
=datatoclip("Table1",BB,HH)
*-------------------
PROCEDURE DataToClip
*-------------------
LPARAMETERS ldb,lbodyg,lheaderg
lbodyg1 = LEFT(lbodyg,LEN(lbodyg)-1)
cntarray = OCCURS(",",lbodyg)
DIMENSION dbArray (cntarray,2)
ss = ""
cnta = 0
FOR idb = 1 TO LEN(lbodyg)
s = SUBSTR(lbodyg , idb , 1)
IF s=','
cnta = cnta + 1
ss = CHRTRAN(ss , ",","")
ss = UPPER(LEFT(ss,1))+SUBSTR(LOWER(ss),2)
dbArray(cnta,1) = ss
ss = ""
ENDIF
ss = ss + s
ENDFOR
cnta = 0
ss = ""
FOR idb = 1 TO LEN(lheaderg)
s = SUBSTR(lheaderg , idb , 1)
IF s=','
cnta = cnta + 1
ss = CHRTRAN(ss , ",","")
ss = UPPER(LEFT(ss,1))+SUBSTR(LOWER(ss),2)
dbArray(cnta,2) = ss
ss = ""
ENDIF
ss = ss + s
ENDFOR
SELECT &lbodyg1 FROM &ldb INTO CURSOR Tempclip
SELECT Tempclip
application.DataToClip("Tempclip",,3)
aclip = _cliptext
FOR idb = 1 TO cnta
aclip = strt(aclip , dbArray(idb,1) , dbArray(idb,2))
ENDFOR
_cliptext = aclip
USE IN Tempclip