'===========================================================================
'    ファイル名    : basTextFileLoad.bas
'    ファイル説明  : テキストファイルを一度に読み込む
'    作成者        : Uz
'       E-Mail     : uz@violet.plala.or.jp
'       HomePage   : http://www1.plala.or.jp
'    作成日        : 1998/04/15 (Wed)
'    修正日        : 1998/04/15 (Wed)
'    備考          : なし
'===========================================================================
Option Explicit

Public Sub LoadFile(strName As String, txtText As Object)
    Dim lngFileNo As Long
    Dim strLine As String
    Dim strBuf As String
    Dim lngLength As Long
    
    lngFileNo = FreeFile
    Open strName For Input As #lngFileNo
    lngLength = LOF(lngFileNo)
    strBuf = StrConv(InputB(lngLength, #lngFileNo), vbUnicode)
    Close lngFileNo
    
    txtText.Text = strBuf
End Sub