删除不需要的列并向csv的第一列添加一些文本

我有一个csv文件。有许多列，如“商品”、“交货基础交货中心”、“价格单位”等，我不想，我想删除。如何做到这一点

另外，我想在第一列中添加

1,2,3

这样的数字，根据到期日。例如：

SYMBOL     EXPIRY
BARLEYJPR  8/17/2012
BARLEYJPR  9/20/2012
BARLEYJPR  10/19/2012
BARLEYJPR  11/20/2012

在第一行中，我想将1添加到

BARLEYJPR

，因为到期日为

2012年8月17日（8/17/2012）

其中最接近的一个然后想在

BARLEYJPR

中添加2，因为有效期在

9月

然后想在

BARLEYJPR

中添加3，因为有效期在

10月

最后4，因为有效期在

11月

有人能帮我吗？我正在VB6中寻找代码，因为我已经在VB6中编写了代码，用于从网站下载文件

Private Sub Command1_Click()
On Error GoTo Err
Const q As String = "-"
Dim tmp As String, fName As String, Pos As Long, fPath As String
Dim first As Date, last As Date, spath As String, d As Date
cap = Me.Caption
If Dir(App.Path & "\NCDEX\") = "" Then
    MkDir App.Path & "\NCDEX\"
End If
spath = App.Path & "\NCDEX\" ' folder to save files : note trailing \
first = MonthView1
last = MonthView2
'http://www.ncdex.com/Downloads/Bhavcopy_Summary_File/Export_csv/07-04-2012.csv
strURL = "http://www.ncdex.com/Downloads/Bhavcopy_Summary_File/Export_csv/"
    For d = first To last
    ssourceurl = strURL & Format(d, "MM") & q & Format(d, "dd") & q & Format(d, "yyyy") & ".csv"
    fName = Format(d, "dd-mm-yyyy") & ".csv"
    slocalfile = spath & fName
    Me.Caption = "Downloading  " & fName
    Call DeleteUrlCacheEntry(ssourceurl)
    URLDownloadToFile 0&, ssourceurl, slocalfile, BINDF_GETNEWESTVERSION, 0&
    Debug.Print ssourceurl
Next
Me.Caption = cap
'YOU CAN TAKE THIS BELOW OUT IF U DONT WANT IT
MsgBox "Saved to " & spath, vbInformation + vbOKOnly, "Success!"
Exit Sub
Err:     MsgBox "Error", vbCritical + vbOKOnly, "Market Was Closed"
End Sub

---

您可以使用Jet引擎将CSV文件读取到记录集，并像使用ADO处理数据库一样对其进行操作

一些示例和参考站点：

---

我不理解你的第二段，也不理解你的例子。至于删除列-只需读入数据，然后再次写出，而不输出要删除的列。您的代码示例与您的问题无关。发布您已经完成的代码，以便在下载后从CSV文件中删除列欢迎使用Stack Overflow。请阅读-，这里的问题应该与特定的编程问题有关。简单地列出需求（比如下订单）是不可取的。请显示您用于删除列的代码，特别是您被卡住的位置。