| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1526 人关注过本帖, 1 人收藏
标题:VB读取目录下的TXT
只看楼主 加入收藏
wangyang407
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2018-12-31
收藏(1)
 问题点数: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编辑过]

搜索更多相关主题的帖子: VB TXT Sub Next For 
2018-12-31 23:29
wangyang407
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2018-12-31
收藏
得分:0 
说明:根据剪切板获取上面的数字,并记录在目录下的TXT,记录方式   123=你好,并根据123查询显示后面的字符,如果没有则提示没有
2019-01-01 02:45
快速回复:VB读取目录下的TXT
数据加载中...
 
   



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

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