[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
707093864

Rank: 1

帖子
61 
积分
70 
技术
1  
捐助
0  
注册时间
2015-8-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2016-3-25 17:50 | 只看该作者

求大神，为什么随机存取的文件无法用if进行判断？

Open App.Path & "\data.txt" For Random As #1 Len = Len(per)
        m = LOF(1) \ Len(per)
        For i = 1 To m
           Get #1, i, per
           If per.name = Text1.Text Then
              Text2.Text = per.num
              exit for
           End If
        Next i
    Close #1
收藏 分享

gawk

Rank: 8Rank: 8

帖子
1088 
积分
5421 
技术
98  
捐助
30  
注册时间
2011-10-9 
2楼
发表于 2016-3-25 19:28 | 只看该作者
能否说一下你这个是什么脚本？是VBS吗？
Talk is cheap. Show me the code.
没事不要瞎扯淡，有能耐就把代码贴出来给我看。

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
3楼
发表于 2016-3-25 19:40 | 只看该作者
回复 2# gawk

貌似vb

TOP

依山居

Rank: 5Rank: 5

帖子
593 
积分
935 
技术
49  
捐助
0  
注册时间
2008-1-3 
4楼
发表于 2016-3-25 19:43 | 只看该作者
回复 3# pcl_test


    他帖子不合版规,快扣分.
下载安装python3 https://www.python.org/downloads/ 代码存为xx.py 双击运行或IDLE打开F5运行

TOP

707093864

Rank: 1

帖子
61 
积分
70 
技术
1  
捐助
0  
注册时间
2015-8-9 
5楼
发表于 2016-3-25 20:50 | 只看该作者
回复 2# gawk


    vb与vbs不是相通吗

TOP

707093864

Rank: 1

帖子
61 
积分
70 
技术
1  
捐助
0  
注册时间
2015-8-9 
6楼
发表于 2016-3-25 20:50 | 只看该作者
回复 4# 依山居


    不会就别bb

TOP

707093864

Rank: 1

帖子
61 
积分
70 
技术
1  
捐助
0  
注册时间
2015-8-9 
7楼
发表于 2016-3-26 16:12 | 只看该作者
求大神
你成了我用尽一生去纪念的过客。。。

TOP

707093864

Rank: 1

帖子
61 
积分
70 
技术
1  
捐助
0  
注册时间
2015-8-9 
8楼
发表于 2016-3-29 20:47 | 只看该作者
？？？？？？？？？？？
你成了我用尽一生去纪念的过客。。。

TOP

返回列表