做一个聪明的勤劳人，悠悠的。。。
温馨提醒：少喝奶茶；不吃刚烤的面包；远离充电电源；白天多喝水晚上少喝； 一天不喝多于两杯咖啡，少吃油多的食物；最佳睡眠为晚上十点至早上六点； 晚上五点后少吃大餐’ 每天喝酒不多过一杯； 不用冷水服胶囊； 睡前半小时服药忌立刻躺下； 睡眠不足八小时人会变笨； 有午睡的习惯人不易老； 手机电池剩一格时不要打电话，剩一格时辐射是平时的一千倍， 还要记得用左耳接电话，用右耳会直接伤害到大脑。
QTP读取文本问题
上一篇 /
下一篇 2009-03-06 09:45:07
/ 个人分类：QTP
针对TXT文本中内容的读取问题，怎样能够一行一行读取，方法如下：
方法一：
Dim fso, MyFile,i,tmp
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("e:\51test.txt", 1 , False)
Do Until MyFile.AtEndOfStream/AtEndOfLine（两个都可以用）
tmp=MyFile.ReadLine
MsgBox tmp
loop
MyFile.Close
方法二：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("e:\51test.txt", 1 , False)
While myfile.AtEndOfStream <> True
Tmp = Split(MyFile.Readline, ",")
username=tmp(0)
password=tmp(1)
MsgBox username &"/"& password
wend
MyFile.Close
收藏
举报
TAG:
