1. vb匹配查找
如果只是变量名称不一样的话，是不会出现类型不匹配，只有两个变量的定义类型不一致，系统不能自动转换的，才会出现类型不匹配
2. vb查找指定内容的单元格
Function lines(r) 'r 为某单元格，如A1r.WrapText = Falsex = r.Heightr.WrapText = Truey = r.Heightlines = y / xEnd Function使用方法 lines(range("A1"))思路：设置该单元格不自动换行，得到此时的高度x，恢复自动换行，得到此时的高度y，行数=y/x
3. vb查找excel内容
VB6.0或者VBA中，对话框的命令是：Application.FileDialog(msoFileDialogOpen)括号里的参数有几个，其中有另存为。。。等。
4. vb匹配查找数据
你没有update之前，这条数据库是不存在的所以不要使用rstData(i).Value来赋值。报错已经是好了，不小心还有可能修改到别的数据记录。
5. vb查找字符
使用 Len(Text1) 就可以获得其中的字符数。
6. vb中的查找函数
首先将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():
Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开
'文件夹数和名称
Dim sf As String
sf = Dir(pathname, vbDirectory) '获取第一个目录名
foldernum = 0
Do While sf <> ""
' 跳过当前的目录及上层目录
If sf <> "." And sf <> ".." Then
If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then
If treeflag = 0 Then
Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表
ElseIf treeflag = 1 Then
Text2 = Text2 & Treestr & sf & vbCrLf
ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用
Text2 = Text2 & Treestr & sf & vbCrLf
folderlist pathname + sf, treeflag
filelist pathname + sf, treeflag
End If
foldernum = foldernum + 1 '统计文件夹数目
End If
End If
sf = Dir() ' 查找下一个目录
Loop
If treeflag = 0 Then
If foldernum <> 0 Then
Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf
Else
Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf
End If
ElseIf foldernum <> 0 Then
Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf
End If
End Function
Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开
'文件数和名称
Dim a As String
a = Dir(pathname & "/*.*")
filenum = 0
Do While a <> ""
If treeflag = 0 Then
Text2 = Text2 & a & vbCrLf
Else
Text2 = Text2 & Treestr & a & vbCrLf
End If
filenum = filenum + 1 '统计文件数目
a = Dir
Loop
If treeflag = 0 Then
If filenum <> 0 Then
Text2 = Text2 & "======共有" & filenum & "个文件======"
Else
Text2 = Text2 & "======无文件信息======"
End If
End If
End Function
7. vb中查找的代码
Dim str As String Dim n As Integer str = "abbcccd" n = Len(str) - Len(Replace(str, "c", ""))
- 相关评论
- 我要评论
-
