专栏首页VB小源码VB.NET 文件操作类和示例程序。textbox和listbox联动搜索

VB.NET 文件操作类和示例程序。textbox和listbox联动搜索

文件操作类包含以下内容:

1、通过在textbox输入关键字,搜索文件显示在listbox中

2、通过传入数组通过textbox搜索数组显示listbox中

3、获取文件夹中文件的个数

4、获取文件夹中文件名(含文件格式)

5、获取文件夹中文件名(不含扩展)

6、从文件路径中获取文件名含扩展

7、从路径中获取文件路径

8、从路径中获取文件名(不含扩展)

9、从路径中获取扩展名

Public Class cls_file

''' <summary>

''' 通过在textbox输入关键字,搜索文件显示在listbox中

''' </summary>

''' <param name="文件路径">必填:文件路径</param>

''' <param name="txbox">必填:textbox控件</param>

''' <param name="lstbox">必填:listbox控件</param>

''' <param name="gs">选填:文件格式(默认PDF)</param>

''' <returns></returns>

''' <remarks></remarks>

'''

Public Function tboxseachlistbox(ByVal 文件路径 As String, ByVal txbox As TextBox, ByVal lstbox As Object, Optional ByVal gs As String = "*.pdf")

Dim arr(获取文件个数(文件路径))

Dim i As Integer = 0

For Each filename As String In IO.Directory.GetFiles(文件路径, gs)

Dim file As IO.FileInfo = New IO.FileInfo(filename)

arr(i) = Split(file.Name, ".")(0) '含扩展名改为 “file.Name”

i += 1

Next

If Len(txbox.Text) > 0 Then

Dim brr() As String = Filter(arr, UCase(txbox.Text)) '匹配搜索文件 (精确搜索:Array.IndexOf(arr, UCase(txbox.Text)))

lstbox.DataSource = brr

Else

lstbox.DataSource = arr

End If

Return 1

End Function

'---------------------------------------------------------------------------------

'类扩展

''' <summary>

''' 传入数组通过textbox搜索数组显示listbox中

''' </summary>

''' <param name="txbox">必填:textbox控件</param>

''' <param name="lstbox">必填:listbox控件</param>

''' <param name="arr">必填:数组</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function txtseschlist(ByVal txbox As TextBox, ByVal lstbox As Object, ByVal arr() As Array)

If Len(txbox.Text) > 0 Then

Dim brr() As String = Filter(arr, UCase(txbox.Text)) '匹配搜索文件 (精确搜索:Array.IndexOf(arr, UCase(txbox.Text)))

lstbox.DataSource = brr

Else

lstbox.DataSource = arr

End If

Return 1

End Function

'-------------------------------------------------------------------------

'-------------------------------------------------------------------------

'对文件操作

''' <summary>

''' 获取文件个数

''' </summary>

''' <param name="fpath">必填:文件路径</param>

''' <param name="gs">选填:文件格式(默认PDF,可自定义格式)</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function 获取文件个数(ByVal fpath As String, Optional ByVal gs As String = "*.pdf") As Integer

Dim 个数 As Integer = 1

For Each filename As String In IO.Directory.GetFiles(fpath, gs)

个数 += 1

Next

获取文件个数 = 个数 - 2

Return 获取文件个数

End Function

''' <summary>

''' 获取文件(含文件格式)

''' </summary>

''' <param name="fpath">必填:文件路径</param>

''' <param name="gs">选填:文件格式(默认PDF)</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function 从文件夹获取文件含扩展(ByVal fpath As String, Optional ByVal gs As String = "*.pdf") As Array

Dim arr(获取文件个数(fpath))

Dim i As Integer = 0

For Each filename As String In IO.Directory.GetFiles(fpath, gs)

Dim file As IO.FileInfo = New IO.FileInfo(filename)

arr(i) = file.Name

i += 1

Next

从文件夹获取文件含扩展 = arr

Return 从文件夹获取文件含扩展

End Function

''' <summary>

''' 从文件夹获取文件(不含扩展)

''' </summary>

''' <param name="fpath">必填:文件路径</param>

