附件是csv文件 内容为
此主题相关图片如下:微信截图_20220815124438.png
想将 文件中的内容 提取出来 存到数据库里,怎么实现啊
记录下
If dlg.ShowDialog = DialogResult.OK Then
Dim strs As String = FileSys.ReadAllText(dlg.FileName)
strs = strs.Replace("""", "")
strs = strs.Replace(vbCrLf, "|")
Output.Show(strs)
Dim rs() As String = strs.Split("|")
For Each s As String In rs
Dim chs() As String = s.Split(",")
For Each cs As String In chs
Output.Show(cs)
Next
Next
End If
[此贴子已经被作者于2022/8/15 13:02:05编辑过]