vb.net折半查找 vb折半查找法

如何用vb.net实现：判断指定路径下是否存在指定文件

VB.NET应该是这个函数

exists

Dim a As String = "C:\A.txt"

Dim f As New IO.FileInfo(A)

If f.Exists = True Then

MsgBox("存在")

Else

MsgBox("不存在")

End If

相关问答

Q1: VB.net, 如何判断一个字符串包含另一个字符串？

很简单，用字符串查找函数就可以实现了。

当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase

比如：

Dim StrA As String = "Time is Limited"

Dim StrB As String = "Time"

Dim Stu As Boolean= InStr(StrA, StrB)

这运行段代码，Stu值就是True了。

我觉得这样最简单有效。

Q2: Vb.net 字符串截取

｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。

如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。

Q3: vb.net 如何把全角转换成半角

可以vb.net折半查找，用VB自带函数就可以了半角转全角：Text2.Text = StrConv(Text1.Text, )全角转半角：Text2.Text = StrConv(Text1.Text,vbNarrow)当然你可以做得智能一点，譬如只允许输入数字、符号和字母什么vb.net折半查找的。

Q4: 我用VB.NET写的折半查找法哪出错了呢？

Sub Main()

    Dim arr As Integer() = {2, 3, 7, 8, 12, 23, 34, 44, 45, 68}

    Dim txt As New StringBuilder("显示A中元素:")

    For Each i As Integer In arr

        txt.Append(i).Append(" ")

    Next

    Console.WriteLine(txt.ToString)

    Console.WriteLine("请输入查找数值:")

    Dim num As Integer = CInt(Val(Console.ReadLine))

    Console.WriteLine("你输入的数据是："  num.ToString)

    Dim loca As Integer = Array.IndexOf(arr, num) + 1

    If loca = 0 Then

        Console.WriteLine(num  "的位置在第"  loca  "个")

    Else

        Console.WriteLine("数组中无"  num)

    End If

    Console.ReadLine()

End Sub

数组中搜索匹配值的索引，如果数组中没有重复的值，没必要弄那么复杂的循环，IndexOf函数就搞定了。

如果有重复的，用下面的循环，可以返回多个匹配值的索引；

Sub Main()

    Dim arr As Integer() = {2, 3, 7, 8, 12, 12, 12, 23, 34, 44, 45, 68}

    Dim txt As New StringBuilder("显示A中元素:")

    For Each i As Integer In arr

        txt.Append(i).Append(" ")

    Next

    Console.WriteLine(txt.ToString)

    Console.WriteLine("请输入查找数值:")

    Dim num As Integer = CInt(Val(Console.ReadLine))

    Console.WriteLine("你输入的数据是："  num.ToString)

    Dim length As Integer, counts As Integer() = New Integer() {}

    For i As Integer = 0 To arr.Length - 1

        If arr(i) = num Then

            length = counts.Length

            ReDim Preserve counts(length) : counts(length) = (i + 1)

        End If

    Next

    length = counts.Length - 1

    If length  0 Then

        txt = New StringBuilder

        txt.Append(num).Append("的位置在第")

        For i As Integer = 0 To length

            txt.Append(counts(i))

            If i  length Then txt.Append("|")

        Next

        txt.Append("个")

        Console.WriteLine(txt.ToString)

    Else

        Console.WriteLine("数组中无"  num)

    End If

    Console.ReadLine()

End Sub

vb.net折半查找的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb折半查找法、vb.net折半查找的信息别忘了在本站进行查找喔。