用VB如何读取粘贴板上的内容，然后提取粘贴板里每行的第一位输出到f:\1.txt
求全代码，谢谢
VB如何读取粘贴板内容
答案:2 悬赏:0 手机版
解决时间 2021-02-25 00:27
- 提问者网友：寂寞撕碎了回忆
- 2021-02-24 17:29
最佳答案
- 五星知识达人网友：拾荒鲤
- 2021-02-24 18:53
你是指每行的第一个字符吧？
Private Sub Command1_Click()
Dim s$, a$()
Open "f:\1.txt" For Output As #1
s = Clipboard.GetText
a = Split(s, vbCrLf)
For i = 0 To UBound(a)
Print #1, Left(a(i), 1)
Next
Close #1
End Sub
Private Sub Command1_Click()
Dim s$, a$()
Open "f:\1.txt" For Output As #1
s = Clipboard.GetText
a = Split(s, vbCrLf)
For i = 0 To UBound(a)
Print #1, Left(a(i), 1)
Next
Close #1
End Sub
全部回答
- 1楼网友：七十二街
- 2021-02-24 20:15
获得文字直接用
clipboard.gettext
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