|
分類:[.NET 全般]
CSVファイルを読み込んで、編集する方法が分かりません。できればArrayを使って書きたいのですが・・・
Private Sub Form1_DragDrop(ByVal sender As Object, _
ByVal e As DragEventArgs) Handles MyBase.DragDrop
'ドラッグしているファイル／フォルダの取得
Dim FilePath() As String = _
CType(e.Data.GetData(DataFormats.FileDrop), String())
Dim FilePathName As String
Dim FileNo As Integer
Dim recBuff As String
FilePathName = ""
For idx As Integer = 0 To FilePath.Length - 1
FilePathName = FilePath(idx) & System.Environment.NewLine
MsgBox(FilePathName)
Next idx
recBuff = ""
'使用可能なファイル番号を取得
FileNo = FreeFile()
'テキストファイルをオープン
FileSystem.FileOpen(FileNo, FilePathName, OpenMode.Input)
Do Until EOF(FileNo) 'ファイルの最後までループ
(ここに処理を記載、ここにArray等で処理をしたいのですが・・・・・）
Loop
End Sub
|