VB中如果将用竖线分隔的文本文件导入数据库中

Question

VB中如果将用竖线分隔的文本文件导入数据库中 数据库是informix最好能提供详线的代码

Answer 1

方法1.使用Excel打开，设置分隔为|，然后导入（你的数据库应该有Excel接口吧？）
方法2.
  将数据读入到 s
  dim sr() as string，sc() as string
  sr=split(s,vbcrlf)'将行转换为数组
  for i=0 to ubound(sr)
    sc=split(sr(i),"|")'将|转换为列
    ............
  next

Answer 2

数据库没有EXCEL接口，并且是要程序实现，不是手动去导数据例如我有个文本文件a 其中有10个字段，每个字段间用｜分隔，
在informix数据库中建有一个test表，字段和文本文件一样如何写段代码实现文件的导入

Answer 3

是作业题？
为什么要在vb中，考到数据库里，load from 一下就行了

Answer 4

很简单，open打开文件，line input一行行读到str，读一行处理一次（分解行，组合sql语句，入库)。
Private Sub Command1_Click()
 Open "c:\1.txt" For Input As #1
 Dim iStr As String, zd() As String, Sql As String
 'line input #1,iStr '如果文本有字段名加上这句让过一行。
 Sql = "insert into tb values(" '你的数据库sql语句没用过自已改
 
 While Not EOF(1)
    Line Input #1, iStr
    If Trim(iStr) <> "" Then
       zd = Split(iStr, "|")
       For i = 0 To 9
         If i > UBound(zd) Then
            Sql = Sql & "0" & ","
         Else
            Sql = Sql & "'" & zd(i) & "',"
         End If
       Next
       Sql = Left(Sql, Len(Sql) - 1) & ")" '然后用这个sql语句去插入你的数据库。
       '插入你数据的语句在这里执行。
       
    End If
 Wend
 Close
 
End Sub