投稿日	： 2003/09/06(Sat) 11:49
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: Textファイルの操作で

方法はいくつかあります。ベストかどうかは、解りませんが、テキストファイルを
バイナリ−モードで一気に読み込んでから、Split関数を使ってタブで区切られた文字列から
1次元配列を作成して、その配列をテキストボックスに表示しております。

Private Sub Command1_Click()
    Dim bytArray()  As Byte
    Dim intFileNo   As Integer
    Dim lngFileLenB As Long
    Dim TxtFilePath As String
    Dim TextData    As String
    Dim AddData     As Variant
    Dim i           As Long
    TxtFilePath = "c:\test.txt"
    lngFileLenB = FileLen(TxtFilePath)
    ReDim bytArray(lngFileLenB - 1)
    '使用可能なファイル番号を取得する
    intFileNo = FreeFile
    'ファイルをバイナリモードで開く
    Open TxtFilePath For Binary As #intFileNo
    'バイナリデータとして読込んで
    Get #intFileNo, , bytArray
    Close #intFileNo
    'Unicodeに変換して表示
    TextData = StrConv(bytArray, vbUnicode)
    
'============ ここまでは丸ごと読み込みと同じ ==============

    'タブで区切られた文字列から 1 次元配列を作成
    AddData = Split(TextData, vbTab)
    TextData = ""
    For i = LBound(AddData) To UBound(AddData)
        TextData = TextData & AddData(i) & vbCrLf
    Next i
    Text1.Text = TextData

End Sub

★ - Textファイルの操作で - kokero 09/06-10:11No.5759
• Re: Textファイルの操作で - 花ちゃん 09/06-11:49 No.5761
• Re: Textファイルの操作で - Lantern 09/06-11:51 No.5762
  • Re^2: Textファイルの操作で - kokero 09/06-20:24 No.5769