VBScript读取数组中的特定行

时间:2015-12-11 21:19:21

标签: arrays csv vbscript

我对数组相当缺乏经验,但我有一个CSV文件,我想从中获取一段特定的数据。例如,我理解如何迭代第二列中的数据,但如何在该列中下载3行数据?如何修改它来实现它?我无法在Google上找到任何内容,所以我想知道我是否提出了错误的问题...

dim fs,objTextFile
set fs=CreateObject("Scripting.FileSystemObject")
dim arrStr
set objTextFile = fs.OpenTextFile("C:\CSVfile.csv")

Do while NOT objTextFile.AtEndOfStream
  arrStr = split(objTextFile.ReadLine,",")
'strUser = arrStr(0)
strFullName = arrStr(1)
'wscript.echo strUser
wscript.echo strFullName
Loop

objTextFile.Close
set objTextFile = Nothing
set fs = Nothing

例如,如果我的csv看起来像这样:

userID, fullname, address 
a1, Tom Green, 123 Apple St 
a2, Chad Mendez, 456 Book Ave 
a3, Ville Valo, 789 Cat Way

我如何获取数据" Chad Mendez"?

TIA!

1 个答案:

答案 0 :(得分:2)

好的,想出来了,似乎有效。这么容易,它很愚蠢 - 我在思考它:

dim fs,objTextFile
set fs=CreateObject("Scripting.FileSystemObject")
dim arrStr
set objTextFile = fs.OpenTextFile("C:\CSV.csv")

rownumber = 1

Do while NOT objTextFile.AtEndOfStream

  arrStr = split(objTextFile.ReadLine,",")
'strUser = arrStr(0)
strFullName = arrStr(1)
'wscript.echo strUser
'wscript.echo strFullName

if rownumber = 3 then

name = strFullName

wscript.echo name

end if

rownumber = rownumber + 1

Loop

objTextFile.Close
set objTextFile = Nothing
set fs = Nothing