데이터 윈도우 범위클립보드 만들기.

빅셔 2010. 9. 27. 17:58

    FOR ii = long(ls_info[1]) to long(ls_info[2])     //행수만큼 반복작업을 한다.
        FOR jj = 3 to UpperBound(ls_info)             //담겨진컬럼수 만큼 반복한다.
            ls_type = Left(this.Describe(ls_info[jj] + '.ColType'),2)
        CHOOSE CASE ls_type
            CASE 'ch'
                ls_pass = this.GetItemString(ii, ls_info[jj])
            CASE ELSE
                ls_pass = String(this.GetItemNumber(ii, ls_info[jj]))
        END CHOOSE
            //데이터 널 체크
            IF ISNULL(ls_pass) OR TRIM(ls_pass) = ''THEN ls_pass = ''
            ls_string += ls_pass //데이터 삽입
            IF JJ <> UpperBound(ls_info) Then ls_string += "~t"
            //마지막 행이 아닌경우 탭분리
            NEXT
        //행이바뀌는 경우 개행문자 삽입
        ls_string += "~r~n"
    NEXT
END IF

::ClipBoard(ls_string)

//대충이런식으로 만들면될거 같은데 우선 패스