用一个例子说明VBS语法

Dim arrCmdLine(200)
Dim nTotalCmdLine

arrCmdLine(1) = "sdfasdf"
arrCmdLine(2) = "sdfasdf"
arrCmdLine(3) = "GETTRAFILE:FILE=TF.CPXX.CY1,BEG=YY-MM-DD,TER=YY-MM-DD, IV=HH-MM-HH-MM;"
nTotalCmdLine = 3

For tt = 1 to nTotalCmdLine
 
 If  arrCmdLine(tt) = "GETTRAFILE:FILE=TF.CPXX.CY1,BEG=YY-MM-DD,TER=YY-MM-DD, IV=HH-MM-HH-MM;" Then
  varYear  = Year(Now)
  varYear  = Right(varYear,2)
  varMonth = Month(Now)
  VarDay   = Day(Now)
  arrCmdLine(tt) = "GETTRAFILE:FILE=TF.CPXX.CY1,BEG=" & varYear & "-" & varMonth & "-" & varDay &",TER=" & varYear & "-" & varMonth & "-" & varDay & ",IV=10-00-11-00;"
  
 End If

Next

 

MsgBox arrcmdline(3) 

 

 

1.数组定义和引用用（）

2.定义数组dim arrA(200) 则有201个元素 ，arrA（0）~arrA（200），我们一般都是从1开始赋值,方便遍历

For tt = 1 to nTotalCmdLine  能取到nTotalCmdLine

3.等号和赋值号 等价

4.VBS中的函数真丰富啊