VB6.0 读取CSV文件

简介: 最近做了一个Upload文件的需求,文件的格式为CSV,读取文件的方法整理了一下,如下: 1、先写了一个读取CSV文件的Function: 1 '读取CSV文件 2 '假设传入的参数strFile=C:\Documents and Settings\Administrator\桌面\TPA_Report1 - 副本.

最近做了一个Upload文件的需求,文件的格式为CSV,读取文件的方法整理了一下,如下:

1、先写了一个读取CSV文件的Function:

 1 '读取CSV文件
 2 '假设传入的参数strFile=C:\Documents and Settings\Administrator\桌面\TPA_Report1 - 副本.CSV
 3 Public Function Read_CSVFile(strFile As String) As ADODB.Recordset
 4     Dim rs As ADODB.Recordset
 5     Set rs = New ADODB.Recordset
 6     Dim conn As ADODB.Connection
 7     Set conn = New ADODB.Connection
 8     Dim strFilePath As String, strFileName As String
 9     Dim i As Integer
10     i = Len(strFile)
11     Do Until Mid(strFile, i, 1) = "\" '从后向前查找倒数第一个"\"
12         i = i - 1
13     Loop
14     strFilePath = Left(strFile, i - 1) '返回结果:C:\Documents and Settings\Administrator\桌面
15     strFileName = Mid(strFile, InStrRev(strFile, "\") + 1) '返回结果:TPA_Report1 - 副本.CSV
16 
17     conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
18                 "DBQ=" & strFilePath & ";", "", ""
19     
20     rs.Open "select * from [" & strFileName & "]", conn, adOpenStatic, _
21                 adLockReadOnly, adCmdText
22     Set Read_CSVFile = rs
23     Set rs = Nothing
24     Set conn = Nothing
25 End Function

2、调用上面的Function:

 1 Private Sub cmdUpload_Click()
 2     Dim rsData As ADODB.Recordset 'CSV中的所有的数据
 3     Dim rsUploadLog As ADODB.Recordset '上传纪录
 4 
 5     '取得CSV中所有的数据
 6     Set rsData = Read_CSVFile(txtFileName.Text)
 7     
 8     If rsData.RecordCount > 0 Then
 9         DoEvents
10         Dim iTotal As Integer
11         iTotal = 0
12         
13         rsData.MoveFirst
14         Do While Not rsData.EOF '循环数据集
15             'UploadLog
16             rsUploadLog.AddNew
17             rsUploadLog!Row = iTotal + 1
18             rsUploadLog!Createby = sUserID
19             rsUploadLog!CreateDate = dServerdateTime
20             rsUploadLog!Note = rsData.Fields("投保人名字") & "" '“投保人名字”为CSV文件的表头
21             iTotal = iTotal + 1
22             DoEvents
23             rsData.MoveNext
24         Loop
25                 
26         '一批数据里面有的成功,有的失败.进行保存的时候,成功的就保存更新,不成功的就不保存
27         If Not BatchSaving(conn, rsUploadLog) = True Then
28             MsgBox "Upload un-successfully done", vbInformation, sApplicName
29         Else
30             MsgBox "Upload successfully done", vbInformation, sApplicName
31         End If
32     End If
33     '释放资源,否则CSV打开会是只读状态
34     rsData.Close
35     Set rsData.ActiveConnection = Nothing
36     Set rsData = Nothing
37     Exit Sub
38 End Sub

 

 

如果您看了本篇博客,觉得对您有所收获,请点击右下角的 [推荐]

如果您想转载本博客,请注明出处

如果您对本文有意见或者建议,欢迎留言

感谢您的阅读,请关注我的后续博客

目录
相关文章
|
2月前
|
数据挖掘 数据处理 索引
python 读取数据存为csv
在Python中,读取数据并将其保存为CSV(逗号分隔值)文件是一种常见的操作,特别适用于数据分析和数据科学领域。这里将展示如何使用Python的内置库`csv`和流行的数据处理库`pandas`来完成这项任务。 ### 使用`csv`模块 如果你正在处理的是简单的文本数据或者需要更低层次的控制,可以使用Python的`csv`模块。以下是一个基本示例,演示如何将数据写入CSV文件: ```python import csv # 假设这是你要写入CSV的数据 rows = [ ["Name", "Age", "City"], ["Alice", 24, "New Yor
77 36
|
6月前
|
Python
python_读写excel、csv记录
python_读写excel、csv记录
53 0
|
3月前
|
存储 Python
使用CSV模块读取CSV文件--含代码
使用CSV模块读取CSV文件--含代码
25 0
|
存储 编译器 Python
python文件处理-CSV文件的读取、处理、写入
python文件处理-CSV文件的读取、处理、写入
351 0
python文件处理-CSV文件的读取、处理、写入
|
6月前
|
JavaScript
盘点CSV文件在Excel中打开后乱码问题的两种处理方法
盘点CSV文件在Excel中打开后乱码问题的两种处理方法
1374 0
ENVI_IDL: 文本文件的读取(主要是txt、csv文件)
ENVI_IDL: 文本文件的读取(主要是txt、csv文件)
437 0
|
数据处理
R|批量循环处理同一格式文件-csv,txt,excel
R|批量循环处理同一格式文件-csv,txt,excel
116 0
|
数据处理 Python
多线程操作CSV文件并且将CSV文件转成XLSX文件
多线程操作CSV文件并且将CSV文件转成XLSX文件
226 0
Excel 文件的读取
在上面的代码中,首先导入第三方库 openpyxl。接着使用 load_workbook 方法来读取 Excel 文档,在使用 load_workbook 时,只需要向 load_workbook 方法传入要打开文档的名称即可。最后,可以通过 type 函数查看打开的文档的类型。文档 example.xlsx 的内容如下所示:
208 0
|
Linux Windows JavaScript
csv文件乱码
问题描述: 生成的csv文件,设置为UTF-8格式,在windows上用EXCEL打开的话会乱码,在linux上用vim或者cat打开查看正常;设置为GBK格式的话,在windows上用EXCEL打开正常,但在linux上乱码   解决方法: 在csv文件头部的最前面加bom   BOM(Byte Order Mark),是 UTF编码方案里用于标识编码的标准标记,在 UTF-16里本来是 FF FE,变成 UTF-8就成了 EF BB BF。
1352 0