VB中导出成生CSV文件

 

Dim  txtFileName  As   String      ' 定义变量用以保存文件输出路径及名称
txtFileName 
=   " C:AA.CSV "

Dim  txtData  As   String          ' 定义变量以保存记录信息
txtData 
=   " AA,BB,CC,DD "        ' 记录每个字段以豆号隔开

'
CSVファイルを
Open txtFileName 
For  Output  As  # 1    ' 打开上面指定的文件,并开始保存数据
Print  # 1 , txtData                   ' 将信息数据保存在文件中
Print  # 1 , txtData

Close #
1                ' 关闭
  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB.NET读取CSV文件可以使用System.IO和CsvHelper这两个命名空间。首先,你需要使用StreamReader来读取CSV文件的流数据,然后使用CsvHelper提供的函数来获取一个IDataReader的实例,这个实例可以将CSV数据加载到一个DataTable。接下来,你可以将DataTable的数据添加到DataGridView控件上,或者直接使用DataSource属性将DataTable绑定到DataGridView(但是使用这种方法读取的CSV数据无法编辑,原因尚不清楚)。下面是一个示例代码: ```vb Private Sub import_csv(fl As String) Dim strd1 As StreamReader = Nothing Try strd1 = New StreamReader(fl, Encoding.GetEncoding("gb2312")) '文编码gb2312 Dim csv = New CsvReader(strd1, CultureInfo.InvariantCulture) Dim dr = New CsvDataReader(csv) Dim dt = New DataTable() dt.Load(dr) DataGridView1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 Dim inx0 = DataGridView1.Rows.Add() For j = 0 To dt.Columns.Count - 1 DataGridView1.Columns(j).HeaderText = dt.Columns(j).ToString() DataGridView1.Rows(i).Cells(j).Value = dt.Rows(i).Item(j).ToString() Next Next strd1.Dispose() csv.Dispose() dr.Dispose() dt.Dispose() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.OkOnly, "tip!") Finally strd1.Close() End Try End Sub ``` 在这个示例代码,import_csv函数接受一个文件路径作为参数,然后使用StreamReader来读取CSV文件的流数据。接着,使用CsvHelper的CsvReader来解析CSV数据,并将其转换为一个IDataReader的实例。然后,创建一个DataTable并使用Load方法将CSV数据加载到DataTable。最后,将DataTable的数据添加到DataGridView控件。 请注意,为了使用StreamReader、Encoding和CsvHelper等类,你需要在代码导入相应的命名空间,如System.IO、System.Text和CsvHelper。 #### 引用[.reference_title] - *1* *2* *3* [<VB.net>下CSV文件的导入(读取到DataGridView)和导出(DataGirdView保存csv)](https://blog.csdn.net/normer123456/article/details/127119161)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值