vb 将文本文件的内容复制到剪贴板

答案:3 悬赏:0 手机版

解决时间 2021-02-14 03:46

提问者网友：山高云阔
2021-02-13 02:48

怎么样才能在不打开*.txt文件条件下
将里面的东西复制到剪贴板。

最佳答案

五星知识达人网友：躲不过心动
2021-02-13 03:26

复制到剪切板的主要代码：
clipboard.settext str

示例（示例文件1.txt）：
    open "c:\1.txt" for input as #1
    clipboard.clear
    clipboard.settext input(lof(1), 1)
    close #1其中的
clipboard.clear表示清空剪切板（推荐清空一次）

如果是使用相对路径的，"c:\1.txt"改为

app.path & "\1.txt"

读取剪切板主要代码：
s = clipboard.gettext()

全部回答

1楼网友：痴妹与他
2021-02-13 06:37

新建一窗体，添加Command1,text1 Private Sub Command1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) '上面两条语句是的所有内容 Clipboard.SetText Form1.Text1.SelText, 1 '这条语句是将tex1.text里的内容全部复制到剪贴板 End Sub 如果你不想将text1.text里面的内容全部复制，就可以编写以下语句... 再添加一个Command2 Private Sub Command2_Click() Clipboard.SetText Form1.Text1.SelText, 1 End Sub 这个按扭的作用是将选中的内容复制到剪贴板。我好象理解错了问题，不好意思。

2楼网友：山君与见山
2021-02-13 04:59

新建一窗体，添加Command1,Label1 Private Sub Command1_Click() Dim frfile As Integer Dim Lstr As String frfile = FreeFile Open "C:\1.txt" For Input As #frfile While Not EOF(frfile) Line Input #frfile, Lstr Label1.Caption = Label1.Caption & Lstr & vbCrLf Wend Close #frfile Clipboard.SetText Label1.Caption End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息