51Testing软件测试论坛

标题: 如何从文本文件中读内容再写出来？ [打印本页]

作者: jkline 时间: 2007-11-29 11:20
标题: 如何从文本文件中读内容再写出来？
=================================================================
现在我要想从一个文本文件中挨行读取字符串，
然后再写到某个程序的editbox控件窗口中，
请问高手如何实现文本文件中挨行读取字符串脚本，谢谢！

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

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

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

作者: caesarqth 时间: 2007-11-30 00:01
1。可以采用datapool的方式
2。把数据放到excel格式中，在脚本中创建对象，直接从excel文件只读取数据

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

作者: 村上舞!舞!舞 时间: 2007-11-30 01:08
标题: 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)
   If  y>lof(1)
      x=Lof(1)
   Else
      Seek 1,y
   End If
   MsgBox GetTxtdate
Loop
Close #1
End Sub

作者: jkline 时间: 2007-11-30 09:05
好的~~~
谢谢楼上两位，
小弟我这就去试下，如果有困难还请多照顾小弟！

不胜感激！

作者: geniar 时间: 2007-12-4 20:05
舞舞ＭＭ是不是If 语句少了个then，呵呵

作者: geniar 时间: 2007-12-4 20:09
正解：
If y>Lof(1) then
      x=Lof(1)
   Else
      Seek 1,y
   End If
估计是粘贴的时候出了问题

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

作者: 村上舞!舞!舞 时间: 2007-12-4 22:21
标题: 我不是MM。
呵呵。我的MSN：huiyouzhiwu@hotmail.com

作者: jkline 时间: 2007-12-7 17:49
偶看到了加上！！！
在线帮助！！！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)