tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル固定長のテキストファイルをバイト毎に読込む
記事No4297
投稿日: 2006/09/21(Thu) 23:30
投稿者たか
固定長のテキストファイル(改行なし・半角全角混在)を
20バイト毎に読み込みたいのですが、どのようにしたら
できますでしょうか?ご教授お願い致します。
テキストファイルの文字コードはShift_JISです。

できましたら、コードサンプルのあるページなどをご紹介
していただけるとありがたいです。

よろしくお願い致します。

★ 間違って、さきほど VBの掲示板に入れてしまいました。
   VB.NETの掲示板に移動させていただきました。

[ツリー表示へ]
タイトルRe: 固定長のテキストファイルをバイト毎に読込む
記事No4300
投稿日: 2006/09/22(Fri) 00:13
投稿者たか
>>   VB.NETに質問を移動させていただきますので、お願い致します。
>一応どちらのスレにもリンクをはっておいてください。

VBの掲示板に入れてしましました。
http://hanatyan.sakura.ne.jp/index.html

使用しているのは、 VB.NET 2003 です。
よろしくお願い致します。

[ツリー表示へ]
タイトルRe^2: 固定長のテキストファイルをバイト毎に読込む
記事No4301
投稿日: 2006/09/22(Fri) 00:25
投稿者Blue
泣き別れがないということなので、試しにやってみた。(ただしVB2005)

Module Module1

    Sub Main()
        Dim st As System.IO.FileStream = Nothing
        Dim br As System.IO.BinaryReader = Nothing
        Dim bin() As Byte
        Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
        Dim text As String
        Dim path As String

        path = "test.txt" ' 任意のテキストファイルのパス

        Try
            st = New System.IO.FileStream(path, IO.FileMode.Open)
            br = New System.IO.BinaryReader(st)

            ' ファイルの終端まで読む。 br.PeekCharだと不具合があるらしい
            While br.BaseStream.Position < br.BaseStream.Length
                ' 20バイト読み込む
                bin = br.ReadBytes(20)
                ' 文字コード変換
                text = enc.GetString(bin)
                ' 表示
                System.Console.WriteLine(text)
            End While
        Catch ex As Exception
            System.Console.WriteLine(ex.Message)
        Finally
            If Not br Is Nothing Then br.Close()
            If Not st Is Nothing Then st.Close()
        End Try
    End Sub

End Module

[ツリー表示へ]
タイトルRe^3: 固定長のテキストファイルをバイト毎に読込む
記事No4303
投稿日: 2006/09/22(Fri) 00:42
投稿者たか

Blue さんへ

たかです。
コードまで書いていただき、びっくりです!!
(さっきまで色々調べてたのですが、よく分からなかったので、
 すごくありがたいです。)
さきほど、.NET 2003 で 確認した所、テストデータでうまくい
きました。

本当にありがとうございました。\(^o^)/

[ツリー表示へ]
タイトルRe^2: 固定長のテキストファイルをバイト毎に読込む
記事No4302
投稿日: 2006/09/22(Fri) 00:26
投稿者花ちゃん
ここの VB.NETTips一覧 他 の文字列操作関係をご覧下さい。
http://hanatyan.sakura.ne.jp/dotnet/mojiIndex.htm


> VBの掲示板に入れてしましました。
> http://hanatyan.sakura.ne.jp/index.html

URL の調べ方くらい覚えておきましょう。 上記はトップページのアドレスです。

 リンクを右クリックして、プロパティ を見て下さい。

[ツリー表示へ]
タイトルRe^3: 固定長のテキストファイルをバイト毎に読込む
記事No4304
投稿日: 2006/09/22(Fri) 00:49
投稿者たか

すみませんでした。

URLは、以下でした。
http://hanatyan.sakura.ne.jp/vbbbs/wforum.cgi

[ツリー表示へ]