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

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文本文件的话是可以

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

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

Rem 从文本文件中逐行获取数据直至最后一行示例

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)
   Ify>lof(1)
      x=Lof(1)
   Else
      Seek 1,y
   End If
   MsgBox GetTxtdate
Loop
Close #1
End Sub

jkline 发表于 2007-11-30 09:05:22

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

不胜感激！

geniar 发表于 2007-12-4 20:05:32

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

geniar 发表于 2007-12-4 20:09:30

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

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

村上舞!舞!舞 发表于 2007-12-4 22:21:13

我不是MM。

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

jkline 发表于 2007-12-7 17:49:41

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

页: [1]

51Testing软件测试论坛 's Archiver