=================================================================
现在我要想从一个文本文件中挨行读取字符串，
然后再写到某个程序的editbox控件窗口中，
请问高手如何实现文本文件中挨行读取字符串脚本，谢谢！

PS：
因为要测试一个条形码扫描枪，
该扫描仪扫描的速度可以达到3次/S，
现在我通过在软件里直接由键盘输入条形码信息，
但是由于条形码比较长，即便我录制成功进行回放，
但是也无法达到3次/S的速度（因为是录制的键盘输入，要比扫描枪扫描一组条形码速度慢），
所以我想到事先把条形码信息都写好放在文本文件中，然后直接通过脚本读文本中的条形码信息，
然后再次写到软件的对应位置，我想这样速度要快点。

如果高手们遇到过这样的问题，还请帮小弟解决下；
如果有更好的方法，还请告诉小弟。

                                    不胜感激！
=================================================================

1。可以采用datapool的方式
2。把数据放到excel格式中，在脚本中创建对象，直接从excel文件只读取数据

如果是读取TXT文本文件的话是可以,但是怕是不好办,你这种情况如果量不是很大的话完全可以利用Robot的数据池来完成.具体怎么用,你搜索一下本版中的关于数据池用法的贴子.很多地方有讲.另一种就是利用Excel文件做数据源来完成.本版中也有很多关于这类的资料.先去试试看.哪里有困难再来这里大家一起解决

Sub main
   Dim GetTxtdate as String
   Dim x
   Dim y
   Open "c:\temp001.txt" for Input as #1
   x=1
   Do Until x=Lof(1)
      Line Input #1, GetTxtdate
      x=x+1
      y=Seek(1)
      If  y>lof(1)
         x=Lof(1)
      Else
         Seek 1,y
      End If
      MsgBox GetTxtdate
   Loop
   Close #1
End Sub

好的~~~
谢谢楼上两位，
小弟我这就去试下，如果有困难还请多照顾小弟！

                                  不胜感激！

舞舞ＭＭ是不是If 语句少了个then，呵呵

正解：
If y>Lof(1) then
         x=Lof(1)
      Else
         Seek 1,y
      End If
估计是粘贴的时候出了问题

舞！ＭＭ，可否知道你ＭＳＮ　抑或ＱＱ，有空多交流下，：）

呵呵。我的MSN：huiyouzhiwu@hotmail.com

偶看到了加上！！！
在线帮助！！！