VB 将CSV指定数据提取到TXT文件里

[ljwc010]

我是个VB新手，对文件操作不太明白，假设类似下面的一个CSV文件内容

全名 短名 长度
AAA BBB CCC
DDD VVV ZZZ
FFF EEE VVV

现在将把第一列的内容（除了最上面那个表头)导到TXT文件里，请问这个怎么操作的，谢谢

[孤独剑_LPZ]

dim s as string,i as long,t as string
open "d:\aa.csv" for input as #1
do while not eof(1)
line input #1,s
i=i+1
if i=2 then t=s
loop
close #1
open "d:\aa.txt" for output as #1
print #1,t
close #1