如何从文本文件中读内容再写出来？

jkline · 发表于 2007-11-29 11:20:21

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

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

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

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

caesarqth · 发表于 2007-11-30 00:01:45

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

村上舞!舞!舞 · 发表于 2007-11-30 00:04:36

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

村上舞!舞!舞 · 发表于 2007-11-30 01:08:06

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