''' <param name="gs">选填:文格式</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function 从文件夹获取文件(ByVal fpath As String, Optional ByVal gs As String = "*.pdf") As Array

Dim arr(获取文件个数(fpath))

Dim i As Integer = 0

For Each filename As String In IO.Directory.GetFiles(fpath, gs)

Dim file As IO.FileInfo = New IO.FileInfo(filename)

arr(i) = Split(file.Name, ".")(0)

i += 1

Next

从文件夹获取文件 = arr

Return 从文件夹获取文件

End Function

'------------------------------------------------------------------------------------

'------------------------------------------------------------------------------------

'------------------------------------------------------------------------------------

'对文件路径的操作

''' <summary>

''' 从路径中获取文件名含扩展

''' </summary>

''' <param name="文件路径">必填:文件路径</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function 从路径中获取文件名含扩展(ByVal 文件路径 As String) As String

On Error Resume Next

Dim i As Integer, J As Integer

i = Len(文件路径)

J = InStrRev(文件路径, "\")

从路径中获取文件名含扩展 = Mid(文件路径, J + 1, i)

End Function

''' <summary>

''' 从路径中获取文件路径

''' </summary>

''' <param name="文件路径">必填:文件路径</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function 从路径中获取文件路径(ByVal 文件路径 As String) As String

On Error Resume Next

Dim J As Integer

J = InStrRev(文件路径, "\")

从路径中获取文件路径 = Mid(文件路径, 1, J)

End Function

''' <summary>

''' 从路径中获取文件名(不含扩展)

''' </summary>

''' <param name="文件路径">必填:文件路径</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function 从路径中获取文件名(ByVal 文件路径 As String) As String

On Error Resume Next

Dim i As Integer, J As Integer, k As Integer

i = Len(文件路径)

J = InStrRev(文件路径, "\")

k = InStrRev(文件路径, ".")

If k = 0 Then

从路径中获取文件名 = Mid(文件路径, J + 1, i - J)

Else

从路径中获取文件名 = Mid(文件路径, J + 1, k - J - 1)

End If

End Function

''' <summary>

''' 从路径中获取扩展名

''' </summary>

''' <param name="文件路径">必填:文件路径</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function 从路径中获取扩展名(ByVal 文件路径 As String) As String

On Error Resume Next

Dim i As Integer, J As Integer

i = Len(文件路径)

J = InStrRev(文件路径, ".")

If J = 0 Then

从路径中获取扩展名 = ".pdf"

Else

从路径中获取扩展名 = Mid(文件路径, J, i)

End If

End Function

End Class

本文分享自微信公众号 - VB小源码(vb_xym),作者:巴西_prince

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2018-11-16

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • VB.NET 网抓技巧分享(有道翻译为例)

    网抓重要就是要了解,浏览器以那种方式向服务器请求数据(post或者get常用方式)和向服务器发送了什么请求,这请求包括:头文件,请求类型,请求目标数据等等!本编...

    巴西_prince
  • VBA 文件移动和判断文件是否存在

    Function 文件移动(ByVal 旧文件路径 As String, ByVal 旧文件名 As String, ByVal 新文件路径 As String...

    巴西_prince
  • VBA 文件复制,并判断文件是否存在,存在则报错!

    Function 复制文件(ByVal 旧文件路径 As String, ByVal 旧文件名 As String, ByVal 新文件路径 As String...

    巴西_prince
  • 【云+社区年度征文】企业微信回调实现

    注:前提是maven仓库中有dom4j的依赖,版本自己去定义,我这里用的springboot自带的1.6.x

    奕仁
  • java 静态页面 ajax交互

    用户5899361
  • 世界难题-JAVA为什么要生成Class文件

    IT故事会
  • 《项目架构那点儿事》——浅析web层struts2的构建

    【前言】所谓快速开发,实质上为了节省项目的开支成本,减少程序员的开发时 间,固然就形成了种种二次封装的框架,也就是造轮子,然后我们的程序就按照这个轮子去画瓢,这...

    I Tech You_我教你
  • 如何清除应用程序承载 WebBrowser 控件时缓存

    http://support.microsoft.com/kb/262110/zh-cn 察看本文应用于的产品 注意:这篇文章是由无人工介入的自动的机器翻译系统...

    用户1075292
  • 聊聊flink的MetricQueryServiceGateway

    flink-1.7.2/flink-runtime/src/main/java/org/apache/flink/runtime/webmonitor/retr...

    codecraft
  • 聊聊flink的MetricQueryServiceGateway

    flink-1.7.2/flink-runtime/src/main/java/org/apache/flink/runtime/webmonitor/retr...

    codecraft

扫码关注云+社区

领取腾讯云代金券