| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3791 人关注过本帖
标题:vb如何才能实现判断txt文件中是否存在某个内容
只看楼主 加入收藏
cxf6672
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2006-4-18
收藏
 问题点数:0 回复次数:3 
vb如何才能实现判断txt文件中是否存在某个内容
假设c:\aaa.txt 文件内容如下
版本=1.2
user=cxf
reg=正确
其中reg的值有时为“正确”有时为“错误”那么如何才能实现判断c:\att.txt文件中如reg的值为“正确” 则显示窗体1 若是“错误”出现窗体2
搜索更多相关主题的帖子: txt 文件 判断 
2006-05-13 11:26
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
Dim JuStr as String
'假设已经读取Txt=C:\aaa.txt中的全部内容
JuStr=Mid(Txt,Instr(Txt,"reg=")+4,2)
JuStr即="正确"或"错误"

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-13 12:22
cxf6672
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2006-4-18
收藏
得分:0 

不怕你见笑,说实话没看明白

2006-05-13 14:00
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
我是用了Mid函数取出你要的那个段。
下面是Mid函数的说明:

Mid 函数

返回 Variant (String),其中包含字符串中指定数量的字符。

语法

Mid(string, start[, length])

Mid 函数的语法具有下面的命名参数

部分 说明
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null
start 必要参数。为 Longstring 中被取出部分的字符位置。如果 start 超过 string 的字符数,Mid 返回零长度字符串 ("")
length 可选参数;为 Variant (Long)。要返回的字符数如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。

说明

欲知 string 的字符数,可用 Len 函数。

注意 MidB 函数作用于字符串中包含的字节数据,如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数,而不是字符数。对于使用 MidB的示例代码,请参阅示例主题中的第二个示例。

Mid 函数示例

本示例使用 Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"   建立一个字符串。
FirstWord = Mid(MyString, 1, 3)   ' 返回 "Mid"LastWord = Mid(MyString, 14, 4)   ' 返回 "Demo"MidWords = Mid(MyString, 5)   ' 返回 "Funcion Demo"

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-13 17:21
快速回复:vb如何才能实现判断txt文件中是否存在某个内容
数据加载中...
 
   



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

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