数组中怎么把相等的元素放在一起吖！谢谢各位。。

2011-07-12 11:11:02 353 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【高级-RAG-优化方法】本文介绍了两种优化RAG（检索增强生成）系统的高级方法。第一部分介绍KnowFlow项目，它采用父子分块技术，将文档分为父分块（800-1500字符）和子分块（200-400字符），通过精确匹配子分块再返回父分块内容来保证搜索精确性和上下文完整性。第二部分探讨Milvus的多种增强技术，包括查询增强（如假设问题生成、回溯提示）、索引增强（自动合并块、分层索引）、检索器增强（句子窗口检索、元数据过滤）、生成器增强（提示压缩、块排序）以及管道增强（自我反省、代理查询路由）。这些方法共同提升了RAG系统的检索效率阅读详情

如数组{1,2,8,7,9,9,8,7,1,2,9,5,0}
我不想让他们按大小排例，我需要把相等的放在一块，像这样｛1，1，2，2，8，8，9，9，7，7，5，0｝怎么做呢。。
我就迷这上面了，转不过来了。。。

...全文

别再只盯着ADC了！手把手教你拆解HLW8032模块的隔离与非隔离采样电路（附BOM清单）本文深入解析HLW8032模块的隔离与非隔离采样电路设计，提供工程化决策指南。从安全间距到PCB布局，再到误差分析和BOM清单优化，手把手教你避开常见陷阱，确保产品级设计的可靠性和精度。附实用校准策略和关键元器件选型建议，助力硬件开发者提升设计水平。阅读详情

dazhi518

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

贝隆 2011-07-12

打赏
举报

排序不就OK了？



Option Explicit

Dim strA() As String

'采用冒泡排序，从小到大排序

Private Sub Command1_Click()

    Dim intP As Integer

    Dim intT As Integer

    Dim strTemp As String

On Error GoTo errSub

    For intP = LBound(strA) To UBound(strA) - 1

        For intT = LBound(strA) To UBound(strA) - 1

            If Val(strA(intT)) > Val(strA(intT + 1)) Then

                '如果前一个元素大于后一个元素，那么交换他们

                strTemp = strA(intT)

                strA(intT) = strA(intT + 1)

                strA(intT + 1) = strTemp

            End If

        Next intT

    Next intP

    For intP = LBound(strA) To UBound(strA)

        Text2.Text = Text2.Text & strA(intP) & " "

    Next intP

    Exit Sub

errSub:

    Debug.Print Err.Description

End Sub



Private Sub Form_Load()

    Dim intP As Integer

    Label1.Caption = "排序前："

    Label2.Caption = "排序后："

    Command1.Caption = "排序"

    Text1.Text = ""

    Text2.Text = ""

    strA = Split("1,2,8,7,9,9,8,7,1,2,9,5,0", ",")

    For intP = LBound(strA) To UBound(strA)

        Text1.Text = Text1.Text & strA(intP) & " "

    Next intP

End Sub

dazhi518 2011-07-12

打赏
举报

感激不尽。感激不尽。。明白了。

z_wenqian 2011-07-12

打赏
举报

直接写了，懒得定义变量，自己加吧。



    d = Array(1, 2, 8, 7, 9, 9, 8, 7, 1, 2, 9, 5, 0)

    i = 1

    While i <= UBound(d)

        If d(i) <> d(i - 1) Then    '如果相邻两个数相等，直接向后移一个数，如果不相等则去寻找相等的数

            For j = i + 1 To UBound(d)

                If d(j) = d(i - 1) Then '如果找到相等的数就交换，并将要比较的数向后移一个数

                    t = d(i): d(i) = d(j): d(j) = t '交换两数

                    i = i + 1

                End If

            Next j

        End If

        i = i + 1

    Wend

    

    For i = 0 To UBound(d)

        Debug.Print d(i) & " "; '显示结果

    Next i

结果：
1 1 8 8 9 9 9 7 7 2 2 5 0

神马都能聊 2011-07-12

打赏
举报



'调用示例

Private Sub Command1_Click()

    Dim str_out As String

    

    Text1.Text = "1,2,8,7,9,9,8,7,1,2,9,5,0"

    

    Process Text1.Text, ",", str_out

End Sub

'str_in 输入输出字符串

'count  要拼接的个数

's_join 用于拼接的字符串

Private Sub MJoin(ByRef str_in As String, ByVal count As Long, ByVal s_join As String)

    Dim i As Long

    

    For i = 1 To count

        str_in = str_in & s_join

    Next

    Debug.Print str_in

End Sub



'str_in  要处理的字符串

's_plit  字符串中用的分隔符

'str_out 输出结果

Private Sub Process(ByVal str_in As String, ByVal s_split As String, ByRef str_out As String)

    Dim ary() As String

    Dim str_old As String

    Dim str_new As String

    Dim str_temp As String

    Dim count As Long

    Dim temp_len As Long

    

    '分割字符串

    ary = Split(str_in, s_split)

    '在字符串的最后添加一个分隔符，这也便于以“元素,”的格式进行替换。

    str_old = str_in + s_split

    '给要进行替换的str_new赋初始值。

    str_new = str_old

    '循环变量

    Dim i As Long

Loops:

    For i = 0 To UBound(ary)

        '保存替换前的str_new到str_old

        str_old = str_new

        '要进行替换的格式“元素,”

        str_temp = ary(i) & s_split

        '替换字符串

        str_new = replace(str_new, str_temp, vbNullString)

        '根据替换前后的字符串长度变化，计算出替换了几个元素。

        count = (Len(str_old) - Len(str_new)) / Len(str_temp)

        '拼接最终结果

        Call MJoin(str_out, count, str_temp)

        '

        temp_len = Len(str_new) - Len(s_split)

        If temp_len > 0 Then

            '这里的str_new可能已经被替换成空字符串了，因此不能在其左侧取值

            str_new = Left(str_new, temp_len)

            ary = Split(str_new, s_split)

            str_new = str_new + s_split

            '数组更新了，需要重新循环

            GoTo Loops

        End If

    Next

    str_out = Left(str_out, Len(str_out) - Len(s_split))

    Debug.Print str_out

End Sub

写完之后发现，我用的这个方式不好。

啊的发哦 2011-07-12

打赏
举报

遍历数组，在i与length之间查找j，移动j至i+1，在把i+1至j-1之间的数据后移。

数组中怎么把相等的元素放在一起吖！谢谢各位。。

相关推荐