delphi 怎样获取文件名不带后缀

小写了一个函数，取文件名的。

function GetFileName(str:string):string;

var

i:Integer;

x,y:string;

begin

x:=ExtractFileName(str); //取文件名+扩展名，不包含文件路径

y:=ExtractFileExt(str); //取文件的扩展名

i:=Pos(y,x); //确定扩展名所在位置

if i<>0 then

begin

Result:=Copy(x,0,i-1); //复制文件名，忽略掉后面的扩展名

end

else begin

Result:='';

end;

end;

使用的时候直接这样就行

GetFileName(TIdAttachment(MsgMessagePartsItems[intIndex])Filename)

输出：科比

隐藏不代表没有，实际上文件后缀一直在，只是没有显示出来，肉眼看不到而已。

隐藏后缀步骤:单击文件夹上方查看选项卡，取消文件扩展名前面的勾选即可。如果要再显示，反向 *** 作即可。

如果是说在表格中取文件名(不含后缀)，只需用mid+find函数组合取文本值即可

'fso提供了直接取文件基本名的方法: getbasename

Private Sub Command1_Click()

Set fso = CreateObject("scriptingfilesystemobject")

fname = fsogetbasename("c:\tset\abc123 ")

MsgBox fname

End Sub

/

  Java文件 *** 作 获取文件扩展名

   Created on: 2011-8-2

       Author: blueeagle

 /

    public static String getExtensionName(String filename) { 

        if ((filename != null) && (filenamelength() > 0)) { 

            int dot = filenamelastIndexOf(''); 

            if ((dot >-1) && (dot < (filenamelength() - 1))) { 

                return filenamesubstring(dot + 1); 

            } 

        } 

        return filename; 

    } 

/

  Java文件 *** 作 获取不带扩展名的文件名

   Created on: 2011-8-2

       Author: blueeagle

 /

    public static String getFileNameNoEx(String filename) { 

        if ((filename != null) && (filenamelength() > 0)) { 

            int dot = filenamelastIndexOf(''); 

            if ((dot >-1) && (dot < (filenamelength()))) { 

                return filenamesubstring(0, dot); 

            } 

        } 

        return filename; 

    }

linux没有扩展名这个说法，所有的文件都只有文件名，系统从文件的属性来区分可执行文件和不可执行文件。

而所有的所谓的扩展名都是人为的规定。

如你也可以将一个sh脚本叫做atxt，运行照样通过。

如果你想去掉"alocaltxtaaa"这种文件名的所有后缀，可以用C语言来编程，或者写shell脚本，找出第一个''字符，把它和它后面的都去掉就行了。

读取没有后缀名的文件和有后缀名的文件是一样，因为C++是根据文件名来 *** 作的，是不管扩展名的，C++读取文件是简单的,

步骤如下:

第一步:打开文件

fstream

file1(

"temp"

,ios::out|ios::in);

//temp

为你要读取的文件名

第二步:读取文件内容

finget(ch);

//读文件中的一个字符到

ch

，ch的类型为char

第三步:使用你已经读取的内容，即第二步的

ch

cout

<<

ch;

//把

ch

的内容输出，当然你可以用ch做其他事

第四步:关闭文件

file1close();

举例说明:

#include

<iostreamh>

#include

<fstreamh>

int

main(int

argc,

char

argv[])

{

char

ch;

fstream

file1(

"temp"

,ios::out|ios::in);

//第一步:temp

为你要读写的文件名

file1get(ch);

//第二步:读文件中的一个字符到

ch

cout

<<

ch;

//第三步:

file1close();

//第四步:文件不用了,

记得要关闭

return

0;

}

很简单吧，不过要注意，要包含头文件

#include

<fstreamh>

顺便也讲一下写文件吧，步骤也差不多的

第一步:打开文件

fstream

file2(

"temp"

,ios::out|ios::in);

//temp

为你要写的文件名

第二步:读取文件内容

cin

>>

ch;

//输入一个字符到

ch

，当然假如ch有数值就不用输入了

第三步:使用你已经读取的内容，即第二步的

ch

file2put(

ch

);

//把

ch

的内容写到文件

第四步:关闭文件

file2close();

举例说明:

#include

<iostreamh>

#include

<fstreamh>

int

main(int

argc,

char

argv[])

{

char

ch;

fstream

file2(

"temp"

,ios::out|ios::in);

//第一步:temp

为为你要写的文件名

cin

>>

ch;

///第二步:输入一个字符到

ch,

file2put(

ch

);

//第三步:把

ch

的内容写到文件

file2close();

//第四步:文件不用了,

记得要关闭

return

0;

}

以上就是关于delphi 怎样获取文件名不带后缀全部的内容，包括:delphi 怎样获取文件名不带后缀、wps中引用自身文件名(filename)时，怎么去掉后缀(.doc)、VB获取无后缀文件名等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！