Dim i() As Integer
Dim s() As String
Dim x As Integer
s = Split(strline, " ")
Redim i(LBound(s) To UBound(s))
For x = LBound(s) To UBound(s)
i(x) = Val(s(x))
Next
Dim s() As String
Dim x As Integer
s = Split(strline, " ")
Redim i(LBound(s) To UBound(s))
For x = LBound(s) To UBound(s)
i(x) = Val(s(x))
Next
解决方案 »
- 在ACCESS中有象SQL中identity(int,1,1)的函数嘛??
- 急!在线!!UP有分!请问如何判断“万象幻境“是否处于锁定状态!
- listview 控件中的某一列如何实现右对齐,就像资源管理器中的文件长度那列?
- 关于VBENCODE
- 500分恳请开各位大哥给俺点意见,请高手进!谢谢!
- ocx发布问题
- vb能向flash传变量吗?怎么传?
- 请问vb中有象delphi的datamodule
- 急!急!急!关于printer的打印问题
- vb与Plc通讯
- function 用法
- 双击窗体VB停止工作,form.log显示缺少控件加载!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Dim i1 As Integer, i2 As Integer
i2 = InStr(strline, " ")
i1 = Left$(strline, i2)
i2 = Mid$(strline, i2)