tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル TSVをVB6.0を使いoo4oでインポート
投稿日: 2008/07/09(Wed) 12:01
投稿者てつ
お世話になります。ご指導をお願いします。

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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。