タイトル : 改行ありの固定長ファイル出力 投稿日 : 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 |