锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net数组查找字段 vb在数组中查找指定元素

IT技术数组

vb.net 查询数据库中一字段中二个字符中间的值DataTable dt;//假设 dtvb.net数组查找字段的第一列存储vb.net数组查找字段的就是这个str1_1vb.net数组查找字段，str2_1vb.net数组查找字段 ， str3_1vb.net数组查找字段，str4_1,则
foreach(DataRow dr in dt.Rows)
{
String s=dr[0].ToString();
String[] strs=s.split('_');//得到 str1,1形式的数组(str2,1str3,1str4 ,1)
String s2=strs[0];//取数组第一个 ， 如 str1,str2,str3,str4 等
String[] strs2=s2.split('r');//得到st,1形式的数字
String 结果=strs2[1];//取第一个 ， 得到如 1,2,3,4等结果就是lz需要的
}
vb.net 查询Access数据库的多个字段假设textbox2.text
内容为“abc”，在三个字段中查找内容等于它的记录，则:
select
【vb.net数组查找字段 vb在数组中查找指定元素】*
from
你的表名
where
'abc'
in(字段1,字段2,字段3)
如何在VB的数组中查找数据？有序数的快速查找方法(非递归法)
Private Sub Command1_Click()
Dim dd(27) As Long
Dim aa As Long
Dim v As Long
dd(0) = 75
dd(1) = 80
dd(2) = 85
dd(3) = 90
dd(4) = 95
dd(5) = 100
dd(6) = 106
dd(7) = 112
dd(8) = 118
dd(9) = 125
dd(10) = 132
dd(11) = 140
dd(12) = 150
dd(13) = 160
dd(14) = 180
dd(15) = 200
dd(16) = 224
dd(17) = 250
dd(18) = 280
dd(19) = 315
dd(20) = 355
dd(21) = 400
dd(22) = 450
dd(23) = 500
dd(24) = 560
dd(25) = 630
dd(26) = 710
dd(27) = 800
aa = 280 '要查找的数字
v = NumFind(dd, aa) '调用查找函数
If v = -1 Then
MsgBox "没发现要查找的数据", vbExclamation, "提示"
Else
MsgBox "当前要查找的："aa" 值在dd数组的第："v" 个元素 。", vbInformation, "信息"
End If
End Sub
Public Function NumFind(ByRef Myarray, FNumber As Variant) As Long
Dim K As Long, I As Long
Dim L1 As Long, R1 As Long
Dim l As Long, R As Long
l = LBound(Myarray): R = UBound(Myarray)
NextLoop:
K = (lR) Mod 2
If K = 1 Then'中点
I = (lR1) \ 2
Else
I = (lR) \ 2
End If
If Myarray(I)FNumber Then
If Myarray(I)FNumber Then
L1 = l: R1 = I
Else
L1 = I: R1 = R
End If
If (R1 - L1) = 1 Then '第一个和最后一个
If Myarray(L1) = FNumber Then
NumFind = L1
ElseIf Myarray(R1) = FNumber Then
NumFind = R1
Else
NumFind = -1 '没有发现
End If
Else
l = L1: R = R1
GoTo NextLoop
End If
Else
NumFind = I
End If
End Function
在asp VB.NET怎么查找一维数组中特定字符串先遍历数组：
for i = 0 to Ubound(数组)
...
next
再把中间的...替换成：
if 数组(i) = 特定的字符 then msgbox "找到鸟 ， 当前是：数组"i
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(Index1) = 57 AndAlso a(Index2) = 58 AndAlso a(Index3) = 59 Then
Debug.Print(Index.ToString) '输出byte串位置
End If
Next
End Sub
End Class
刚学，不知道有没有直接在数组中搜索一串元素的方法 。
vb.net如何在数组中查找数组?'''这个函数功能就是用来把数组转为string的格式'''如byte()={1,2,3,4,5,6}转化后变为",1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As StringDim s As String = ""For i As Integer = 0 To bytes.Lengths = Convert.ToString(bytes(i))","NextReturn “,"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数组的位置vb.net数组查找字段，下标从0开始，不过记得处理下逗号 ， 因为这时候是字符串 。'''如果index小于0说明没有匹配内容End Sub 现在说明下ByteArrayToString为什么要在字符串开头加个","，如果不加，可能出现a="1,23,4,5,6,", b="3,4,5,"，结果导致查询位置错误，匹配vb.net数组查找字段了a的位置
关于vb.net数组查找字段和vb在数组中查找指定元素的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何在cago中设置服务器？ cago怎么调服务器

    下一篇：B站怎么看直播回放如雪直播，b站怎么看直播回看