各位大神好！VB宏如何实现在一句话里，快速查找关键字，并将关键字提取，谢谢！

软件 2024-09-11

VB 查找关键字并输出保存成TXT问题，谢谢高手：P

给个邮箱，我发给你。

DimWeiZhiAsInteger

PrivateSubcmdFind_Click()

'查找指定文本出现的位置

IfLen(txtFind.Text)>0Then

WeiZhi=InStr(txtFile.Text,txtFind.Text)

EndIf

IfWeiZhi>0Then

txtSub.Text=Mid(txtFile.Text,WeiZhi,30)

cmdSave.Enabled=True

EndIf

EndSub

PrivateSubcmdOpen_Click()

DimStrAsString

WithCommonDialog1

.InitDir="D:\"

.Filter="文本文件|*.txt"

.ShowOpen

EndWith

'如果没有指定文本名则退出

IfLen(CommonDialog1.FileName)=0ThenExitSub

'打开指定文本

OpenCommonDialog1.FileNameForInputAs#1

txtFile.Text=""

WhileNotEOF(1)

Input#1,Str

txtFile.Text=txtFile.Text&Str

Wend

Close#1

EndSub

PrivateSubcmdSave_Click()

DimStrAsString

WithCommonDialog1

.InitDir="D:\"

.Filter="文本文件|*.txt"

.ShowSave

EndWith

Str=txtSub.Text

'如果没有指定文本名则退出

IfLen(CommonDialog1.FileName)=0ThenExitSub

'写入指定文本

OpenCommonDialog1.FileNameForOutputAs#1

Write#1,Str

Close#1

EndSub

PrivateSubcmdExit_Click()

'退出程序

End

EndSub

PrivateSubtxtFind_GotFocus()

txtFind.Text=""

cmdFind.Enabled=False

EndSub

PrivateSubtxtFind_KeyUp(KeyCodeAsInteger,ShiftAsInteger)

IfLen(txtFind.Text)>0Then

cmdFind.Enabled=True

Else

cmdFind.Enabled=False

EndIf

EndSub

VB关键字查询的问题？

第一个问题：你把“客户名”等等文本框分别和data控件的相应字段绑定，然后（假定关键字输入框是Text1）： Private Sub Command1_Click() '点击查询按钮 Data1.RecordSource = "select * from 表名 where instr(字段名,'" & Text1.Text & "')>0" Data1.Refresh End Sub 第二个问题：在你那条语句的前面插入一行： Data1.Recordset.MoveLast 就能显示准确的数据库记录数

新人在线等！求怎么用VB在特定网站搜索的关键字，并返回结果网站的网址

不熟悉vb6，但vb.net或者C#来做是轻车熟路。只给思路：

如果可以通过网站的url本身定位到指定的网站，那么就简单了
如果对每个用户url是一样的，而且需要先登录，有验证码，那就麻烦了，需要懂的技能很多，现在估计你没法完成
实现了1后，寻找能下载指定页面所有源文件的方法，这个应该很多
实现3以后，通过正则表达式查找需要的内容，当然能用现成的类库就更好

在EXCEL中，用VB宏如何实现：在所有查找结果中有“班级一”的单元格中里再查找“刘”

假设班级是A3:A1000 人名在 B3:B1000 找寻"班级一" 中所有姓 "刘" 放在 D列及 E列代码如下: Sub FIND_NAME() a = "班级一" b = "刘" Set xx = [A3:A1000] For Each x In xx If IsEmpty(x) Then Exit Sub If x.Value = a And Mid(x.Offset(0, 1), 1, 1) = b Then r = r + 1 xx(r).Offset(0, 3) = x.Value xx(r).Offset(0, 4) = x.Offset(0, 1) End If N

excel 如何在一个单元格的一句话中，搜索多个关键字，如符合，则返回指定列的数据？

前面那位同志说的合并就简单了 =IF(AND(FIND("叫",A1),FIND("什",A1),FIND("名",A1)),"莫再提","")&IF(AND(FIND("我",A1),FIND("几",A1),FIND("岁",A1)),"莫再问","") 但是这个公式不认识顺序，例如“名什叫”也会判定为真。所以正确的做法应该是： =IF(COUNTIF(A1,"*叫*么*名*"),"莫再提",IF(COUNTIF(A1,"*我*几*岁*"),"莫再问","")) 则顺序什么的都可以判断了

标签：关键字 vb 编程信息技术 MicrosoftExcel