ASP.NET读取CSV文件

Imports System
Imports System.IO
Imports System.Text
Imports System.Net
Imports System.Runtime.InteropServices

Dim aFILENAME As String
        Dim aRecCount As Long
        Dim aCSVData As Array
        Dim aCsvID As String
        Dim aCsvNAME As String

        Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
        Dim iFile As System.Int32

        For iFile = 0 To files.Count - 1
            Dim postedFile As System.Web.HttpPostedFile = files(iFile)
            Dim fileName As String

            fileName = System.IO.Path.GetFileName(postedFile.FileName)
            'aFILENAME = Server.MapPath(".") & "\Temp" & Format(Now, "yyMMddHHmmss") & fileName
            aFILENAME = Server.MapPath(".") & "\" & fileName
            'If Not (fileName = String.Empty) Then
            'postedFile.SaveAs(aFILENAME)
            'End If
        Next

        Dim sr As StreamReader = New StreamReader(aFILENAME, System.Text.Encoding.GetEncoding("shift-jis"))
        Do While sr.Peek >= 0
            aCSVData = sr.ReadLine().Split(",")
            If UBound(aCSVData) = 25 Then
                aRecCount = aRecCount + 1

                aCsvID = CStr(aCSVData(0))
                aCsvNAME = CStr(aCSVData(1))
            End If
        Loop

UBound 函数 (Visual Basic)

返回数组的指示维度的最大可用下标。

Public Function UBound( _
   ByVal Array As System.Array, _ 
   Optional ByVal Rank As Integer = 1 _
) As Integer

参数

Array: 必选。任何数据类型的数组。要在其中查找维度的最大可能下标的数组。

Rank: 可选。为 Integer。要返回的最大可能下标的维度。对第一维使用 1，对第二维使用 2，依此类推。如果省略 Rank，则假定为 1。

StreamReader 类

实现一个 TextReader，使其以一种特定的编码从字节流中读取字符。

备注

StreamReader 旨在以一种特定的编码输入字符，而 Stream 类用于字节的输入和输出。使用 StreamReader 读取标准文本文件的各行信息。

除非另外指定，StreamReader 的默认编码为 UTF-8，而不是当前系统的 ANSI 代码页。UTF-8 可以正确处理 Unicode 字符并在操作系统的本地化版本上提供一致的结果。

HttpFileCollection 类

提供对客户端上载文件的访问，并组织这些文件。

命名空间:System.Web
程序集:System.Web（在 system.web.dll 中）

HttpContext.Request 属性

为当前 HTTP 请求获取 HttpRequest 对象。

命名空间:System.Web
程序集:System.Web（在 system.web.dll 中）

HttpPostedFile 类

提供对客户端已上载的单独文件的访问。

命名空间:System.Web
程序集:System.Web（在 system.web.dll 中）

StreamReader.Peek 方法

返回下一个可用的字符，但不使用它。

命名空间:System.IO
程序集:mscorlib（在 mscorlib.dll 中）

Split 函数 (Visual Basic)

返回一个从零开始的一维数组，其中包含指定数量的子字符串。