如何读取txt文件中得字符串到数据库中。。。。

dim data() as string
dim strtxt as string
dim mysql as stringopen "xxx.txt" for input as #1
Do Until EOF(1)
Line Input #1, strtxt
data = split(strtxt," ")'这是分割函数，在""里敲入你想作为分割字符，如空格。注意字符串之间的空格数是多少，最好都统一为一个。
   mysql = "insert 表名(xxx,xxx,xxx,xxx,...)values('" & data1(0) & "','"
     mysql = mysql & data1(1) & "','"
     mysql = mysql & data1(2) & "','"
     mysql = mysql & data1(3) & "','"
     mysql = mysql & data1(4) & "','"
     mysql = mysql & data1(...) & "')"
  mConn.Execute (mysql)
Loop具体细节自己修改一下就行了。别忘了给分哦！！！