请位各位大师们,有规格化的TXT文本可否转入数据库？

Question

在VB中是否可以导入一个有规格的TXT文本，再按规格分隔符（例如：行，/，空格）来进行取出所需要的数据，转入数据库的相关字段？

Answer 1

Private Sub Form_Load()
Dim strTmp As String, strArray() As String, F As String, C As String
Dim i As Integer
Open App.Path & "\ab.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, strTmp
    strArray() = Split(strTmp, ",")
    F = strArray(0)
    C = strArray(1)
    
    Debug.Print F & vbTab & C
    'strTmp = Input(LOF(1), #1)
Loop
'strTmp = StrConv(InputB(LOF(1), #1), vbuncode)
Close #1strArray = Split(strTmp, vbCrLf) '将文件内容放到数组里，一个数组元素带表一行数据End Sub

Answer 2

Split函数是个相当不错的函数，建议使用它进行一行数据的拆分。