如何通过VB.NET代码实现WebForm间传递解析后的字符串表数据

嘿，我完全懂你现在的处境——在VB.NET WebForms里跨页面传递解析后的文本数据，网上确实没那么多直接的示例。不过别慌，我给你几个实用的方案，都是实际项目里常用的：

Session是WebForms里跨页面传递数据的经典方式，适合数据量中等的场景，能轻松保存复杂的集合类型。

第一步：在上传页面（比如UploadForm.aspx.vb）处理文件并存储数据 #

Protected Sub btnUploadAndProcess_Click(sender As Object, e As EventArgs) Handles btnUploadAndProcess.Click
    ' 检查是否有文件上传
    If FileUpload1.HasFile Then
        ' 读取上传文本文件的内容
        Dim fileStream As System.IO.Stream = FileUpload1.PostedFile.InputStream
        Using reader As New System.IO.StreamReader(fileStream)
            Dim fileContent As String = reader.ReadToEnd()
            
            ' 解析成字符串表（这里按换行分割，你可以根据自己的文本格式调整逻辑）
            Dim processedStringList As New List(Of String)(fileContent.Split(vbCrLf, StringSplitOptions.RemoveEmptyEntries))
            
            ' 将字符串表存入Session
            Session("ProcessedTextData") = processedStringList
            
            ' 跳转到处理页面
            Response.Redirect("DataProcessingForm.aspx")
        End Using
    End If
End Sub

第二步：在处理页面（DataProcessingForm.aspx.vb）获取数据 #

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        ' 从Session中取出字符串表
        Dim stringList As List(Of String) = TryCast(Session("ProcessedTextData"), List(Of String))
        
        If stringList IsNot Nothing Then
            ' 在这里做你需要的数据修改处理
            For Each item As String In stringList
                ' 示例：输出到页面，实际可以绑定控件或做业务逻辑
                Response.Write($"原始内容：{item}<br>")
            Next
            
            ' 用完后建议移除Session，避免占用服务器资源
            Session.Remove("ProcessedTextData")
        End If
    End If
End Sub

如果不需要URL跳转，只想在后台切换页面，Server.Transfer是个不错的选择——它会保留原页面的上下文，能直接访问原页面的公共属性。

第一步：在上传页面定义公共属性并跳转 #

' 定义公共属性存储解析后的字符串表
Public Property ProcessedStrings As List(Of String)

Protected Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
    If FileUpload1.HasFile Then
        Dim fileContent As String = System.IO.File.ReadAllText(FileUpload1.PostedFile.InputStream)
        ProcessedStrings = New List(Of String)(fileContent.Split(vbCrLf, StringSplitOptions.RemoveEmptyEntries))
        
        ' 后台跳转到处理页面，保留当前页面上下文
        Server.Transfer("DataProcessingForm.aspx")
    End If
End Sub

第二步：在处理页面获取原页面的属性 #

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        ' 获取原上传页面的实例
        Dim uploadPage As UploadForm = TryCast(Context.Handler, UploadForm)
        
        If uploadPage IsNot Nothing AndAlso uploadPage.ProcessedStrings IsNot Nothing Then
            Dim stringList As List(Of String) = uploadPage.ProcessedStrings
            ' 执行你的数据修改逻辑
            For Each str As String In stringList
                Response.Write($"待处理内容：{str}<br>")
            Next
        End If
    End If
End Sub

如果你的字符串表内容很少，可以用URL参数传递，但要注意URL长度限制，且数据会暴露在地址栏里，不适合敏感内容。

第一步：在上传页面编码并传递数据 #

Protected Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
    If FileUpload1.HasFile Then
        Dim fileContent As String = System.IO.File.ReadAllText(FileUpload1.PostedFile.InputStream)
        Dim stringArray As String() = fileContent.Split(vbCrLf, StringSplitOptions.RemoveEmptyEntries)
        
        ' 用特殊分隔符拼接并URL编码，避免乱码
        Dim encodedData As String = HttpUtility.UrlEncode(String.Join("||", stringArray))
        
        ' 跳转到处理页面并传递参数
        Response.Redirect($"DataProcessingForm.aspx?textData={encodedData}")
    End If
End Sub

第二步：在处理页面解码并获取数据 #

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        Dim encodedData As String = Request.QueryString("textData")
        If Not String.IsNullOrEmpty(encodedData) Then
            Dim decodedData As String = HttpUtility.UrlDecode(encodedData)
            Dim stringList As New List(Of String)(decodedData.Split("||"))
            
            ' 处理数据
            For Each str As String In stringList
                Response.Write($"解析内容：{str}<br>")
            Next
        End If
    End If
End Sub

一些注意事项 #

• 数据量大时优先选Session或Server.Transfer，QueryString有URL长度限制，容易出错。
• Session有有效期，若用户长时间未操作可能丢失数据，适合短期传递。
• 敏感数据不要用QueryString，避免泄露。

内容的提问来源于stack exchange，提问作者Paris Constantinides