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

タイトル ： 改行ありの固定長ファイル出力
投稿日： 2004/06/18(Fri) 20:35
投稿者： ふくろう
[OSのVer]：WindowsXP　　　　[VBのVer]：VB.NET

いつもお世話になっております。
改行ありの固定長ファイルを作成したいのですが、下記コードでは改行なしの固定長ファイルとなり
ます。
アドバイスをお願いいたします。

    Private Structure tagALL_Titles
        <VBFixedString(4)> Dim bankcode As String
        <VBFixedString(15)> Dim bankname As String
        <VBFixedString(3)> Dim tencode As String
        <VBFixedString(15)> Dim tenname As String
    End Structure

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
        Const fixfile As String = "c:\alltitle.txt"
        Dim fixfileno As Integer
        Dim recbuff As String
        Dim alltitles As tagALL_Titles
        Dim position As Integer = 1

        fixfileno = FreeFile()

        FileOpen(fixfileno, fixfile, OpenMode.Random, , , Len(alltitles))

        With alltitles
            .bankcode = 1376
            .bankname = "ホクエツ"
            .tencode = 1
            .tenname = "ホンテン"
        End With

        FilePut(fixfileno, alltitles, position)      'Randomモードの場合
        position += 1

       With alltitles
            .bankcode = 1335
            .bankname = "ホクエツ"
            .tencode = 2
            .tenname = "イイダ"
        End With

        FilePut(fixfileno, alltitles, position)      'Randomモードの場合

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

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