Option Explicit

'固定長データ用のユーザー定義型変数を定義
Private Type tagAll_TITLES
    Title   As String * 255
    ISBN    As String * 20
    Author  As String * 50
    Year    As String * 4
    Company As String * 255
End Type

Private Sub Command1_Click()
    'CSVファイルから読み込んだデータを固定長文字列に変換し、
'その結果を固定長ファイルのデータとして書き込む

    Dim strCsvFile   As String
    Dim strFixFile   As String
    Dim intCsvFileNo As Integer
    Dim intFixFileNo As Integer
    Dim strRecBuff   As String
    Dim udtAllTitles As tagAll_TITLES
    
    ChDir ("C:\")

    '読み込むCSVファイル名
    strCsvFile = "test.csv"
    '読み込む固定長ファイル名
    strFixFile = "D:\work\AllTitles.txt"
    
    '空いているファイル番号を取得
    intCsvFileNo = FreeFile
    'CSVファイルを開く
    Open strCsvFile For Input As intCsvFileNo
    '空いているファイル番号を取得
    intFixFileNo = FreeFile
    '固定長データを書き込むファイルを開く
    Open strFixFile For Output As intFixFileNo
        
    'ファイルの最後に達するまでループ
    Do Until EOF(intCsvFileNo)
        'ファイルから読み込んだ内容を変数に保存
        Input #intCsvFileNo, udtAllTitles.Title
        Input #intCsvFileNo, udtAllTitles.ISBN
        Input #intCsvFileNo, udtAllTitles.Author
        Input #intCsvFileNo, udtAllTitles.Year
        Input #intCsvFileNo, udtAllTitles.Company
        '変数の内容を固定長テキストファイルに書き込む
        Print #intFixFileNo, udtAllTitles.Title;
        Print #intFixFileNo, udtAllTitles.ISBN;
        Print #intFixFileNo, udtAllTitles.Author;
        Print #intFixFileNo, udtAllTitles.Year;
        Print #intFixFileNo, udtAllTitles.Company
    Loop

    MsgBox strFixFile & "に書き込みました。", vbOKOnly + vbInformation

    'ファイルを閉じる
    Close intCsvFileNo
    Close intFixFileNo

End Sub