Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Data
Public Class BaseClass
Public Function getDataFMText(ByVal strFileFullPath As String) As ArrayList
Dim intFileRowNo As Integer = 0
Dim lstFileList As New ArrayList()
Try
Using srFileTxt As StreamReader = New StreamReader(strFileFullPath)
Dim strline As String
Do
strline = srFileTxt.ReadLine()
lstFileList.Add(strline)
intFileRowNo = intFileRowNo + 1
Loop Until strline Is Nothing
srFileTxt.Close()
End Using
Catch exException As Exception
End Try
Return lstFileList
End Function
Public Function getDataFMCsv(ByVal strFile As String,ByVal iCol As Long) As DataTable
Dim dt As DataTable = New DataTable()
Dim dr As DataRow
Dim fs As FileStream = New FileStream(strFile,FileMode.Open,FileAccess.Read)
Dim r As StreamReader = New StreamReader(fs,System.Text.Encoding.Default)
Dim output As String = ""
Dim arrData As String()
' init datatable columns
For i As Integer = 0 To iCol - 1
dt.Columns.Add(New DataColumn(i.ToString()))
Next
' read file r.BaseStream.Seek(0,SeekOrigin.Begin) While (r.Peek() > -1) output = r.ReadLine() arrData = output.Split("") If arrData.Length < iCol Then iCol = arrData.Length End If dr = dt.NewRow() For i As Integer = 0 To iCol - 1 dr(i) = arrData(i) Next dt.Rows.Add(dr) End While r.Close() Return dt End FunctionEnd Class
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。