社区
VB基础类
帖子详情
已知文件的8.3文件名,如何去掉后缀名而得到主文件名?
bspanda
2005-09-19 06:24:38
VB6,WinXP SP2
已知文件的8.3文件名,如何去掉后缀名而得到主文件名?
例如:
Text1.Text = "MyTxt.txt"
该用什么方法得到文件名“MyTxt”?
...全文
262
7
打赏
收藏
已知文件的8.3文件名,如何去掉后缀名而得到主文件名?
VB6,WinXP SP2 已知文件的8.3文件名,如何去掉后缀名而得到主文件名? 例如: Text1.Text = "MyTxt.txt" 该用什么方法得到文件名“MyTxt”?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
脆皮大雪糕
2005-09-20
打赏
举报
回复
split(Text1.Text,".")(0)的结果是正确的。8.3的文件名可能不包含扩展名,这时候文件名字符串不包含"."所有利用InStr函数的算法都会得出空字符串,就不对了!
jxgzay
2005-09-19
打赏
举报
回复
Text1.Text = "MyTxt.txt"
string1 = Left(Text1.Text, InStr(x, ".") - 1)
MsgBox string1
PacificBlue
2005-09-19
打赏
举报
回复
我觉得junki的方法比较好,代码简单思路清晰。
vbangle
2005-09-19
打赏
举报
回复
此最简单
split(Text1.Text,".")(0)
junki
2005-09-19
打赏
举报
回复
从文件名的特有属性可知,它必须包含有"."字符,所以可以:
Private Function RetureFileName(strFile As String)As String
Dim intPos As Integer
intPos = Instr(strFile,".")
RetureFileName=Left(strFile,intPos-1)
End Function
Call RetureFileName("MyTxt.txt")
province_
2005-09-19
打赏
举报
回复
Text1.Text = "MyTxt.txt"
if instr(text1.text,".")>0 then text1.text=mid(text1.text,1,instr(text1.text,".")-1)
northwolves
2005-09-19
打赏
举报
回复
split(Text1.Text,".")(0)
安装和配置 Windows Server 2022 更新服务
微软对于自己开发的产品支持方式,其中一种就是开发补丁程序,用于修复微软产品的
已知
问题,比如功能缺陷、安全漏洞、逻辑错误等,这些缺陷一般来自于客户反馈、安全研究人员和团队 并且微软会维护着一个在线服务,...
FAT16
文件
系统结构简述
近一个礼拜为解决项目中的一个BUG而学习了一点新知识。大致总结出来和有兴趣的朋友分享学习一波。 这个 BUG是这样的,当系统将采集到的数据存到SD卡中时,未知问题导致单片机卡死在写数据到SD卡过程中某个段点,超过...
FatFs 之三 FAT
文件
系统基础、FAT 数据格式、引导、编码
注意:本文章
主
要是翻译自 FatFs 官网的 The basics of FAT filesystem。但是,原文大多都是文字说明,因此在翻译时,添加了大量的图片示例以及一些...FAT Filesystem FAT
文件
系统 This is a documentati...
Linux基础命令---mkisofs
mkisofs指令可以创建ISO9660/Joliet/HFS
文件
系统,现在使用指令genisoimage代替它。genisoImage是一个预掌握程序,用于生成iso 9660/joliet/hfs混合
文件
系统。 genisoImage能够生成由Rock Ridge交换协议指定的...
简单使用Linux
我们以查看/roo目录下的所有
文件
的详细信息为例,来说明普通权限。total 4在上面的命令输出...单位为字节6
文件
的最后一次修改时间7
文件
名
目录名称接下来我们重点来说第一个部分,即:1:表示
文件
的类型普通
文件
d目录l。
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章