vb.net数组查找,数组的查找

VB.NET 找出数组中相同的元素，并按相同元素排序到另外一个数组中。

先把strA排序，

ind = 2

if len(strA) = 0 then return

strB(1) = strA(1)

for each s in strA

if (strA(ind) strA(ind - 1) then

count = 0

strB(ind) = strA(ind)

else

strB(ind) = strA(ind - 1)

end if

ind = ind + 1

next s

vb语法忘了。。。大概是这么个意思吧。。。。 排序N LOG N，后面是线性的N，所以总共是NLOGN

相关问答

Q1: 如何查找和在vb.net一个字符串数组数重复号码

面种我觉快

Dim s As String = "sadkalkdjajjdhsdsa"

Console.WriteLine(s.Split("a").Length - 1)

Q2: 在asp VB.NET怎么查找一维数组中特定字符串

先遍历数组：

for i = 0 to Ubound(数组)

    ...

next

再把中间的...替换成：

if 数组(i) = 特定的字符 then msgbox "找到鸟，当前是：数组"  i

Q3: vb.NET一个找出数组最大最小值的程序有个小问题 谁看一下

你是不是应该对最大值和最小值赋初值（比如把 r(1) 赋给最大值和最小值）呢？不然最小值默认初始值是‘0’，后面的判断就不起作用了。你可以加个断点试试，他们的初始值是多少。。。

Q4: vb.net如何在数组中查找数组?

'''这个函数功能就是用来把数组转为string的格式'''如byte()={1,2,3,4,5,6}转化后变为",1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As String Dim s As String = "" For i As Integer = 0 To bytes.Length s = Convert.ToString(bytes(i)) "," Next Return “," sEnd Function Sub Search()Dim a as byte()={1,2,3,4,5,6}

Dim b as byte()={2,3,4}

Dim astr As String = ByteArrayToString(a)Dim bstr As String = ByteArrayToString(b)Dim index As Integer = astr.IndexOf(bstr) '这个index就是b数组在a数组的位置，下标从0开始，不过记得处理下逗号，因为这时候是字符串。'''如果index小于0说明没有匹配内容End Sub 现在说明下ByteArrayToString为什么要在字符串开头加个","，如果不加，可能出现a="1,23,4,5,6,", b="3,4,5,"，结果导致查询位置错误，匹配了a的位置

Q5: vb.net byte数组中怎样搜索特定的byte值

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a() As Byte = System.IO.File.ReadAllBytes("record.db")

        For Index As Integer = a.GetLowerBound(0) To a.GetUpperBound(0) - 3

            If a(Index) = 56 AndAlso a(Index + 1) = 57 AndAlso a(Index + 2) = 58 AndAlso a(Index + 3) = 59 Then

                Debug.Print(Index.ToString) '输出byte串位置

            End If

        Next

    End Sub

End Class

刚学，不知道有没有直接在数组中搜索一串元素的方法。