放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。 在窗体的总体声明部分写如下代码 : Option Explicit '定义目标位置变量 Private TargetPosition As Integer...
Else '没有找到匹配的字符串 MsgBox "没找到!" text1.SetFocus End If End Sub '双击“查找”命令按钮: Private Sub command1_Click() '从第一个字符处开始查找 FindText 1 End Sub '双击“查找下一个”按钮: Private Sub command2_Click() '从当前位置继续查找 FindText TargetPosition + 1 End Sub 运...
放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。 在窗体的总体声明部分写如下代码 : Option Explicit '定义目标位置变量 Private TargetPosition As Integer...
放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。 在窗体的总体声明部分写如下代码 : Option Explicit ’定义目标位置变量 Private TargetPosition As Intege...
g的位置 = InStr(InStr(ml, "g") + 1, ml, "g")从第一个G的后一位开始找！Private Sub Command1_Click()Dim ml(3) As String, s As String If Len(Trim(Text1.Text)) < 15 Then s = LCase(Text1.Text) & Space(4)Else s = LCase(Text1.Text)End If For i = 0 To 3 ...
串,放置两个命令按钮,Command1、Command2,其标题分别为“查 找”、“查找下一个” 在窗体的总体声明部分写如下代码: OptionExplicit'定义目标位置变量 PrivateTargetPositionAsInteger '编写一个查找凼数 PrivateSubFindText(ByValstart_atAsInteger) DimposAsInteger ...
Private Sub command1_Click() ’从第一个字符处开始查找 FindText 1 End Sub ’双击“查找下一个”按钮: Private Sub command2_Click() ’从当前位置继续查找 FindText TargetPosition + 1 End Sub 运行程序,在文本框1中输入一些字符串,在文本框2中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按...
IBase= Split(A,"，")For Pos = Lbound(IBase) To UBound(IBase)L=L+Len(CStr(IBase(Pos)))+1 '如3转成字符型长度为1，加上逗号的一个长度为当前总长 If Clng(IBase(Pos))=11 Then Debug.print "position of"; str$(11); "is"; str$(L+1): exit for '如果你要搜其他...
Private Sub Command1_Click()a = InStr(string1, "$gprsc")If a <> 0 Then If Mid(string1, a, 34) Like "$gprsc,#,?,abcd,###.##.##,efghijk" = True Then MsgBox "找到指定字符，其在第" & a & "处" & Chr(13) & Chr(10) & "其为" & Mid(string1, a, 34)...
Returns the position of character b in string abc. An example command is as follows: The value 2 is returned. select instr('abc', 'b'); The value of any input parameter is NULL. An example command is as follows: The value NULL is returned. select instr('abc', null)Parent...