자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

기타 [vb.net] html 테그를 클립보드에 삽입하는 함수

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 10,299회 작성일 20-05-23 22:29

본문

    Private Sub AddHTMLToClipboard(ByVal html As String)
        Const sContextStart As String = "<HTML><BODY><!--StartFragment -->"
        Const sContextEnd As String = "<!--EndFragment --></BODY></HTML>"
        Const m_sDescription As String = "Version:1.0" & Constants.vbCrLf & "StartHTML:aaaaaaaaaa" + Constants.vbCrLf & "EndHTML:bbbbbbbbbb" + Constants.vbCrLf & "StartFragment:cccccccccc" + Constants.vbCrLf & "EndFragment:dddddddddd" + Constants.vbCrLf
        Dim sHtmlFragment As String = html
        Dim sData As String = m_sDescription & sContextStart & sHtmlFragment & sContextEnd
        sData = sData.Replace("aaaaaaaaaa", m_sDescription.Length.ToString().PadLeft(10"0"c))
        sData = sData.Replace("bbbbbbbbbb", sData.Length.ToString().PadLeft(10"0"c))
        sData = sData.Replace("cccccccccc", (m_sDescription & sContextStart).Length.ToString().PadLeft(10"0"c))
        sData = sData.Replace("dddddddddd", (m_sDescription & sContextStart & sHtmlFragment).Length.ToString().PadLeft(10"0"c))
        Clipboard.SetDataObject(New DataObject(DataFormats.Html, sData), True)
    End Sub
 

댓글목록

등록된 댓글이 없습니다.