在线求助 vb text 换行数据读取 - 编程论坛

#2

风吹过b2012-10-10 12:31

使用 split 函数分解有规律的数据

dim s() as string
s=split(text5.text,vbcrlf)

这行执行完成后，你看一下S 里的值就知道了后面怎么用。

ubound(s) 得到 s 的最大下标，最小下标从0开始。

#3

tyms2012-10-10 14:42

你好。你说的数值读取帮助我完成了，现在再问一下，怎么用mytime控制发消息，比如上面的11，15，19，20 。。
我的设计是11秒 15秒，19秒，20秒时发送消息

#4

风吹过b2012-10-10 20:20

定时器，1秒触发一下，每次自己累减。当为0时，发送消息，然后读下一个消息。

例：
s(0)=11,....
S(1)=15,....
......

全局变量：
dim sjs as long    '当前的消息发送进度
dim tjs as long    '当前的消息剩余时间

private sub time.......           '随手写的，你自己补全
   tjs=tjs-1
   if tjs <=0 then                '容错，所以写成小于等于
      发送下标是 sjs 的消息。
      sjs=sjs +1
      if sjs > ubound(s) then  time1.end.... =false      '全部完成时，结束  。属性自己补全
      tjs=val(s(sjs))
   end if
end sub

#5

wube2012-10-11 01:39

说错了就不好意思
感觉你的描述让我觉得你只是建一个外部程序运行脚本
而想开发程序依照脚本去作该做的事
说白的就是读取脚本依照时间指示按键精灵对其他程序做该做的事

#6

tyms2012-10-11 09:11

你说的对。我就是这个意思。谢谢你了。可以结了