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

Rank: 8Rank: 8

帖子
982 
积分
1525 
技术
78  
捐助
0  
注册时间
2010-10-23 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-7-10 15:39 | 只看该作者

[问题求助] [已解决]VBS中可以使用VB的IIF 函数吗，怎么使用？

本帖最后由 pcl_test 于 2016-8-12 22:04 编辑

VBS中可以使用iif吗，怎么使用？
其实的目的是为了获取iif的返回值。
  1. On Error Resume Next

  2. a=15

  3. Function IIf(a=15,15,13)

  4. MsgBox a

  5. End Function
复制代码
错误：缺少')'
  1. On Error Resume Next

  2. a=15

  3. IIf(a=15,15,13)

  4. MsgBox a
复制代码
错误:调用过程时不能使用括号
  1. On Error Resume Next

  2. a=15

  3. Set b=IIf (a=15,"15","13")

  4. MsgBox b
复制代码
显示了空值
1

评分人数

    • broly: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享
如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。

Hello123World

Rank: 8Rank: 8

帖子
982 
积分
1525 
技术
78  
捐助
0  
注册时间
2010-10-23 
2楼
发表于 2011-7-10 15:41 | 只看该作者
IIF 函数
       Visual Script

          Function IIF(expression,true_value,false_value)
     IIF = false_value
      If expression Then IIF = true_value
         End Function

　　Visual Basic语法格式为:

　　IIf(expr, truepart, falsepart)

　　IIf(表达式,真的部分,假的部分)

　　作用:

　　根据表达式的值，来返回两部分中的其中一个。

　　IIf 函数的语法参数：

　　expr 必要参数。用来判断真伪的表达式。

　　truepart 必要参数。如果 expr 为 True，则返回这部分的值或表达式。

　　falsepart 必要参数。如果 expr 为 False，则返回这部分的值或表达式。

　　说明

　　由于 IIf 会计算 truepart 和 falsepart，虽然它只返回其中的一个。因此要注意到这个副作用。例如，如果 falsepart 产生一个被零除错误，那么程序就会发生错误，即使 expr 为 True。
如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。

TOP

ArdentMan

Rank: 5Rank: 5

帖子
288 
积分
924 
技术
70  
捐助
0  
注册时间
2011-7-1 
3楼
发表于 2011-7-10 16:37 | 只看该作者
vbs中没有自己定义一个出来就的是了
  1. Dim Num

  2. Randomize

  3. Num = Int(Rnd * 20)

  4. MsgBox Num & "|" & IIF(Num > 10, "BatHome", "ArdendMan")

  5. 

  6. Function IIF(Exp, isTrue, isFalse)

  7.   IIF = isFalse

  8.   If Exp Then IIF = isTrue

  9. End Function
复制代码
1

评分人数

一路飘过的鸟~~~

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
4楼
发表于 2011-7-10 18:29 | 只看该作者
Function IIf(a=15,15,13)
MsgBox a
End Function

楼主，你学了这么久的VBS，连函数怎么写都不知道吗？

VBS可以使用的函数列表：
《Windows 脚本技术》→VBScript→参考→函数 章节
直接用命令打开：hh script56.chm::/html/vtoriFunctions.htm
1

评分人数

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
5楼
发表于 2011-7-10 19:32 | 只看该作者
本帖最后由 broly 于 2011-7-10 19:34 编辑

我用自己的话给你解释VBS的函数。
首先看看VBS参考手册的定义：
  1. Function 语句

  2. 声明 Function 过程的名称、参数以及构成其主体的代码。

  3. 

  4. [Public [Default]| Private] Function name [(

  5.   arglist

  6. )]

  7. [statements]

  8. [name = expression]

  9. [Exit Function] 

  10. [statements]

  11. [name = expression]

  12. End Function 
复制代码
Function前面的语句是可选的，这些关键字涉及的知识是“作用域”。由于VBS一般写在一个文件中，

所以这个可选语句对于初学者可以暂时不用理解。


看下面的例子：
  1. Dim expression,true_value,false_value,strReturn

  2. 

  3. expression = 1 + 1

  4. true_value = "1+1=2"

  5. false_value = "1+1≠2"

  6. 

  7. strReturn = IIf(expression,true_value,false_value)

  8. MsgBox strReturn

  9. 

  10. Function IIf(expr, truepart, falsepart)

  11.   If(expr) Then

  12.     IIf = truepart

  13.   Else

  14.     IIf = falsepart

  15.   End If

  16. End Function
复制代码
函数IIF：
  1. Function IIf(expr, truepart, falsepart)

  2.   If(expr) Then

  3.     IIf = truepart

  4.   Else

  5.     IIf = falsepart

  6.   End If

  7. End Function
复制代码
函数的名称其实相当于一个函数内已经被定义的变量，即隐含了 "Dim IIf"
而这个变量的值就是这个函数的返回值，你给这个变量复制什么，返回值就是什么。

至于函数的调用，直接写函数名称和参数就可以了，不用 set 。里面是写变量或者值，不要“a=5”这

样写
  1. Set 语句

  2. 将对象引用赋给一个variable或property，或者将对象引用与事件关联。
复制代码
1

评分人数

---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
6楼
发表于 2011-7-10 19:37 | 只看该作者
根据你的意思，应该这样写：
  1. Dim expression,true_value,false_value,strReturn

  2. 

  3. expression = 2

  4. true_value = "1+1=2"

  5. false_value = "1+1≠2"

  6. 

  7. strReturn = IIf("expression = 2",true_value,false_value)

  8. MsgBox strReturn

  9. 

  10. Function IIf(expr, truepart, falsepart)

  11.   If( Eval(expr) ) Then

  12.     IIf = truepart

  13.   Else

  14.     IIf = falsepart

  15.   End If

  16. End Function
复制代码
---学无止境---

TOP

Hello123World

Rank: 8Rank: 8

帖子
982 
积分
1525 
技术
78  
捐助
0  
注册时间
2010-10-23 
7楼
发表于 2011-7-10 22:56 | 只看该作者
由于我是参考vb的基础教程，所以在一些细节上会和vbs有些出入。
本意是用iif缩减代码量，vbs中没有IIf，还要自定义，那还不如直接用if then else 呢。
如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。

TOP

Hello123World

Rank: 8Rank: 8

帖子
982 
积分
1525 
技术
78  
捐助
0  
注册时间
2010-10-23 
8楼
发表于 2011-7-10 23:21 | 只看该作者
本帖最后由 Hello123World 于 2011-7-10 23:23 编辑

4# powerbat
你说的《Windows 脚本技术》是虚指脚本技术，
还是实指什么东西：
网站（http://www.microsoft.com/china/t ... center/default.mspx）？
还是书？
hh script56.chm::/html/vtoriFunctions.htm
提示找不到文件
如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
9楼
发表于 2011-7-10 23:23 | 只看该作者
8# Hello123World

在这里可以下载
http://www.bathome.net/viewthread.php?tid=1985&page=1&fromuid=25503#pid11240
1

评分人数

---学无止境---

TOP

返回列表