テキストファイルのNULLデータについて (ID:116461)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 てるさんへ 説明が難しいので・・ロジックを書いておきましたので 使用できるかわかりませんが。。参考にして下さい。 Dim BufData() As Byte '文字列格納用バッファ(バイト配列) Dim BufData_1() As Byte '文字列格納用バッファ（１項目分） Dim l_FileSize As Long 'ファイルサイズ Dim s_FileFree As String 'ファイル番号取得用 Dim i_field_cnt As Long '文字位置取得 Dim b_rtn As Boolean 'レコード追加時のリターン値 Dim s_データ() As String '取得データの文字列格納用 Dim AppPath As String '入力データのアドレス取得 '処理対象の入力データを設定(ここには入力ファイルを設定して下さい。) AppPath = "c:\xxxx(バイナリファイル名）" '使用可能なファイル番号取得 s_FileFree = FreeFile Open AppPath For Binary As s_FileFree l_FileSize = LOF(s_FileFree) 'ファイルサイズが0KBの時 If l_FileSize = 0 Then Exit Function ReDim Preserve BufData(l_FileSize - 1) As Byte 'メモリー再確保 BufData() = InputB(l_FileSize, s_FileFree) Close s_FileFree