VB Memo/2010Tips のバックアップ(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
VB Memo/2010Tips へ行く。
- 1 (2010-11-10 (水) 02:44:07)
- 2 (2010-11-10 (水) 05:21:32)

Visual Basic 2010 Tips †

更新日2010-12-17 (金) 05:54:23

ファイル操作(CSVファイルの読み込み) †

Publicクラスの外に以下のように宣言

Imports Microsoft.VisualBasic.FileIO

Public Class Form1

       Dim tfp As New TextFieldParser(Fname)
       tfp.TextFieldType = FieldType.Delimited
       tfp.SetDelimiters(",")

       Dim sreadData As String()
       i = 0
       While tfp.EndOfData = False
           sreadData = tfp.ReadFields()
           ID(i) = sreadData(0)
           Data(i) = sreadData(1)
           i = i + 1
       End While