特急：读取txt文件，再写入sql server的问题。

Question

形如下列数据是由Sql server导出至txt文件中的，共5个子段：
1,"天津XX有限公司","2046","Bank of China","北京建行东四支行地坛"
2,"天津XX有限公司","0303","Bank of China","北京建行东四支行地坛"
问：我想做个VB程序，读取这个txt文件，再写入另一个sql server 数据库里，该怎么写？特别是我在读取这个txt文件时怎么区别2条记录之间的分界？

Answer 1

每个字段之间不是有逗号做分隔符的吗，用FileSystemObject.ReadLine读取一行然后用instr(int,str,str)检索出所有的字段然后插入数据库。

Answer 2

Dim strTmp As String, strArray() As StringOpen "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1strArray = Split(strTmp, vbCrLf) '将文件放到数组里,一个数组元素代表文件的一行
怎么向数据库里写就看你自己的了!~~~~

Answer 3

我做出来了
Private Sub Command1_Click()Dim T As Long
Dim H As Long
Dim strTmp As String, strArray() As String
Dim str2Array() As StringOpen "d:\aa.txt" For Input As #1strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)Close #1strArray = Split(strTmp, vbCrLf) '将文件放到数组里,一个数组元素代表文件的一行For T = 0 To UBound(strArray)
    
    str2Array = Split(strArray(T), ",")
    
    aa = str2Array(0)
    bb = str2Array(1)
    cc = str2Array(2)
    dd = str2Array(3)
    ee = str2Array(4)
Next TEnd Sub
多谢大家。