Dim f As Integer
Dim s As String
Dim value() As String
f = FreeFile()
Open "e:\1.txt" For Input As f
Do Until EOF(f)
Line Input #f, s
value() = Split(s, "-")
'这里加入MSchat代码,引用Value()的时候记得用Val(value(index))
Loop
Close
这里加入MSchat代码,就是把读取到Value里的X1-X2的值做为数据源放到MSChat里去
MSchat我不熟悉
因为Split函数出来的数据格式是String的,所以在给MSchat使用时必须使用Val()转换为数值型数据
在X1-X2的数据里
Value(0)是X1
value(1)是x2
温馨提示:答案为网友推荐,仅供参考