robot脚本__从文本中读入文件的函数input

最新推荐文章于 2024-12-24 14:51:05 发布

原创最新推荐文章于 2024-12-24 14:51:05 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#input #脚本 #string #integer #测试 #output

robot的学习及实践笔记专栏收录该内容

12 篇文章

订阅专栏

此博客展示了一段自动化测试脚本。脚本先将学生信息写入文件，接着通过输入框获取文件名并读取文件内容，将信息拼接后用消息框显示，最后可选择删除文件，涉及输入、输出及字符串、整数处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub Main
'Open "E:/zhanglin/d/自动话测试/temp001.txt" For Output As #1

'Write #1, "张三", "初一年级", 14
'Write #1, "李四", "职业高中", 18
'Close #1
Dim name1 As String, nianji1 As String, age1 As Integer
dim msgtext as string
dim fname as string

fname=InputBox("Enter a filename to print:")
'Open "E:/zhanglin/d/自动话测试/temp001.txt" For Input As #1
Open fname For Input As #1

Do While Not Eof(1)
   Input #1,name1, nianji1, age1
   msgtext=msgtext &name1 & nianji1 & str(age1)
Loop
   MsgBox msgtext
   Close #1
' Kill "E:/zhanglin/d/自动话测试/temp001.txt"
'删除该文件

End Sub