易语言 如何取路径中的文件名
.版本2.参数歌曲路径,文本型.局部变量返回歌曲名,文本型.局部变量路径,文本型.局部变量字符串a,文本型.局部变量字符串b,文本型.局部变量字符串c,文本型路径=歌曲路...
.版本 2
.参数 歌曲路径, 文本型
.局部变量 返回歌曲名, 文本型
.局部变量 路径, 文本型
.局部变量 字符串a, 文本型
.局部变量 字符串b, 文本型
.局部变量 字符串c, 文本型
路径 = 歌曲路径
字符串a = 文本_正取文本 (路径, “:\”, 真)
字符串b = 文本_正取文本 (字符串a, “\”, 真)
字符串c = 文本_取文本中间 (字符串b, “\”, “.mp3”, 真)
返回歌曲名 = 文本_倒取文本 (字符串c, “.mp3”, 真)
返回 (返回歌曲名)
我上面写的只能取 G:\我的音乐\【ぐるたみん】深海少女.mp3 这种路径 再多一个子路径就会乱码
应该怎样做? 展开
.参数 歌曲路径, 文本型
.局部变量 返回歌曲名, 文本型
.局部变量 路径, 文本型
.局部变量 字符串a, 文本型
.局部变量 字符串b, 文本型
.局部变量 字符串c, 文本型
路径 = 歌曲路径
字符串a = 文本_正取文本 (路径, “:\”, 真)
字符串b = 文本_正取文本 (字符串a, “\”, 真)
字符串c = 文本_取文本中间 (字符串b, “\”, “.mp3”, 真)
返回歌曲名 = 文本_倒取文本 (字符串c, “.mp3”, 真)
返回 (返回歌曲名)
我上面写的只能取 G:\我的音乐\【ぐるたみん】深海少女.mp3 这种路径 再多一个子路径就会乱码
应该怎样做? 展开
5个回答
展开全部
解决这个问题的方法如下:
1、新建工程文件,运行“易语言”主程序,进入“新建工程”文件对话框,选择“Windows窗口程序”然后点击“确定”按钮,进入“Windows窗口程序”设计界面。
2、在已创建好的“Windows窗口”上,绘制标签组件、编辑框组件、拖放对象及按钮组件各一个,调整相关组件的位置和大小,以协调窗口。
3、设置各组件的属性值,比如:窗口标题,标签标题...并规范命名各组件的名称,以方便后续的编程工作,加快程序代码的编写速度和降低开发过程中的错误率。
4、进入代码编写阶段,首先,注册一下“拖放对象”,然后将“拖放对象”的“得到文件”属性设置为真,为“拖放对象”的“得到文件”子程序编写代码:
5、为“按钮组件”的“被单击”事件子程序编写代码,代码的功能实现,取出文件名并显示在文件名编辑框中。
6、最后进入程序调试阶段,检验劳动成果了。猛戳“F5”键,运行程序,将测试文件拖拽到程序文件路径编辑框中,查看文件名编辑框中的结果。
展开全部
楼上的比我的好,建议你多学习一下字符串截取函数,right left mid nstr
Text1是文件路径 Text2是提取的文件名
我写的代码如下:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "\" Then n = i
Next
Text2 = Right(Text1, Len(Text1) - n)
End Sub
Text1是文件路径 Text2是提取的文件名
我写的代码如下:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "\" Then n = i
Next
Text2 = Right(Text1, Len(Text1) - n)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐于2017-11-25
展开全部
文件名 = 取文本右边 (路径, 取文本长度 (路径) - 倒找文本 (路径, “\”, , 假))
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼上几位够费劲的,只需要一行代码:
Text2 = CreateObject("Scripting.FileSystemObject").GetBaseName(Text1)
Text2 = CreateObject("Scripting.FileSystemObject").GetBaseName(Text1)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dim a () as string
a=split(text1.text,"\")
a=split(a(ubound(a)),".")
text2.text=a(ubound(a)-1)
a=split(text1.text,"\")
a=split(a(ubound(a)),".")
text2.text=a(ubound(a)-1)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询