Question

我希望能够分隔文本框中的值，并使用按钮显示不同标签中的分隔值

这就是我想要发生的事情：

在文本框中输入“Ac2O3”
能够分开“Ac”，“2”，“O”和“3”。
使用按钮

即时通讯使用visual basic 2012 对不起我还是新来的提前谢谢!!

Answer 1

您可以使用索引访问字符串的不同字符。

    Dim input As String = "Ac2O3"

    Dim part1 As String = input(0) & input(1)
    Dim part2 As String = input(2)
    Dim part3 As String = input(3)
    Dim part4 As String = input(4)

如果您不知道如何处理按钮事件或如何在文本框中显示文本，那将是不同的问题。

Answer 2

此代码创建一个名为Element的结构，以使函数的结果更清晰 - 将其添加到要放置函数的主类中。主函数接受字符串作为输入并生成结构列表元素作为它的输出。可能有更短的方法来做到这一点，但我是一个相当基本的程序员喜欢拼图 - 希望这有帮助 - 不要忘记通过点击勾选接受答案。如果您有任何疑问，请随时询问

Structure Element
    Dim symbol As String
    Dim elementCount As Int16
End Structure


Function ParseFormula(ByVal compoundString As String) As List(Of Element)
    Dim tempParseFormula = New List(Of Element)
    Dim firstLetter As String = "[A-Z]"
    Dim secondLetter As String = "[a-z]"
    Dim number As String = "[0-9]"
    Dim tempElementCount As String = ""
    Dim maxIndex As String = compoundString.Length - 1
    Dim i As Integer = 0
    Dim parsedElement As New Element
    While i <= maxIndex
        Dim tempChar As String = compoundString(i)
        Select Case True
            Case tempChar Like firstLetter
                parsedElement.symbol = parsedElement.symbol & tempChar
            Case tempChar Like secondLetter
                parsedElement.symbol = parsedElement.symbol & tempChar
            Case tempChar Like number
                tempElementCount = tempElementCount & tempChar
        End Select
        If i = maxIndex Then
            If Val(tempElementCount) = 0 Then
                tempElementCount = 1
            End If
            parsedElement.elementCount = Val(tempElementCount)
            tempParseFormula.Add(parsedElement)
            parsedElement.symbol = ""
            parsedElement.elementCount = 0
            tempElementCount = ""
            Exit While
        End If
        i += 1
        If compoundString(i) Like firstLetter Then
            If Val(tempElementCount) = 0 Then
                tempElementCount = 1
            End If
            parsedElement.elementCount = Val(tempElementCount)
            tempParseFormula.Add(parsedElement)
            parsedElement.symbol = ""
            parsedElement.elementCount = 0
            tempElementCount = ""
        End If
    End While
    Return tempParseFormula
End Function

如何使用按钮分隔文本框中的值以显示在不同的标签中？

2 个答案: