如何用VB逐行复制文本内容

来源：百度知道 编辑：UC知道 时间：2024/05/18 10:25:43
大哥、大姐好。我想用按键精灵复制文本文件里面的内容。希望大家帮忙解决。
如：d:\a.txt 的内容

yy
123456
abd888
我想分别复制出来，想复制第一行，就可以复制第二行，想要第二行复制第二行，也就是这3行会，可以任意复制。
谢谢你们，希望帮我解决一下，急。

程序清单:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
Private Const SWP_NOSIZE& = &H1
Private Const SWP_NOMOVE& = &H2

Dim lng, dat$, filepath, tot, lngc

Private Sub Command1_Click()
filepath = Label2.Caption
lngc = Text1.Text
If Text1.Text = "" Then MsgBox "请输入行数！", vbInformation, ""

Open filepath For Input As #1
Do Until EOF(1)
lng = lng + 1
Line Input #1, tot
If lng = Val(lngc) Then dat$ = tot: Exit Do
Loop
Close #1

Clipboard.Clear
Clipboard.SetText dat$

End Sub

Private Sub Form_Load()
lng = 0
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_OL