Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
     '在這裡放置使用者程式碼以初始化網頁
     Dim FilePath As String = "F:\Uploads\test.txt"
     Response.Write(Me.GetLine(FilePath, 6))
End Sub 
'取出特定列數的資料行
Private Function GetLine(ByVal FilePath As String, _
ByVal LineNo As Integer) As String
     Dim strResult As String = ""
     Dim strTmp As String = ""
     Dim objSR As StreamReader = Nothing
     Dim intLine As Integer = 0

    Try
         objSR = File.OpenText(FilePath)
         strTmp = objSR.ReadLine()

         While Not strTmp Is Nothing
             intLine += 1

            If intLine = LineNo Then
                strResult = strTmp
                Exit While
            End If

            strTmp = objSR.ReadLine()
        End While

        If LineNo > intLine Then
            strResult = "輸入的資料行數大於檔案的資料行數"
        End If
    Catch ex As Exception
        strResult = ex.Message
    Finally
        objSR.Close()
    End Try

    Return strResult
End Function

private void Page_Load(object sender, System.EventArgs e)
{
    // 在這裡放置使用者程式碼以初始化網頁
    string FilePath = "F:\\Uploads\\test.txt";
    Response.Write(this.GetLine(FilePath, 5));
} 
// 取出特定列數的資料行
private string GetLine(string FilePath , int LineNo)
{
    string strResult = "";
    string strTmp = "";
    StreamReader objSR = null;
    int intLine = 0;

    try
    {
        objSR = File.OpenText(FilePath);
        strTmp = objSR.ReadLine();

        while (strTmp != null)
        {
            intLine += 1;

            if (intLine == LineNo)
            {
                strResult = strTmp;
                goto exitWhile;
            }

            strTmp = objSR.ReadLine();
        }
        exitWhile:;

        if ( LineNo > intLine )
        {
            strResult = "輸入的資料行數大於檔案的資料行數";
        }
    }
    catch (Exception ex)
    {
        strResult = ex.Message;
    }
    finally
    {
        objSR.Close();
    }

    return strResult;
}