-1

csvファイルを持っています。「商品」、「元配送センター」、「価格単位」など、不要で削除したい列がたくさんあります。これはどのように行うことができますか

1,2,3また、有効期限ごとの数値を最初の列に追加したいと思います。例：

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

最初の行ではBARLEYJPR、有効期限がaugust 17th 2012(8/17/2012)最も近いので1を追加し、次に有効期限が入っているときに2を追加BARLEYJPRし、次に有効期限が入っSeptemberているときに3を追加BARLEYJPRしOctober、最後に有効期限が入っているときに4を追加BARLEYJPRしますNovember。

誰かが私を助けることができますか？Webサイトからファイルをダウンロードするために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
4

1 に答える 1

0

Jet エンジンを利用して CSV ファイルをレコードセットに読み込み、ADO を使用してデータベースで行うように操作できます。

いくつかの例と参考サイト:

于 2012-07-27T11:47:52.887 に答える