将Stack的所有内容推送到另一个堆栈？

Question

我想推送所有内容，例如stackA＆＃39; to＆＃39; stackB＆＃39;在一个按钮中同时单击所有。

由于

如果您需要其他信息，请询问......

其他

我想搜索推送＆＃39; stackA＆＃39;价值进入＆＃39; stackTemp＆＃39;然后查看stackTemp＆＃39;然后将Peek值放入字符串中。如果String等于我搜索的值，则显示带有String的消息Box并将所有值从stackTemp弹出到stackA。否则保持Popping直到String匹配搜索到的值。

伪代码：

开始     stackTemp.Push（stackA.Pop）     strSearch＆lt; - stackTemp.Peek

USERACCOUNT

结束

希望有更好的帮助

Answer 1

将堆栈推送到另一个堆栈的完整工作示例：

    'new stacks
    Dim stackA As New Stack(Of String)
    Dim stackB As New Stack(Of String)
    For n As Integer = 0 To 10
        stackA.Push("A" & n)
        stackB.Push("B" & n)
    Next

    'loop and push
    For Each item As String In stackA
        stackB.Push(item)
    Next

    'write the contents to console
    For Each item As String In stackB
        Console.WriteLine(item)
    Next

它遍历stackA中的项目并将它们推送到stackB。 Here is the documentation for this kind of loop

您可以将伪代码中的行stackA.Push(stackTemp.Pop(All Items))替换为：

       'loop and push
        For Each item As String In stackTemp
            stackA.Push(item)
        Next