在线求助 vb text 换行数据读取
vb text 换行数据读取
text5 中的数据如下
1639184,11,765,336;
2294172,15,752,398;
2294172,19,745,466;
2294172,22,740,517;
2294172,25,746,543;
2294172,28,747,557;
2294172,31,762,529;
2294172,35,761,521;
2294172,38,748,446;
2294172,41,748,440;
2294172,50,148,188;
我现在要用一个一个读取他并进行如下操作，hwnd=第一列  时间间隔 mytime =第二列 X坐标=第三列 Y座标=第4列
然后用mytime 控制sendmessage 向hwnd窗口x.y发送左键按下消息
如何实现请各位指教

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

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

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

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

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

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

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