中科新闻网女主播珠儿下载:VB文件操作问题,高分求解
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 08:48:36
读取其中的内容，内容大概如下：
1/882744,2/886707,3/20630125856,4/2301212,5/16,6/89,7/,8/
1/836591,2/1541383,3/2001,4/2006065917,5/19,6/8,7/,8/
.
.
.
现在要进行的操作是将这些记录导入到数据库的student表中。一共有8个字段。
当读取记录时，遇到回车换行符就停止读写，然后跳转到下一行的首字符开始读。读出来的这行记录可以用split函数通过“,”分为8段放如名为ass的数组中。
以上这样的记录大概有100万条。如何才能实现方便快捷的导入呢？
我写的代码找不到回车换行符。用“line input”读出来的是文本中全部的内容，在循环操作时数据会益出。请教各位高手，解答我的疑问。最好有代码可以参考。
感激不尽！！
现在需要实现这样一个问题.在信息中取一些出来.在每行后面加上一个"$".在读到"$"的时候就换行.
你的难题在于数据记录条数很大，只能定义一个1维数组，对文本文件逐行读入，然后逐条添加到数据库的表中，代码如下，本人调试时用了10个字段数据，你可依据你的情况作修改：
Option Explicit
Dim data(10) As String
Dim i As Integer
Private Sub Command1_Click()
Open "c:\txt_mdb\mdlk_sj.txt" For Input As #1
Do Until EOF(1)
Input #1, data(0), data(1), data(2), data(3), data(4), data(5), data(6), data(7), data(8), data(9)
Adodc1.Recordset.AddNew
For i = 0 To 9
Adodc1.Recordset(i) = Trim(data(i))
Next i
Loop
Close
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TXT_MDB\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tabel1"
Adodc1.Refresh
Text1 = ""
End Sub
本来就是用LINE INPUT实现的,至于你的数据溢出问题,是代码不正确.
另外告诉你,读取类似这种数据,不需要使用SPLIT函数,一行有8个数据,中间有7个逗号,输入以下代码:
LINE INPUT D1,D2,D3,D4,D5,D6,D7,D8
就可以了,如果还不懂,加我QQ531412815
回车和换行是两个不同的字符，你如果有这个txt文件的话，不妨先试着读如一部分内容，譬如1/882744,2/886707,3/20630125856,4/2301212,5/16,6/89,7/,8/ ，把这一行最后一个字符的ascii码打印出来，看看究竟是个什么字符。在不知道格式之前，是没有办法解决的。
zdingyun这么详细的回答还不满足啊，呵呵，加一个这个吧
b= Split(a, "$")