问vb简单文本查找

2008-11-10 09:19:30 243 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB和VB.NET 文本框的输入控制有时候为了某种需求，要控制用户的输入。可以通过控制输入法状态或输入按键来控制。以下介绍通过对输入按键控制输入 VB SAMPLE只能允许输入数字和字母Private Sub Text1_KeyPress(KeyAscii As Integer) MsgBox KeyAscii 查看按下键的ASCII码 Select Case KeyAscii Cas 阅读详情

本人是初学者，想实现一个简单文本查找，遇到一些问题：
在text1中为原始文本字符串，text3中为要查找的字符串，需要在text4中显示查找的字符串出现的次数，另有一个查找按钮Command1
这是我写的程序：
Private Sub Command1_Click()
Dim pos1 As Single, pos2 As Single, count As Single, Str As String, selStr As String
Str = Text1.Text
selStr = Text3.Text
pos1 = 1
count = 0
Do While pos1 > 0
pos2 = InStr(pos1, Str, selStr)
If pos2 = 0 Then
ccount = count
Else
count = count + 1
End If
pos1 = pos2
Loop
Text4.Text = count
End Sub

好像进入了死循环，各位高手帮我看下，谢谢拉！！！

...全文

从零开始的 AI Infra 学习之路 AI Infra（AI 基础设施）是指为上层的 AI 算法应用提供支持的 AI 全栈底层技术，通过合理利用计算机体系结构，可以实现 AI 计算的加速和部署。AI Infra 主要包括以下内容：AI 训练框架 & 推理引擎；AI 编译 & 计算架构；AI 硬件 & 体系结构。参考资料：；。阅读详情

Kevin.Y.K

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

东方之珠 2008-11-10

打赏
举报

楼上的是VB.net代码.用split函数是很简单的。翻译成VB6：

Option Explicit



Private Sub Command1_Click()

        '计算selStr在Str中出现的次数

         Dim Str As String, selStr As String

        Dim Arr() As String

        Str = Text1.Text

        selStr = Text3.Text

        Arr = Split(Str, selStr)

        Text4.Text = UBound(Arr)

End Sub





Private Sub Form_Load()

        Text1.Text = "exTextTextTextTextTextTextTextTextTextTextex"

        Text3.Text = "ex"

        Text4.Text = ""

End Sub

Forrest23 2008-11-10

打赏
举报

Private Sub Command1_Click()

    Dim str As String

    Dim col As String

    Dim pos1, pos2, count As Single

    str = Me.Text1.Text

    col = Me.Text2.Text

    count = 0

    pos1 = 1

   Do While pos1 > 0

        pos2 = InStr(pos1, str, col)

        If pos2 = 0 Then

        Exit Do

        Else

        count = count + 1

        End If

        pos1 = pos2 + Len(col)

   Loop

   Me.Text3.Text = count

东方之珠 2008-11-10

打赏
举报

死循环的原因是: ccount = count 换成:exit do
另外:下一次寻找位置换成:Pos1 = Pos2 + Len(selStr)

Forrest23 2008-11-10

打赏
举报

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

       Dim str, col As String

       Dim st() As String

       col = Me.TextBox2.Text.ToString.Trim '要查找的字符串

        str = Me.TextBox1.Text.ToString.Trim '原始文本字符串

        st = str.Split(col)

       Me.TextBox3.Text = st.Length - 1 '字符串出现的次数

End Sub

东方之珠 2008-11-10

打赏
举报

Option Explicit



Private Sub Command1_Click()

        Dim Pos1 As Single, Pos2 As Single, Count As Single, Str As String, selStr As String

        Str = Text1.Text

        selStr = Text3.Text

        Pos1 = 1

        Count = 0

        Do While True

           Pos2 = InStr(Pos1, Str, selStr)

           If Pos2 = 0 Then

               Exit Do           Else

               Count = Count + 1

           End If

           Pos1 = Pos2 + Len(selStr)

        Loop

        Text4.Text = Count

End Sub

ZOU_SEAFARER 2008-11-10

打赏
举报

Private Sub Command1_Click()
Dim pos1 As Single, pos2 As Single, count As Single, Str As String, selStr As String
Str = Text1.Text
selStr = Text3.Text
pos1 = 1
count = 0
Do While pos1 > 0

pos2 = InStr(pos1, Str, selStr)
If pos2 = 0 Then
ccount = count
Else
count = count + 1
End If
pos1 = pos2+ len(selstr) //设定下一次查询的起始位置
或者截断结果以前的字符串，
Loop
Text4.Text = count
End Sub

zuoxingyu 2008-11-10

打赏
举报

这个问题问过好多次了

自己搜搜吧

Kevin.Y.K 2008-11-10

打赏
举报

非常感谢各位，因为刚学，所以有很多还不会用！
在此特别感谢chenjl1031，虽然帖子没分，还是那么尽力帮助，谢谢！！！
以后也像你学习，顶你O(∩_∩)O哈哈~

问vb简单文本查找

相关推荐