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中的函数真丰富啊