tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: CSVから重複しないデータの抽出
投稿日: 2008/02/01(Fri) 16:55
投稿者YK
こんにちは。

サンプルです。
後は御自分で加工して下さい。

Sub TEST()
    Dim SD      As Object
    Dim strFnm  As String
    Dim intFno  As Integer
    Dim strBuf  As String
    Dim varD    As Variant
    Dim i       As Long
    
    strFnm = "D:\TEST.csv"
    intFno = FreeFile
    
    Set SD = CreateObject("Scripting.Dictionary")
    
    Open strFnm For Input As #intFno
    Do While Not EOF(intFno)
        Line Input #intFno, strBuf
        varD = Split(strBuf, ",")
        SD(varD(0) & "," & varD(1)) = Empty
    Loop
    Close #intFno
    
    varD = SD.keys
    For i = 0 To UBound(varD)
        Debug.Print varD(i)
    Next
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。