C# VB Web システム開発の部屋

システム開発で役に立つコードを厳選したブログです。

【VB.NET】文字コード、区切り文字を指定してテキストファイルをテーブルに格納する

 

例:パイプ(|)区切り、文字コードUTF-8」のテキストファイルをテーブルに格納する。

文字コードが「Shift-JIS」の場合・・・ Encoding.GetEncoding("Shift-JIS")

 

Imports System.IO
Imports System.Text
--------------------------------------------- Dim intRow As Integer = 0 'テーブルに格納した行数のカウント
Dim strText As String = "" Using sr As New StreamReader("ファイルのパス", Encoding.GetEncoding("UTF-8")) sr.ReadLine()

'ヘッダーは読み込まない。 While sr.Peek() > -1

          'テキストファイルの1行を読み込む strText = sr.ReadLine()
Dim strArrayText As String() = strText.Split("|"c) If strArrayText.Length = 1 Then '改行のみは読み込まない。 Continue While
End If
'テーブルに格納処理 dtlInsert.Rows.Add() dtlInsert.Rows(intRow)("[項目名1]") = strArrayText(0) dtlInsert.Rows(intRow)("[項目名2]") = strArrayText(1) dtlInsert.Rows(intRow)("[項目名3]") = strArrayText(2) intRow += 1
End While End Using

 

VB.NET