| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 424 人关注过本帖
标题:VB读取目录下的TXT
只看楼主 加入收藏
wangyang407
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2018-12-31
  问题点数:0  回复次数:1   
VB读取目录下的TXT
Private Sub Timer1_Timer()
On Error Resume Next
Text4.Text = Clipboard.GetText '将剪贴板中文本赋给text1
For i = 1 To Len(Text4.Text)
s = Mid(Text4.Text, i, 1)
If IsNumeric(s) Then t = t & s
Next i
Label1 = t
End Sub

Private Sub Timer2_Timer()
Dim arr, i, mark
mark = Label1.Caption

Open App.Path & "\1.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
For i = 0 To UBound(arr)
If InStr(arr(i), mark) = 1 Then Label2.Caption = Split(arr(i), "=")(1)
Next

End Sub

如果没有找到怎么返回呢?

[此贴子已经被作者于2019-1-1 03:09编辑过]

2018-12-31 23:29
wangyang407
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2018-12-31
  得分:0 
说明:根据剪切板获取上面的数字,并记录在目录下的TXT,记录方式   123=你好,并根据123查询显示后面的字符,如果没有则提示没有
2019-01-01 02:45







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025364 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved