首页 > 代码库 > 逐行读取txt
逐行读取txt
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("e:\serverlist.txt", ForReading)
‘ts.skipline ‘跳过一行
do until ts.AtEndOfStream ‘判断是否到文件末尾
tsline = ts.readline
‘tslines = split(tsline,",") ‘使用,分隔字符串
‘ip = tslines(0) ‘分隔后的第一个字符串
‘username = tslines(1)
‘userpass = tslines(2)
msgbox tsline
loop
ts.close
逐行读取txt
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。