お世話になります。ご指導をお願いします。

TSVファイルをVB6.0を使いoo4oでインポートを行いたいのです。
項目行の取得は、できたのですが
TSVファイルを読み込んだ場合に
Line Iuput #FileNum だと
1行がそのまま、変数に代入されてしまいます。
直そうと試みたのですが、僕の地力では良い案が浮かばずじまいでした。
ReadCode = AAA[tab]bbb[tab]ccc[tab]ddd
になってしまい、
ReadCode = AAA

という形にするには
chr[9]の数を数え、AAA[tab]bbb[tab]ccc[tab]ddd
AAAを変数に代入するという方法しかありませんか？
手探り状態なもので、情報不足があったら申し訳ないです
指摘してください。

  fno = FreeFile
  Open fnm For Input As fno Len = 32000
  
  If mds And EOF(fno) = False Then
    Line Input #fno, ReadCode
  End If
  
  OraSession.BeginTrans
  On Error Resume Next
  Do Until EOF(fno)
    ReadCode = ""
    For i = 0 To j
      Input #fno, recode
      recode = Trim(recode)
      If ctyp(i) Then
       ReadCode = ReadCode & "," & recode
      Else
        ReadCode = ReadCode & ",'" & recode & "'"
      End If
    Next
    ReadCode = Mid(ReadCode, 2)
    sql = "insert into " & tbl & " values (" & ReadCode & ")"
    OraDatabase.ExecuteSQL sql

ここの　VB簡易レファレンス内の VB6.0 からの文字列関数 を参考にして下さい。

http://hanatyan.sakura.ne.jp/vbhlp/vb6kansu.htm

わざわざ oo4o を用いたプログラムを組むのではなく、
SQL*Loader (sqlldr.exe) にかけるだけでは駄目でしょうか。

>花ちゃん　さん

ありがとうございます。参考にしてみます。

> わざわざ oo4o を用いたプログラムを組むのではなく、
> SQL*Loader (sqlldr.exe) にかけるだけでは駄目でしょうか。

Insertでやると時間がかかりまくってしまったので
SQL*Loaderも考えてみます。
ただ、APIは基本がないと手をだしたら駄目だと
言われていたのでさらに精進してから望んでみます。

ちなみに、sqlloaderはTSVに差分が生じた場合は
とれないですよね？


お二人方ともありがとうございます。