如何在 VB 中使用字符串类：subStrings答案

【问题标题】：How to work with the string class in VB: subStrings如何在 VB 中使用字符串类：subStrings
【发布时间】：2013-03-25 01:24:36
【问题描述】：

不确定这个问题的最佳表达方式..

这个问题是在我实施数据集成服务之前提出的，但为了了解知识 - 我有来自 Excel 电子表格的数据，需要输入到数据库中。示例列是； ID、姓名和街道。

在一个网络表单上有 3 个文本框。用户将从 Excel 电子表格中复制 ID 单元格，然后将其粘贴到网络表单的 ID 文本框中。然后从 Excel 电子表格中复制名称单元格并将其粘贴到网络表单的名称文本框中...等

我正在想办法从 Excel 电子表格中复制一整行并将其粘贴到网络表单上的一个文本框中。

我的第一次尝试是拆分（）文本并创建字典。由于街道地址之间存在空格，这不起作用。有什么方法可以将 1 个文本框分成 3 个子字符串并保持街道字段中的完整性和空间？ Name 和 Street 的数据类型是 varchar(30)。

'Example input of Textbox1.Text "1 myName Cheesecake Factory Lane"
    Dim words As String = TextBox1.Text
    Dim split As String() = words.Split(New [Char]() {" "c, ","c, "."c, ":"c, CChar(vbTab)})
    Dim rowData As New Dictionary(Of Integer, String)
    Dim i As Integer = 0

    For Each s As String In split

        If s.Trim() <> "" Then
          rowData.Add(i, s)
            i += 1
            ' output text for ID would be rowData.Item(0)
            'out text for Name would be rowData.Item(1)
            'out text for Street would be row.Data.Item(2)
        End If
    Next s

【问题讨论】：

维护街道字段中的空间？我认为这种方法很容易出错，因为街道可以有多个（或没有）空间，地址可以有多个（或没有） ) 空格和名称也可以有空格。
请问，你有多少个字段？每行只有 3 个字段吗？
不，这只是为了让事情尽可能简单。有 10 个字段。
正是 Tim Schmelter，保持完整性是我遇到的问题。我不会再往这个方向走，但肯定有办法。
您好 KRob，请稍等一下，因为我不明白这里的某些内容，您说您确实想将电子表格中的数据放入文本框中？那么，您是如何将电子表格中的数据放入代码列表顶部的文本字段中的呢？ 'Textbox1.Text“1 myName Cheesecake Factory Lane”的输入示例

标签： arrays vb.net string split substring

【解决方案1】：

Excel 在剪贴板上放置了多种数据格式。

“文本”格式用 Tab 分隔单元格，用 Cr 分隔行。您必须依靠用户突出显示正确的单元格，但您可以使用 Tab 轻松拆分列（或使用 vbcrLf 拆分行。）

这里是一些探索格式的代码：

    Dim o As IDataObject = Clipboard.GetDataObject()
    Dim a() As String = o.GetFormats ' see what formats are available
    Dim x As Object = o.GetData("text") ' returns MemoryStreams so this isn't useful as written

    Dim s As String = Clipboard.GetText ' just get delimited text from Excel

【讨论】：