精华内容
下载资源
问答
  • vb6根据路径获取文件名

    千次阅读 2019-05-10 16:35:35
    '# txtFilePath : 控件名' '过程' Len(txtFilePath.Text) '取字符串总长度' StrReverse txtFilePath.Text '反转字符串' InStr 1, "ABCDE", "A" '规定位置开始,前往后查找,查...
    '# txtFilePath : 控件名'
    '过程'
    Len(txtFilePath.Text)                         '取字符串总长度'
    StrReverse txtFilePath.Text                   '反转字符串'
    InStr 1, "ABCDE", "A"                         '从规定位置开始,从前往后查找,查找第一个出现在的位置'
    InStr 1, StrReverse(txtFilePath.Text), "\"    '反转字符串后查找第一个 \ 出现的位置'
    
    MsgBox "总长度:" & Len(txtFilePath.Text) & vbCrLf & _
        "翻转查找\位置:" & InStr(1, StrReverse(txtFilePath.Text), "\") & vbCrLf & _
        "反取字符串::" & Mid(txtFilePath.Text, Len(txtFilePath.Text), (InStr(1, StrReverse(txtFilePath.Text), "\"))) & vbCrLf & _
        "计算开始位置:" & Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) & vbCrLf & _
        "计算长度:" & (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & vbCrLf & _
        "正取字符串:" & Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1)
        
    '开始位置,数额越加越低,大值 - 小值'
    MsgBox Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) 
    
     '长度'
    MsgBox (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1
    
    '获取路径,截取文件名'
    MsgBox Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1) 
    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '结果'
    Mid( & _
        txtFilePath.Text, & _
        Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), & _
        (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & _
    ) 
    '需要截取的字符串'
    '字符串开始的位置'
    '需要截取的长度'
    
    
    展开全文
  • VB 获取路径名各部分

    '====================获取路径名各部分:  如: c:\dir1001\aaa.txt

    '============获取路径路径 c:\dir1001\

    '============获取路径路径 c:\dir1001\ 
    Public Function GetFileName(FilePathFileName As String) As String   '获取文件名  aaa.txt 
        On Error Resume Next 
        Dim i As Integer, J As Integer 
        i = Len(FilePathFileName) 
        J = InStrRev(FilePathFileName, "\") 
        GetFileName = Mid$(FilePathFileName, J + 1, i) 
    End Function
    ''===========获取路径路径   c:\dir1001\

    ''===========获取路径路径 c:\dir1001\
    Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\
    On Error Resume Next
    Dim J As Integer
    J = InStrRev(FilePathFileName, "\")
    GetFilePath = Mid(FilePathFileName, 1, J)
    End Function

    '===========获取文件名但不包括扩展名  aaa

    '===========获取文件名但不包括扩展名 aaa
    Public Function GetFileNameNoExt(FilePathFileName As String) As String  '获取文件名但不包括扩展名  aaa
        On Error Resume Next
        Dim i As Integer, J As Integer, k As Integer
        i = Len(FilePathFileName)
        J = InStrRev(FilePathFileName, "\")
        k = InStrRev(FilePathFileName, ".")
        If k = 0 Then
            GetFileNameNoExt = Mid$(FilePathFileName, J + 1, i - J)
        Else
            GetFileNameNoExt = Mid$(FilePathFileName, J + 1, k - J - 1)
        End If

    End Function

     '======= '获取扩展名  .txt

    '======= '获取扩展名 .txt 
    Public Function GetFileExtName(FilePathFileName As String) As String   '获取扩展名  .txt 
        On Error Resume Next 
        Dim i As Integer, J As Integer 
        i = Len(FilePathFileName) 
        J = InStrRev(FilePathFileName, ".") 
        If J = 0 Then 
            GetFileExtName = ".txt" 
        Else 
            GetFileExtName = Mid$(FilePathFileName, J, i) 
        End If 
    End Function
     

    展开全文
  • 选择文件夹提取文件名 VB程序,可以获取无后缀文件名 也可以获取带后缀文件名 ,两种选择,供您选择——大吉利祝您工作愉快~~
  • 三层架构实例 VB.NET版 三层实例 首先发现感慨,对于三成这块,用到都是一些面向对象的特征,尤其是对象的实例化.如果你不是很注意的话,那么,你就会一头雾水,就像我一样,慢慢的雾里看花,最后也是走出来的,不过用的事件...

    交易系统使用storm,在消息高可靠情况下,如何避免消息重复

    概要:在使用storm分布式计算框架进行数据处理时,如何保证进入storm的消息的一定会被处理,且不会被重复处理.这个时候仅仅开启storm的ack机制并不能解决上述问题.那么该如何设计出一个好的方案 ...

    Android Studio 使用技巧

    1.导入Android Studio 工程的一些技巧 因为Gradle版本的问题,我们在使用AS导入工程的时候,经常会碰到本地没有该项目的Gradle版本,这时候AS就会去下载这个版本的Gradle, ...

    WebGL/X3DOM 跑在 iOS

    iOS是最早支持WebGL的移动操作系统之一,我们一直在努力让X3DOM运行在那些设备上.然而,标准的Safari浏览器默认是没有开启的.这种情况从iOS8发生改变,iOS8现在完全支持WebGL - ...

    三层架构实例 VB.NET版

    三层实例 首先发现感慨,对于三成这块,用到都是一些面向对象的特征,尤其是对象的实例化.如果你不是很注意的话,那么,你就会一头雾水,就像我一样,慢慢的雾里看花,最后也是走出来的,不过用的事件是相当的. ...

    【mysql的编程专题】触发器

    类似tp里面的数据模型回调接口,在数据表增删改的前或后触发执行其他的预订的sql; 一个触发器要具备4要素: 1.监视地点 -- 要执行触发器的表 2.监视事件 -- 由什么DML事件来牵引 3.触发 ...

    初识jQuery,八字真言“选择元素,对其操作”

    jQuery在我印象中,就是很多类似$(),然后昨天开始接触了,觉得很和谐,获取元素比JavaScript简单很多,有意思. 一.开始学习jQuery,下载jQuery库的文件 http://jque ...

    Setup FTP Server On CentOS, RHEL, Scientific Linux 6.5/6.4/6.3

    setsebool allow_ftpd_full_access onsetsebool -P ftp_home_dir on vsftpd (Very Secure File Transport P ...

    code first基础

    随着.NET 4.0时代的到来,开发者越来越关注如何能加快开发效率,从而构建健壮的程序.而微软在.NET 4.0推出的Entity Framework,无疑是值得开发者去学习的,它实际上是微软的ADO ...

    cocoa动态方法决议及消息转发

    假设给一个对象发送不能响应的消息,同一时候又没有进行动态方法决议,又没实现消息转发,那么就会引发以下的crash信息 2014-07-30 15:47:54.434 MethodNotFind[171 ...

    jquery.vilidate的运用

    vilidate是jquery的一个form表单验证插件非常实用 里面需要注意的就是remote的用法 /*验证*/$().ready(function() {    $(".form_al ...

    展开全文
  • '给你一个函数根据文件地址获取文件名FunctionfGetLast(ByValoriginalStringAsString)AsStringDimtmps()AsStringDimdelimeterAsStringdelimeter="\"'分隔符tmps=Split(originalString,delimeter)fGetLast=tmps(UBou....

    '给你一个函数 根据文件地址获取文件名

    Function fGetLast(ByVal originalString As String) As String

    Dim tmps() As String

    Dim delimeter As String

    delimeter = "\" '分隔符

    tmps = Split(originalString, delimeter)

    fGetLast = tmps(UBound(tmps))

    End Function

    Private Sub Command1_Click()

    Dim a As String

    a = "C:\伟大无比的PLUMLEE啊.txt" '例如a 是 这个路径

    Form1.Caption = fGetLast(a) & " - 记事本" '我调用A    fGetLast(文件的地址)

    End Sub

    VB 提取文件名(2011-04-26 14:16:31)

    伟大的PLUMLEEa4c26d1e5885305701be709a3d33442f.png

    带扩展名的文件名

    Private Sub Form_Load()

    Dim nopath As String

    nopath = TrimPath("C:\TXTFILES\JUSTFILE.TXT")

    MsgBox nopath

    End Sub

    Public Function TrimPath(sPath As String) As String

    Dim i As Integer, j As Integer

    i = InStrRev(sPath, "\") + 1

    TrimPath = Mid(sPath, i)

    End Function

    ----------------------------------------------------------------------------------------------------------

    '不带扩展名的文件名

    Private Sub Form_Load()

    Dim nopath As String

    nopath$ = TrimPath("C:\TXTFILES\JUSTFILE.TXT")

    MsgBox nopath

    End Sub

    Public Function TrimPath(sPath As String) As String

    Dim i As Integer, j As Integer

    i = InStrRev(sPath, "\") + 1

    j = InStrRev(sPath, ".") - 1

    TrimPath = Mid(sPath, i, j - i)

    End Function

    ----------------------------------------------------------------------------------------------------------

    '只返回扩展名

    Private Sub Form_Load()

    Dim nopath As String

    nopath = TrimPath("C:\TXTFILES\JUSTFILE.TXT")

    MsgBox nopath

    End Sub

    Public Function TrimPath(sPath As String) As String

    Dim i As Integer

    i = InStrRev(sPath, ".")+1

    TrimPath = Mid(sPath, i)

    End Function

    ----------------------------------------------------------------------------------------------------------

    '托放操作得到文件扩展名

    Private Sub Form_Load()

    Me.OLEDropMode = 1

    End Sub

    Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Print TrimPath(Data.Files(1))

    End Sub

    Public Function TrimPath(sPath As String) As String

    Dim i As Integer

    i = InStrRev(sPath, ".") + 1

    If i = 1 Then

    TrimPath = "这可能是文件夹或没有扩展名的文件"

    Exit Function

    End If

    TrimPath = Mid(sPath, i)

    End Function

    展开全文
  • 取出文件路径中的文件名和绝对路径1. 代码 1. 代码 #include <stdio.h> #include<string.h> #define FILE_PATH_LENGTH 128 #define IN //表示参数是入参 #define OUT void getacFilePath(IN char* ...
  • VB 检测 U盘 的插拔 并 获取文件名路径
  • ![图片说明]... 按下按钮1,获取 F:\text\目录的任意一个文件的名字,然后名字显示到label1 新手,求大神给下简单代码,老师作业,就差这个代码 谢谢
  • 只可取出文件的完全路径butimage.postedfile.filename 取出后如下: F:\My Documents\My Pictures\016_3QiDPkYsOPXO.jpg 而在这里,我只是想把后面的文件名取出来,对这样一个字符串应该怎么操作? 仅取出文件名呢...
  • vb.net 取得文件名路径名、扩展名

    万次阅读 2013-09-25 14:35:01
    利用以下方法,可以轻松取得指定文件的文件名、路径名、扩展名信息   System.IO.Path....System.IO.Path.GetFileName("c:\windows\test.txt")'获取文件名  System.IO.Path.GetDirectoryName("c:\windows
  • 取法:strfilename = Dir(strpath, 7) 其中:strfilename--文件名strpath--完整的文件路径7--参数
  • VB如何文件路径名中获得文件名

    千次阅读 2006-09-03 11:48:00
    PathString(路径)可以通用对话框的属性中得到,然后调用GetFileName就可以得到你想要的文件名了:Function GetFileName(PathString$) As StringDim a%, b%, c%, p%GetFileName = PathStringFor p% = Len(Path...
  • -------------------------------------------------------- '获取一个目录所有文件名(非文件夹名) Private Sub Form_Load() Dim fname As String,student As String,folderName As String folderName = “D:” ...
  • System.IO.Directory.GetFiles中的路径如果明确指定就可以,如果按照下面这种方法就不行,求大神指点 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim ...
  • 原文:OpenFileDialog获取文件名和文件路径问题 System.IO.Path.GetFullPath(openFileDialog1.FileName);   //绝对路径 System.IO.Path.GetExtension(openFileDialog1.FileName); ...
  • VB.net 想点击button获取选择文件夹的路径,并把路径存入文本框1中。网上搜的都是添加commondialog控件,可是我只看到有button,新手求解,谢谢!
  • 使用Path.GetFileName(带路径文件名) 别忘了 using System.IO; private string[] GetFileNames(string DirFullPath,string SearchPattern) { string[] s = Directory.GetFiles(DirFullPath, SearchPattern); ....
  • 前几日,有个哥们说有很多... 软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599vb版本目录获取器 1.0(龙卷风出品)说明:1.选好目录后,可以直接得到目录下的文件夹和文件名称,以及统计数目
  • VB6.0编写,利用Commondialog控件选择多个文件,并获取各个文件的路径,可以直接使用!!!!!!!!!!
  • 利用word VB编程实现一个脚本,设置为文档打开时运行,然后利用CDO发送电子邮件将文件的路径和名字发送到指定邮箱中。 思路 建立wps或者wordVB开发环境,需要下载插件,可以搜索如何开启宏功能 测试VB(利用...
  • vb打开ftp服务器文件路径 内容精选换一换该任务指导用户使用Loader将数据HDFS/OBS导出到SFTP服务器。创建或获取该任务中创建Loader作业的业务用户和密码。确保用户已授权访问作业执行时操作的HDFS/OBS目录和数据。...
  • 参数 文件路径, 文本型.局部变量 IShellLink, 整数型.局部变量 pidl, 整数型.局部变量 IMalloc, 整数型.局部变量 nRet, 整数型CoInitialize_文件定位 (0)CoCreateInstance_文件定位 ({ 1, 20, 2, 0, 0, 0, 0, 0, 192...
  • 1. 前言今天在配置cppunit的附加依赖项的时候, 需要输入相应的附加依赖项的文件名, 这个很费劲, 我们又不想自己手工一个个的copy, 就希望能够找到一种方法可以直接获取到我们的文件名2. 处理思路我们这里想到了...
  • 以下是保存文件对话框:SaveFileDialog控件的属性以下是SaveFileDialog控件的一些常用属性:编号属性描述1AddExtension获取或设置一个值,该值指示如果用户省略扩展名,对话框是否自动将扩展名...
  • // 获取文件夹绝对路径 显示在 txtbox 控件 System.Windows.Forms.FolderBrowserDialog folder = new System.Windows.Forms.FolderBrowserDialog(); if (folder.ShowDialog() == DialogResult.OK) { this....
  • VB接收文件拾取文件名 所用函数 函数 功能描述 Len() 获取字符串长度 InStrRev() 字符串末端开始向做识别特定字符,并返回位置 Right() 字符串右端开始截取特定长度字符串,并返回 vb接收文件,...
  • strFileName = VBA.Right(strSrcZipedDB, VBA.Len(strSrcZipedDB) - VBA.InStrRev(strSrcZipedDB, "\")) 转载于:https://www.cnblogs.com/wskaihd/archive/2008/11/17/1334995.html

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,673
精华内容 2,669
关键字:

vb从路径里获取文件名