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

[xmnp]

如：
B010.011 40 60 1.08
B010.012 40 100 4.04
B010.021 40 80 11.85
B010.022 40 100 11.85
.....
读到数据库中去
详细一点!

[happyno7]

dim data() as string
dim strtxt as string
dim mysql as string

open "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

具体细节自己修改一下就行了。别忘了给分哦！！！

[lvjunyu]

happyno7(啤酒罐)的思想及方法是对的,只是程序有点错误,需要改一下.
Line Input #1, strtxt这句应该改为:Get #1,,strtxt '将文件内容读到变量中
程序结束记得关闭文件 :Close #1
写到库中更简单,自己看看MSDN吧!