易语言 如何取路径中的文件名

Question

.版本 2
.参数 歌曲路径, 文本型
.局部变量 返回歌曲名, 文本型
.局部变量 路径, 文本型
.局部变量 字符串a, 文本型
.局部变量 字符串b, 文本型
.局部变量 字符串c, 文本型
路径 ＝ 歌曲路径
字符串a ＝ 文本_正取文本 (路径, “:\”, 真)
字符串b ＝ 文本_正取文本 (字符串a, “\”, 真)
字符串c ＝ 文本_取文本中间 (字符串b, “\”, “.mp3”, 真)
返回歌曲名 ＝ 文本_倒取文本 (字符串c, “.mp3”, 真)
返回 (返回歌曲名)

我上面写的只能取 G:\我的音乐\【ぐるたみん】深海少女.mp3 这种路径 再多一个子路径就会乱码
应该怎样做？

Answer 1

解决这个问题的方法如下：

1、新建工程文件，运行“易语言”主程序，进入“新建工程”文件对话框，选择“Windows窗口程序”然后点击“确定”按钮，进入“Windows窗口程序”设计界面。

2、在已创建好的“Windows窗口”上，绘制标签组件、编辑框组件、拖放对象及按钮组件各一个，调整相关组件的位置和大小，以协调窗口。

3、设置各组件的属性值，比如：窗口标题，标签标题...并规范命名各组件的名称，以方便后续的编程工作，加快程序代码的编写速度和降低开发过程中的错误率。

4、进入代码编写阶段，首先，注册一下“拖放对象”，然后将“拖放对象”的“得到文件”属性设置为真，为“拖放对象”的“得到文件”子程序编写代码：

5、为“按钮组件”的“被单击”事件子程序编写代码，代码的功能实现，取出文件名并显示在文件名编辑框中。

6、最后进入程序调试阶段，检验劳动成果了。猛戳“F5”键，运行程序，将测试文件拖拽到程序文件路径编辑框中，查看文件名编辑框中的结果。

Answer 2

楼上的比我的好，建议你多学习一下字符串截取函数，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

Answer 3

文件名 ＝ 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “\”, , 假))本回答被提问者采纳

Answer 4

楼上几位够费劲的，只需要一行代码：
Text2 = CreateObject("Scripting.FileSystemObject").GetBaseName(Text1)

Answer 5

dim a () as string
a=split(text1.text,"\")
a=split(a(ubound(a)),".")
text2.text=a(ubound(a)-1)